Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Re: Pascal triange...

by Abigail-II (Bishop)
on Jun 19, 2002 at 17:04 UTC ( #175779=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


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