RosettaCodeData/Task/Pascals-triangle/Perl-6/pascals-triangle-2.pl6

constant @pascal = [1], -> $prev { [0, |$prev Z+ |$prev, 0] } ... *;

.say for @pascal[^10];