Files
grokking_algorithms/03_recursion/perl6/01_countdown.p6
2018-01-04 06:46:31 -08:00

14 lines
178 B
Raku
Executable File

#!/usr/bin/env perl6
use v6.c;
# base case
multi countdown(0) { say 0 }
# recursive case
multi countdown($i where { $i > 0 }) {
say $i;
countdown $i-1;
}
countdown 5;