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%2Fscl%2FFibonacci3.scl;h=1c27fb80e8a2e4173e99f7307d7a0cae66356fc3;hp=d5ce91c602a99cd38049552c038acf2a947697ae;hb=refs%2Fchanges%2F38%2F238%2F2;hpb=24e2b34260f219f0d1644ca7a138894980e25b14 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