git.iko.soy/rowtype-yoga/purescript-native
on golang help sign in
Expand STArray example
3318082Phil Freeman
examples/passing/STArray.purs+10−1
compare with golang
unifiedsplit
@@ -11,4 +11,13 @@ test = runSTArray (do
11 pokeSTArray a 1 2
11 pokeSTArray a 1 2
12 return a)
12 return a)
13
13
14+fromTo' lo hi _ arr | lo > hi = return arr
15+fromTo' lo hi i arr = do
16+ pokeSTArray arr i lo
17+ fromTo' (lo + 1) hi (i + 1) arr
18+
19+fromTo lo hi = runSTArray (do
20+ arr <- newSTArray (hi - lo + 1) 0
21+ fromTo' lo hi 0 arr)
22+
14−main = Trace.print $ runPure test
23+main = Trace.print $ runPure (fromTo 10 20)