git.iko.soy/rowtype-yoga/purescript-native
on 28fa718 help sign in
rowtype-yoga/purescript-native/examples/passing/STArray.purs
23 lines 427 B history raw
1module Main where
3import Prelude
4import Eff
5import ST
6import Arrays
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 = Trace.print $ runPure (fromTo 10 20)