8 lines
250 B
Text
8 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("...")
|