8 lines
109 B
Text
8 lines
109 B
Text
|
let rec f = function
|
||
|
|
| 0 -> 1
|
||
|
|
| n -> n - m(f(n-1))
|
||
|
|
and m = function
|
||
|
|
| 0 -> 0
|
||
|
|
| n -> n - f(m(n-1))
|
||
|
|
;;
|