Merge commit 'bd5bc6e45f700e755b61bd112631796631330ecb'

[simantics/platform.git] / tests / org.simantics.scl.compiler.tests / src / org / simantics / scl / compiler / tests / scl / Guards2.scl

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