sub sierpinski ($n) { my @down = '*'; my $space = ' '; for ^$n { @down = |("$space$_$space" for @down), |("$_ $_" for @down); $space x= 2; } return @down; } .say for sierpinski 4;
Last updated 11 months ago