]> gerrit.simantics Code Review - simantics/platform.git/blobdiff - tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/performance/SumOfInverses.scl
Fixed all line endings of the repository
[simantics/platform.git] / tests / org.simantics.scl.compiler.tests / src / org / simantics / scl / compiler / tests / performance / SumOfInverses.scl
index a3f9407601c6b816523f46a1b3df19980c7f0ef7..f43424e4cb2c6534384ff913ffd23831a645ddfa 100644 (file)
@@ -1,8 +1,8 @@
-import "Prelude"\r
-\r
-main :: Double -> Double\r
-main m = loop 1 0\r
-  where\r
-    loop x cur = if x > m\r
-                 then cur\r
+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