4 lines
96 B
OCaml
4 lines
96 B
OCaml
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)))
|