pascalstriangle.pl

use List::Util 'reduce';

sub pascal {
	my ( $x, @p, @q ) = shift;
	push @p, reduce { push @p, $a + $b; $b } 1, @q = @p, @p = () for 1 .. $x - 1;
	1, @p;
}