diff options
| -rw-r--r-- | challenge-076/markus-holzer/raku/ch-2.raku | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/challenge-076/markus-holzer/raku/ch-2.raku b/challenge-076/markus-holzer/raku/ch-2.raku index fd5164fd31..51e37f950b 100644 --- a/challenge-076/markus-holzer/raku/ch-2.raku +++ b/challenge-076/markus-holzer/raku/ch-2.raku @@ -5,14 +5,14 @@ my @b = $fb.IO.lines( :chomp( False ) ).map: *.subst(' ', '', :g); my $c = @b.first.chars; my @c = @b.map( |*.comb ); -.say for sort map { | f r $_ }, 0, 90, 45, -45; +.say for map { | f r $_ }, 0, 90, 45, -45; multi r( 0 ) { @c.batch( $c ) } -multi r( 90 ) { r - 1, 0 } -multi r( 45 ) { r 0, 2 } -multi r( -45 ) { r -1, -1 } -multi r( $i, $j ) { - map { @c[ $_, ( $_ + $c + $j ) ... * ] }, ^$c - $i } +multi r( 90 ) { r 0, 0, 0 } +multi r( -45 ) { r 0, 1, 0 } +multi r( 45 ) { r 1, 0, 1 } +multi r( $i, $j, $o ) { + map { @c[ $_ + $o, ( $_ + $c + $j ) ... * ] }, ^$c - $i } sub f( @b ) { gather for @b>>.join -> $b { |