]> gerrit.simantics Code Review - simantics/platform.git/blob - bundles/org.simantics.scl.compiler/tests/org/simantics/scl/compiler/tests/scl/Fibonacci.scl
Added info on backup location to documentation backup.
[simantics/platform.git] / bundles / org.simantics.scl.compiler / tests / org / simantics / scl / compiler / tests / scl / Fibonacci.scl
1 import "JavaBuiltin" as Java\r
2 \r
3 (+) = Java.iadd\r
4 (-) = Java.isub\r
5 (<=) = Java.icmple\r
6 \r
7 fibonacci x = if x <= (1 :: Integer) \r
8               then 1 :: Integer \r
9               else fibonacci (x - 1) \r
10                  + fibonacci (x - 2)\r
11 \r
12 main = fibonacci 10\r
13 --\r
14 89