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

8 lines
107 B
OCaml
Raw Permalink Normal View History

2023-07-01 11:58:00 -04: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)