X-Git-Url: https://gerrit.simantics.org/r/gitweb?p=simantics%2Fplatform.git;a=blobdiff_plain;f=tests%2Forg.simantics.scl.compiler.tests%2Fsrc%2Forg%2Fsimantics%2Fscl%2Fcompiler%2Ftests%2Fscl%2FMarketModel2.scl;h=9c7b707432f7cd60b860ffabb8b3f454c60c59d8;hp=bcd576bb1df7e05fa3ea2a5165f501c191940fef;hb=HEAD;hpb=f23dc81afe57e77d20706a9a94002ce4c72f670d diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/MarketModel2.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/MarketModel2.scl index bcd576bb1..9c7b70743 100644 --- a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/MarketModel2.scl +++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/MarketModel2.scl @@ -1,12 +1,12 @@ -import "IterN" -import "Random" - -foo :: Integer -> Double -foo n = runRandom $ foldlN addRandom 0.0 n - -addRandom :: Double -> Integer -> Double -addRandom v i = v + randomDouble - -main = "Foo" --- +import "IterN" +import "Random" + +foo :: Integer -> Double +foo n = runRandom $ foldlN addRandom 0.0 n + +addRandom :: Double -> Integer -> Double +addRandom v i = v + randomDouble + +main = "Foo" +-- Foo \ No newline at end of file