http://www.perlmonks.org?node_id=176133


in reply to Pascal's triangle...

I dug this nugget out of my snippets directory. It's not mine and I don't know who to credit.

YuckFoo 

#!/usr/bin/perl
while((@_=(1,map$_[$_-1]+$_[$_],1..@_))<=$ARGV[0]){print"@_\n"}

[download]

In Section Seekers of Perl Wisdom