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