diff options
| author | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-03-23 19:09:18 +0100 |
|---|---|---|
| committer | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-03-23 19:09:18 +0100 |
| commit | 59dfb47fb0716ff17bfc9889eb7f2e4dbf347d78 (patch) | |
| tree | 566736592df80b62baf820afaba610c52905ad42 | |
| parent | 43d3f2d6f66fe46910b9b2068504a62d4726683f (diff) | |
| download | perlweeklychallenge-club-59dfb47fb0716ff17bfc9889eb7f2e4dbf347d78.tar.gz perlweeklychallenge-club-59dfb47fb0716ff17bfc9889eb7f2e4dbf347d78.tar.bz2 perlweeklychallenge-club-59dfb47fb0716ff17bfc9889eb7f2e4dbf347d78.zip | |
whitespace
| -rw-r--r-- | challenge-053/markus-holzer/raku/ch-1.p6 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-053/markus-holzer/raku/ch-1.p6 b/challenge-053/markus-holzer/raku/ch-1.p6 index 47247f6c50..b9998bf735 100644 --- a/challenge-053/markus-holzer/raku/ch-1.p6 +++ b/challenge-053/markus-holzer/raku/ch-1.p6 @@ -1,7 +1,7 @@ multi sub MAIN( Int:D $degrees where * ~~ 90|180|270|360 ) { my @matrix[ 3, 3 ] = ( 1..9 ).batch( 3 ); - my $times = $degrees / 90; + my $times = $degrees / 90; clockwise( @matrix ) for ^$times; @@ -20,7 +20,7 @@ sub clockwise( @matrix ) { my $dj = $y - $j; my $di = $y - $i; - my $k = @matrix[ $i; $j ]; + my $k = @matrix[ $i; $j ]; @matrix[ $i; $j ] = @matrix[ $dj; $i ]; @matrix[ $dj; $i ] = @matrix[ $di; $dj ]; |