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

5 lines
96 B
OCaml
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
let rec a m n =
if m=0 then (n+1) else
if n=0 then (a (m-1) 1) else
(a (m-1) (a m (n-1)))