@@ -1,25 +0,0 @@
4−import Control.Monad.Eff
5−import Control.Monad.ST
14−fromTo lo hi = runSTArray (do
15− arr <- newSTArray (hi - lo + 1) 0
17− go lo hi _ arr | lo > hi = return arr
19− pokeSTArray arrr i lo
20− go (lo + 1) hi (i + 1) arr
24− let t1 = runPure (fromTo 10 20)