X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;ds=sidebyside;f=tests%2Forg.simantics.scl.compiler.tests%2Fsrc%2Forg%2Fsimantics%2Fscl%2Fcompiler%2Ftests%2Fscl%2FFibonacci2.scl;h=4b6dde2dd6051126a9246df6c4ef899463447306;hb=172abed5dbf73c1304a7a95bb8504ea293556948;hp=229145fbc3e86f71c6566ab2859cb161f4e68dc4;hpb=d70b5f7a4cdeea05c7526560303feffeb03596b0;p=simantics%2Fplatform.git diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Fibonacci2.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Fibonacci2.scl index 229145fbc..4b6dde2dd 100644 --- a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Fibonacci2.scl +++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Fibonacci2.scl @@ -1,11 +1,11 @@ -import "Prelude" - -fibonacci :: Integer -> Integer -fibonacci x = if x <= 1 - then 1 - else fibonacci (x - 1) - + fibonacci (x - 2) - -main = fibonacci 10 --- +import "Prelude" + +fibonacci :: Integer -> Integer +fibonacci x = if x <= 1 + then 1 + else fibonacci (x - 1) + + fibonacci (x - 2) + +main = fibonacci 10 +-- 89 \ No newline at end of file