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