4 lines
64 B
Text
4 lines
64 B
Text
f[0]:=1
|
|
m[0]:=0
|
|
f[n_]:=f[n]=n-m[f[n-1]]
|
|
m[n_]:=m[n]=n-f[m[n-1]]
|
f[0]:=1
|
|
m[0]:=0
|
|
f[n_]:=f[n]=n-m[f[n-1]]
|
|
m[n_]:=m[n]=n-f[m[n-1]]
|