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%2FFibonacci2.scl;h=4b6dde2dd6051126a9246df6c4ef899463447306;hb=refs%2Fchanges%2F38%2F238%2F2;hp=229145fbc3e86f71c6566ab2859cb161f4e68dc4;hpb=5930811a7911090a0c4984380c3b45ed81a93cde;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