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