15 lines
251 B
Text
15 lines
251 B
Text
function F(integer n)
|
|
return iff(n?n-M(F(n-1)):1)
|
|
end function
|
|
|
|
function M(integer n)
|
|
return iff(n?n-F(M(n-1)):0)
|
|
end function
|
|
|
|
for i=0 to 20 do
|
|
printf(1," %d",F(i))
|
|
end for
|
|
printf(1,"\n")
|
|
for i=0 to 20 do
|
|
printf(1," %d",M(i))
|
|
end for
|