diff options
| author | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-09-04 00:59:43 +0200 |
|---|---|---|
| committer | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-09-04 00:59:43 +0200 |
| commit | 307022f1e22dbc19320739e88977802ddd4cb580 (patch) | |
| tree | 5f94687aaca4f45a9093524abbb7a35540fa7c1a | |
| parent | 727fbdf69816b094a2ed12642585a161673ec093 (diff) | |
| download | perlweeklychallenge-club-307022f1e22dbc19320739e88977802ddd4cb580.tar.gz perlweeklychallenge-club-307022f1e22dbc19320739e88977802ddd4cb580.tar.bz2 perlweeklychallenge-club-307022f1e22dbc19320739e88977802ddd4cb580.zip | |
golf
| -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 |