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


in reply to Pascal's triangle...

#!/usr/bin/perl -wl

sub pascal {
  while (s/\d+(?= (\d+))/$&+$1/eg < shift) { s/^/1 /; print; }
}

[download]
Which is basically Re: Pascal triange... in essence.

In Section Seekers of Perl Wisdom