Mutual recursion: Difference between revisions
no edit summary
m (→{{header|AutoHotkey}}: Minor indentation and casing edit) |
No edit summary |
||
Line 513:
loop(0,20,`female')
loop(0,20,`male')</lang>
=={{header|Mathematica}}==
Without caching:
<lang Mathematica>
f[0]:=1
m[0]:=0
f[n_]:=n-m[f[n-1]]
m[n_]:=n-f[m[n-1]]
</lang>
With caching:
<lang Mathematica>
f[0]:=1
m[0]:=0
f[n_]:=f[n]=n-m[f[n-1]]
m[n_]:=m[n]=n-f[m[n-1]]
</lang>
Example finding f(1) to f(30) and m(1) to m(30):
<lang Mathematica>
m /@ Range[30]
f /@ Range[30]
</lang>
gives back:
<lang Mathematica>
{0,1,2,2,3,4,4,5,6,6,7,7,8,9,9,10,11,11,12,12,13,14,14,15,16,16,17,17,18,19}
{1,2,2,3,3,4,5,5,6,6,7,8,8,9,9,10,11,11,12,13,13,14,14,15,16,16,17,17,18,19}
</lang>
=={{header|Objective-C}}==
| |||