RosettaCodeData/Task/Mutual-recursion/Mathematica/mutual-recursion-2.math

5 lines
64 B
Plaintext

f[0]:=1
m[0]:=0
f[n_]:=f[n]=n-m[f[n-1]]
m[n_]:=m[n]=n-f[m[n-1]]