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

   1 import "IterN"\r
   2 import "Random"\r
   3 \r
   4 foo :: Integer -> <Proc> Double\r
   5 foo n = runRandom $ foldlN addRandom 0.0 n\r
   6 \r
   7 addRandom :: Double -> Integer -> <Random,Proc> Double\r
   8 addRandom v i = v + randomDouble\r
   9 \r
  10 main = "Foo"\r
  11 --\r
  12 Foo