X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=tests%2Forg.simantics.scl.compiler.tests%2Fsrc%2Forg%2Fsimantics%2Fscl%2Fcompiler%2Ftests%2Fscl%2FMarketModel2.scl;h=9c7b707432f7cd60b860ffabb8b3f454c60c59d8;hb=0ae2b770234dfc3cbb18bd38f324125cf0faca07;hp=bcd576bb1df7e05fa3ea2a5165f501c191940fef;hpb=bb5a3edf299cb943999c72c69dd68fb740c8a506;p=simantics%2Fplatform.git 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