RosettaCodeData/Task/Mutual-recursion/Mathematica/mutual-recursion-1.math
2023-07-01 13:44:08 -04:00

4 lines
54 B
Text

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