git.iko.soy/rowtype-yoga/purescript-native
on b68b424 help sign in
rowtype-yoga/purescript-native/examples/passing/STArray.purs
25 lines 475 B history raw
1module Main where
3import Prelude
4import Control.Monad.Eff
5import Control.Monad.ST
6import Debug.Trace
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 = do
24 let t1 = runPure (fromTo 10 20)
25 trace "Done"