67291c451f
* Create 01_countdown.pl Recursion example #1 written in Perl 5 * Create 02_greet.pl Recirsion example #2 written in Perl 5 * Create 03_factorial.pl Recursion example #3 written in Perl 5
16 lines
161 B
Perl
16 lines
161 B
Perl
sub countdown {
|
|
|
|
my $i = shift;
|
|
|
|
print "$i\n";
|
|
|
|
# base case:
|
|
return if $i <= 1;
|
|
|
|
# recursive case
|
|
countdown( $i - 1 );
|
|
|
|
}
|
|
|
|
countdown(5);
|