Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: Re: Binomial Golf

by chipmunk (Parson)
on May 30, 2001 at 18:19 UTC ( [id://84264] : note . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    sub p {
    map{$_[$_]+=$_[$_+1]for 0..$#_;@_=(1,@_);print"@_\n"}1..pop
    }
    
  2. or download this
    sub p {
    @_=(1,map$_[-2]+pop,@_),print"@_\n"for 1..pop 
    }