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%2FFibonacci.scl;h=37baeec15f7d5fdbef969e2fb97db96700aa8bf9;hb=d0eb7b399ba1510610da9a7f4d29b671950f1426;hp=b7b56f50ce08417c057e125f62034538269c449a;hpb=fdbe87627e92805701d0672fbe8f1dc60b7f7b00;p=simantics%2Fplatform.git diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Fibonacci.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Fibonacci.scl index b7b56f50c..37baeec15 100644 --- a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Fibonacci.scl +++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Fibonacci.scl @@ -1,14 +1,14 @@ -import "JavaBuiltin" as Java - -(+) = Java.iadd -(-) = Java.isub -(<=) = Java.icmple - -fibonacci x = if x <= (1 :: Integer) - then 1 :: Integer - else fibonacci (x - 1) - + fibonacci (x - 2) - -main = fibonacci 10 --- +import "JavaBuiltin" as Java + +(+) = Java.iadd +(-) = Java.isub +(<=) = Java.icmple + +fibonacci x = if x <= (1 :: Integer) + then 1 :: Integer + else fibonacci (x - 1) + + fibonacci (x - 2) + +main = fibonacci 10 +-- 89 \ No newline at end of file