diff options
| -rw-r--r-- | challenge-076/markus-holzer/raku/ch-2.golfed.raku | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/challenge-076/markus-holzer/raku/ch-2.golfed.raku b/challenge-076/markus-holzer/raku/ch-2.golfed.raku new file mode 100644 index 0000000000..a92512aef8 --- /dev/null +++ b/challenge-076/markus-holzer/raku/ch-2.golfed.raku @@ -0,0 +1,9 @@ +sub MAIN($W,$B){ +my@w=$W.IO.lines; +my@b=$B.IO.slurp.subst(' ',:g).lines; +my$w=@b[0].chars; +my@c=@b.map(|*.comb); +sub f($t){$t~"~"~$t.flip~~m:ex:i/@w/} +multi r{@c.batch($w),|((0,0),(0,1),(1,0)).map(&r)} +multi r($o){(^$w).map({@c[$_+$o[0],($_+$w+$o[1])...*]})} +.say for f r.flat.join}
\ No newline at end of file |