RosettaCodeData/Task/Mutual-recursion/Mathematica/mutual-recursion-1.math
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07: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]]