path: root/challenge-003/ohmycloud/perl6/ch-1.p6

multi sub pascal (1) { $[1] }
multi sub pascal (Int $n where 2..*) {
    my @rows = pascal $n - 1;
    |@rows, [0, |@rows[*-1] Z+ |@rows[*-1], 0 ];
}

sub MAIN(Int $row) {
    .say for pascal $row;  
}