diff options
| author | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-09-02 13:19:18 +0200 |
|---|---|---|
| committer | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-09-02 13:19:18 +0200 |
| commit | 84e72f5195e64ffb1e509812df8db0e01e7bf68c (patch) | |
| tree | 19f4b6f86a8e3c4b81aa0058c0fe722af3cfea65 | |
| parent | 452297c8a0b9bf0298f62d172ccb3bd79797b3c5 (diff) | |
| download | perlweeklychallenge-club-84e72f5195e64ffb1e509812df8db0e01e7bf68c.tar.gz perlweeklychallenge-club-84e72f5195e64ffb1e509812df8db0e01e7bf68c.tar.bz2 perlweeklychallenge-club-84e72f5195e64ffb1e509812df8db0e01e7bf68c.zip | |
initial
| -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 { |