git.iko.soy/rowtype-yoga/purescript-native
on cb906fa help sign in
rowtype-yoga/purescript-native/examples/passing/STArray.purs
23 lines 465 B history raw
1module Main where
3import Prelude
4import Control.Monad.Eff
5import Control.Monad.ST
6import Data.Array
8test = runSTArray (do
9 a <- newSTArray 2 0
10 pokeSTArray a 0 1
11 pokeSTArray a 1 2
12 return a)
14fromTo' lo hi _ arr | lo > hi = return arr
15fromTo' lo hi i arr = do
16 pokeSTArray arr i lo
17 fromTo' (lo + 1) hi (i + 1) arr
19fromTo lo hi = runSTArray (do
20 arr <- newSTArray (hi - lo + 1) 0
21 fromTo' lo hi 0 arr)
23main = Debug.Trace.print $ runPure (fromTo 10 20)