scl/MarketModel2.scl

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