tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/FoldlBuild2.scl

   1 import "Prelude"\r
   2 \r
   3 inc :: Ref Integer -> <Proc> Integer\r
   4 inc r = do \r
   5     v = getRef r\r
   6     newV = v+1\r
   7     r := newV\r
   8     newV\r
   9 \r
  10 main = do\r
  11     r = ref 0\r
  12     l = map (\_ -> inc r) [1..4]\r
  13     r := 4 // Map must be executed before this statement\r
  14     foldl (+) 0 l\r
  15 --\r
  16 10\r