aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

A-M baby

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 21:29:02 -07:00
parent 764da6cbbb
commit db842d013d
19005 changed files with 197040 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Task/Mutual-recursion/Mathematica/mutual-recursion-1.mathematica Normal file
View file

@ -0,0 +1,4 @@
f[0]:=1
m[0]:=0
f[n_]:=n-m[f[n-1]]
m[n_]:=n-f[m[n-1]]

4
Task/Mutual-recursion/Mathematica/mutual-recursion-2.mathematica Normal file
View file

@ -0,0 +1,4 @@
f[0]:=1
m[0]:=0
f[n_]:=f[n]=n-m[f[n-1]]
m[n_]:=m[n]=n-f[m[n-1]]

2
Task/Mutual-recursion/Mathematica/mutual-recursion-3.mathematica Normal file
View file

@ -0,0 +1,2 @@
m /@ Range[30]
f /@ Range[30]

2
Task/Mutual-recursion/Mathematica/mutual-recursion-4.mathematica Normal file
View file

@ -0,0 +1,2 @@
{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}