[simantics/platform.git] / Guards1.scl

import "Prelude"\r
\r
fib :: Integer -> Integer\r
fib x | x <= 2 = 1\r
      | True   = fib (x-1) + fib (x-2)\r
\r
main = fib 13\r
--\r
233