git.iko.soy/rowtype-yoga/purescript-native
on 79fcdf4 help sign in
rowtype-yoga/purescript-native/examples/passing/STArray.purs
25 lines 482 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 = runSTArray (do
15 arr <- newSTArray (hi - lo + 1) 0
16 (let
17 go lo hi _ arr | lo > hi = return arr
18 go lo hi i arr = do
19 pokeSTArray arr i lo
20 go (lo + 1) hi (i + 1) arr
21 in go lo hi 0 arr))
23main = do
24 let t1 = runPure (fromTo 10 20)
25 trace "Done"