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

5 lines
64 B
Text
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
f[0]:=1
m[0]:=0
f[n_]:=f[n]=n-m[f[n-1]]
m[n_]:=m[n]=n-f[m[n-1]]