RosettaCodeData/Task/Ackermann-function/OCaml/ackermann-function-4.ocaml
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

7 lines
107 B
Text

let a m n =
for _m = 0 to m do
for _n = 0 to n do
ignore(a _m _n);
done;
done;
(a m n)