]> gerrit.simantics Code Review - simantics/platform.git/blob - tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Fibonacci3.scl
Supply SVG text editor with element measurement context
[simantics/platform.git] / tests / org.simantics.scl.compiler.tests / src / org / simantics / scl / compiler / tests / scl / Fibonacci3.scl
1 import "JavaBuiltin" as Java
2  
3 class Num a where
4     (+) :: a -> a -> a
5     (-) :: a -> a -> a
6
7 instance Num Integer where
8     (+) = Java.iadd
9     (-) = Java.isub
10
11 (<=) = Java.icmple
12
13 fibonacci x = if x <= (1 :: Integer) 
14               then 1 :: Integer
15               else fibonacci (x - (1 :: Integer)) 
16                  + fibonacci (x - (2 :: Integer))
17
18 main = fibonacci 10
19 --
20 89