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

5 lines
54 B
Plaintext

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