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


in reply to Pascal's triangle...

<score>
sub pascal {
    my ($rows) = @_
    return $rows * ( $rows + 1 ) / 2;
}

[download]
</score>

Update: Nevermind, I missed your intent.

After Compline,
Zaxo

In Section Seekers of Perl Wisdom