12 lines
263 B
Text
12 lines
263 B
Text
program mutual_recursion;
|
|
print("F", [f(n) : n in [0..14]]);
|
|
print("M", [m(n) : n in [0..14]]);
|
|
|
|
proc f(n);
|
|
return {[0,1]}(n) ? n - m(f(n-1));
|
|
end proc;
|
|
|
|
proc m(n);
|
|
return {[0,0]}(n) ? n - f(m(n-1));
|
|
end proc;
|
|
end program;
|