Select Code to Download

sub pascal {
    my @row = (0) x $_ [0];
...
        $row [$_] += $row [$_ - 1] for reverse 1 .. @row;
    }
}