RosettaCodeData/Task/Ackermann-function/OCaml/ackermann-function-4.ocaml

8 lines
107 B
Text
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
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)