git.iko.soy/rowtype-yoga/purescript-native
on e82e607 help sign in
rowtype-yoga/purescript-native/examples/passing/Fib.purs
15 lines 308 B history raw
1module Main where
3import Prelude
4import Control.Monad.Eff
5import Control.Monad.ST
7main = runST (do
8 n1 <- newSTRef 1
9 n2 <- newSTRef 1
10 whileE ((>) 1000 <$> readSTRef n1) $ do
11 n1' <- readSTRef n1
12 n2' <- readSTRef n2
13 writeSTRef n2 $ n1' + n2'
14 writeSTRef n1 n2'
15 Debug.Trace.print n2')