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%2FFibonacci3.scl;h=1c27fb80e8a2e4173e99f7307d7a0cae66356fc3;hb=3f5adda763f6281e9988277d067c1f71615e3da2;hp=d5ce91c602a99cd38049552c038acf2a947697ae;hpb=dcca7344e1da6f975859fd79fbc6cead7d363042;p=simantics%2Fplatform.git diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Fibonacci3.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Fibonacci3.scl index d5ce91c60..1c27fb80e 100644 --- a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Fibonacci3.scl +++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Fibonacci3.scl @@ -1,20 +1,20 @@ -import "JavaBuiltin" as Java - -class Num a where - (+) :: a -> a -> a - (-) :: a -> a -> a - -instance Num Integer where - (+) = Java.iadd - (-) = Java.isub - -(<=) = Java.icmple - -fibonacci x = if x <= (1 :: Integer) - then 1 :: Integer - else fibonacci (x - (1 :: Integer)) - + fibonacci (x - (2 :: Integer)) - -main = fibonacci 10 --- +import "JavaBuiltin" as Java + +class Num a where + (+) :: a -> a -> a + (-) :: a -> a -> a + +instance Num Integer where + (+) = Java.iadd + (-) = Java.isub + +(<=) = Java.icmple + +fibonacci x = if x <= (1 :: Integer) + then 1 :: Integer + else fibonacci (x - (1 :: Integer)) + + fibonacci (x - (2 :: Integer)) + +main = fibonacci 10 +-- 89 \ No newline at end of file