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=2148e9b3fecb3385ac71f302eea7045cf370afe2;hp=b7b56f50ce08417c057e125f62034538269c449a;hpb=c125a1755cc7c4a6241c3c5bf841c3db0ff2d658;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