Fixed multiple issues causing dangling references to discarded queries

[simantics/platform.git] / tests / org.simantics.scl.compiler.tests / src / org / simantics / scl / compiler / tests / scl / MarketModel2.scl

import "IterN"
import "Random"

foo :: Integer -> <Proc> Double
foo n = runRandom $ foldlN addRandom 0.0 n

addRandom :: Double -> Integer -> <Random,Proc> Double
addRandom v i = v + randomDouble

main = "Foo"
--
Foo