Mutual recursion: Difference between revisions
Content added Content deleted
(awk) |
(perl (v0)) |
||
Line 183:
disp(ra);
disp(rb);</lang>
=={{header|Perl}}==
<lang perl>use strict;
sub F
{
my $n = shift;
return 1 if $n==0;
return $n - M(F($n-1));
}
sub M
{
my $n = shift;
return 0 if $n==0;
return $n - F(M($n-1));
}
my @ra = ();
my @rb = ();
for(my $i=0; $i < 20; $i++) {
push @ra, F($i);
push @rb, M($i);
}
print join(" ", @ra) . "\n";
print join(" ", @rb) . "\n";</lang>
=={{header|Python}}==
|