fibonacci

[DylanLej]

let rec fib n = if n<2 then n else fib(n-1) + fib(n-2);;

[fghsgh]

ackermann: let rec ack m n = match [m;n] with [0;_] -> n+1 | [_;0] -> ack (m-1) 1 | [_;_] -> ack (m-1) (ack m (n-1))