21 lines
266 B
Text
21 lines
266 B
Text
// User defined functions
|
|
sub F(n)
|
|
if n = 0 return 1
|
|
return n - M(F(n-1))
|
|
end sub
|
|
|
|
|
|
sub M(n)
|
|
if n = 0 return 0
|
|
return n - F(M(n-1))
|
|
end sub
|
|
|
|
|
|
for i = 0 to 20
|
|
print F(i) using "###";
|
|
next
|
|
print
|
|
for i = 0 to 20
|
|
print M(i) using "###";
|
|
next
|
|
print
|