]> gerrit.simantics Code Review - simantics/platform.git/blobdiff - tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Pythagoras.scl
Fixed all line endings of the repository
[simantics/platform.git] / tests / org.simantics.scl.compiler.tests / src / org / simantics / scl / compiler / tests / scl / Pythagoras.scl
index 95a5b9b7823a0947d061b776be5a8d01e7731dfa..402ca6997c06830a81b8a1fb457e37fa8338dd5f 100644 (file)
@@ -1,24 +1,24 @@
-import "JavaBuiltin" as Java\r
-\r
-infixl 7 (*)\r
-infixl 6 (+)\r
-\r
-(+) :: Double -> Double -> Double\r
-(+) = Java.dadd\r
-(*) :: Double -> Double -> Double\r
-(*) = Java.dmul\r
-\r
-importJava "java.lang.Math" where\r
-    sqrt :: Double -> Double\r
-    sin :: Double -> Double\r
-    cos :: Double -> Double\r
-\r
-square x = x * x\r
-\r
-length x y = sqrt (square x + square y)\r
-\r
-pythagoras a = length (cos a) (sin a)\r
-\r
-main = pythagoras 2.0\r
---\r
-1.0\r
+import "JavaBuiltin" as Java
+
+infixl 7 (*)
+infixl 6 (+)
+
+(+) :: Double -> Double -> Double
+(+) = Java.dadd
+(*) :: Double -> Double -> Double
+(*) = Java.dmul
+
+importJava "java.lang.Math" where
+    sqrt :: Double -> Double
+    sin :: Double -> Double
+    cos :: Double -> Double
+
+square x = x * x
+
+length x y = sqrt (square x + square y)
+
+pythagoras a = length (cos a) (sin a)
+
+main = pythagoras 2.0
+--
+1.0