RosettaCodeData/Task/Mutual-recursion/Pluto/mutual-recursion.pluto

11 lines
174 B
Plaintext

function F(n)
return n==0?1:n-M(F(n-1))
end
function M(n)
return n==0?0:n-F(M(n-1))
end
print(range(1,12):mapped(F):unpack())
print(range(1,12):mapped(M):unpack())