Expand STArray example
commit3318082efddfb2a9e7bf5f439869d33fb3ac9fc8
authorPhil Freeman <paf31@cantab.net>
dateWed 12 Feb 2014, 16:51 (13 years ago)
parent8302da9
examples/passing/STArray.purs+10−1
@@ -11,4 +11,13 @@ test = runSTArray (do
1111 pokeSTArray a 1 2
1212 return a)
1313
14−main = Trace.print $ runPure test
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+
23+main = Trace.print $ runPure (fromTo 10 20)