Mutual recursion: Difference between revisions
Content added Content deleted
(awk) |
(perl (v0)) |
||
| Line 183: | Line 183: | ||
disp(ra); |
disp(ra); |
||
disp(rb);</lang> |
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}}== |
=={{header|Python}}== |
||