7 lines
109 B
Text
7 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))
|
|
;;
|