sample/fib-tail_9.in


1
2
3
4
5
6
7
8
9
10

// Fibonacci number
fibt(r, int a, int b) >< (int n)
| n == 0 => r~0
| n == 1 => r~a
| _ => fibt(r, a+b, a) ~ (n-1);

fibMain(r) >< (int n) => fibt(r, 1, 0) ~ n;

fibMain(r)~9;
r;