diff options
| author | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-03-23 20:51:30 +0100 |
|---|---|---|
| committer | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-03-23 20:51:30 +0100 |
| commit | 8dbce1c29cd484a611299b0ad487a63242dd8e97 (patch) | |
| tree | 47e15f8923c718f76a6bb2ec9d115cdf95ccacad | |
| parent | 43fc25061823b8be50afddb31efc35556a52ff5c (diff) | |
| download | perlweeklychallenge-club-8dbce1c29cd484a611299b0ad487a63242dd8e97.tar.gz perlweeklychallenge-club-8dbce1c29cd484a611299b0ad487a63242dd8e97.tar.bz2 perlweeklychallenge-club-8dbce1c29cd484a611299b0ad487a63242dd8e97.zip | |
improvities
| -rw-r--r-- | challenge-053/markus-holzer/raku/ch-1.p6 | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/challenge-053/markus-holzer/raku/ch-1.p6 b/challenge-053/markus-holzer/raku/ch-1.p6 index 1444bf6330..7fb7224910 100644 --- a/challenge-053/markus-holzer/raku/ch-1.p6 +++ b/challenge-053/markus-holzer/raku/ch-1.p6 @@ -1,9 +1,8 @@ -multi sub MAIN( Int:D $degrees where * %% 90 ) +sub MAIN( Int $degrees where * %% 90, :$size = 3 ) { - my @matrix[ 3, 3 ] = ( 1..9 ).batch( 3 ); - my $times = $degrees / 90; + my @matrix[ $size, $size ] = ( 1..$size² ).batch( $size ); - clockwise( @matrix ) for ^$times; + clockwise( @matrix ) for ^($degrees / 90); dd @matrix; } |