note chipmunk My best was 59 characters: <code>sub p { map{$_[$_]+=$_[$_+1]for 0..$#_;@_=(1,@_);print"@_\n"}1..pop } </code> However, I can reduce japhy's solution from 56 to 45 characters: <code>sub p { @_=(1,map$_[-2]+pop,@_),print"@_\n"for 1..pop } </code> BTW, I find it amusing that monks are giving their golf subroutines one-letter names, when the subroutine name isn't counted in the length of the solution. :) <p> I was considering <code>sub pascal's_triangle {}</code> for this one. ;) 84150 84171