Anonymous user
Mutual recursion: Difference between revisions
m
→{{header|Perl}}
(→TI-89 BASIC: new example) |
|||
Line 685:
print join(" ", @ra) . "\n";
print join(" ", @rb) . "\n";</lang>
<lang perl>
sub F {my($n) = @_; !$n or $n - M(F($n-1))}
sub M {my($n) = @_; $n and $n - F(M($n-1))}
for my $f (\&F, \&M)
{print "@{[map $f->($_), 0..20]}\n"}
</perl>
=={{header|PHP}}==
|