diff options
| -rw-r--r-- | challenge-033/markus-holzer/perl6/ch-2.p6 | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/challenge-033/markus-holzer/perl6/ch-2.p6 b/challenge-033/markus-holzer/perl6/ch-2.p6 index abe1fdd28c..42113bf6e3 100644 --- a/challenge-033/markus-holzer/perl6/ch-2.p6 +++ b/challenge-033/markus-holzer/perl6/ch-2.p6 @@ -1,21 +1,21 @@ # this works for all n -sub MAIN( $n = 11 ) +sub MAIN( Int $n = 11 ) { my $ln = ( $n * $n ).Str.chars + 1; my $li = $n.chars + 1; - header( $n ); - line( $_, $n ) for ( 1 .. $n ); + header; + line $_ for ( 1 .. $n ); - sub line( $i, $n ) + sub line( $i ) { - my @n = ( ( $i .. $n ) X* $n ).map({ sprintf( "%{$ln}s", $_ ) }); + my @n = ( ( $i .. $n ) X* $i ).map({ sprintf( "%{$ln}s", $_ ) }); my @e = ( ' ' xx ( $ln * ( $i - 1 ) ) ); say sprintf( "%{$li}s", $i ), '|', @e.join, @n.join; } - sub header( $n ) + sub header { my @h = ( 1 .. $n ).map({ sprintf( "%{$ln}s", $_ ) }); say sprintf( "%{$li}s", "x" ), '|', @h.join; |