Mutual recursion: Difference between revisions

no edit summary
No edit summary
Line 1,518:
loop(0,20,`female')
loop(0,20,`male')</lang>
 
=={{header|Maple}}==
<lang Maple>female_seq := proc(n)
if (n = 0) then
return 1;
else
return n - male_seq(female_seq(n-1));
end if;
end proc;
 
male_seq := proc(n)
if (n = 0) then
return 0;
else
return n - female_seq(male_seq(n-1));
end if;
end proc;
seq(female_seq(i), i=0..10);
seq(male_seq(i), i=0..10);</lang>
{{Out|Output}}
<pre>1, 1, 2, 2, 3, 3, 4, 5, 5, 6, 6
0, 0, 1, 2, 2, 3, 4, 4, 5, 6, 6</pre>
 
 
=={{header|Mathematica}}==
Anonymous user