9 lines
250 B
Text
9 lines
250 B
Text
|
fun F ← <int n|when(n æ 0, 1, n - M(F(n - 1)))
|
||
|
|
fun M ← <int n|when(n æ 0, 0, n - F(M(n - 1)))
|
||
|
|
write("F: ")
|
||
|
|
range(0, 21).list(<int n|write(F(n) + ", "))
|
||
|
|
writeLine("...")
|
||
|
|
write("M: ")
|
||
|
|
range(0, 21).list(<int n|write(M(n) + ", "))
|
||
|
|
writeLine("...")
|