RosettaCodeData/Task/Ackermann-function/OCaml/ackermann-function-4.ocaml
2023-07-01 13:44:08 -04: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)