fixed oopsie, clearer scopes

1 files changed, 6 insertions, 6 deletions

diff --git a/challenge-033/markus-holzer/perl6/ch-2.pl6 b/challenge-033/markus-holzer/perl6/ch-2.pl6
index abe1fdd28c..42113bf6e3 100644
--- a/challenge-033/markus-holzer/perl6/ch-2.pl6
+++ b/challenge-033/markus-holzer/perl6/ch-2.pl6
@@ -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;