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%2Fperformance%2FSumOfInverses2.scl;h=5b2e99ae26642f6b6353f9e7579bc319b2ffaead;hb=172abed5dbf73c1304a7a95bb8504ea293556948;hp=7745029bf10bb101fea2949b34ad081d3f9451d0;hpb=43ddca759254b8e38029c1041d91cbdd7890c9b5;p=simantics%2Fplatform.git diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/performance/SumOfInverses2.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/performance/SumOfInverses2.scl index 7745029bf..5b2e99ae2 100644 --- a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/performance/SumOfInverses2.scl +++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/performance/SumOfInverses2.scl @@ -1,4 +1,4 @@ -import "Prelude" - -main :: Integer -> Double -main m = sum [1/(fromInteger x) | x <- [1..m]] +import "Prelude" + +main :: Integer -> Double +main m = sum [1/(fromInteger x) | x <- [1..m]]