From 307022f1e22dbc19320739e88977802ddd4cb580 Mon Sep 17 00:00:00 2001
From: "Markus \"Holli\" Holzer" <holli.holzer@gmail.com>
Date: Fri, 4 Sep 2020 00:59:43 +0200
Subject: golf

---
 challenge-076/markus-holzer/raku/ch-2.golfed.raku | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 challenge-076/markus-holzer/raku/ch-2.golfed.raku

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
-- 
cgit