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%2Fperformance%2FSumOfInverses.scl;h=f43424e4cb2c6534384ff913ffd23831a645ddfa;hp=a3f9407601c6b816523f46a1b3df19980c7f0ef7;hb=172abed5dbf73c1304a7a95bb8504ea293556948;hpb=861a3da972d67bf5f0d246129c63f611922e03f0 diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/performance/SumOfInverses.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/performance/SumOfInverses.scl index a3f940760..f43424e4c 100644 --- a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/performance/SumOfInverses.scl +++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/performance/SumOfInverses.scl @@ -1,8 +1,8 @@ -import "Prelude" - -main :: Double -> Double -main m = loop 1 0 - where - loop x cur = if x > m - then cur +import "Prelude" + +main :: Double -> Double +main m = loop 1 0 + where + loop x cur = if x > m + then cur else loop (x+1) (cur + 1 / x) \ No newline at end of file