From 18d90c7251b84a8c81a1c5fae4852138133a5b33 Mon Sep 17 00:00:00 2001
From: "Markus \"Holli\" Holzer" <holli.holzer@gmail.com>
Date: Fri, 4 Sep 2020 01:36:48 +0200
Subject: initial

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

diff --git a/challenge-076/markus-holzer/raku/ch-1.raku b/challenge-076/markus-holzer/raku/ch-1.raku
new file mode 100644
index 0000000000..ee20eef772
--- /dev/null
+++ b/challenge-076/markus-holzer/raku/ch-1.raku
@@ -0,0 +1,13 @@
+my $N          = 1528;
+
+my @primes     = (2..^$N)
+    .grep( *.is-prime );
+
+my @candidates = @primes X @primes;
+
+my @solutions = @candidates
+    .grep( *.sum == $N )
+    .map( *.sort.cache )
+    .unique( with => &[~~] );
+
+.say for @solutions;
\ No newline at end of file
-- 
cgit 


From 68335325d590023de8c049cbbbbea1b62fa83665 Mon Sep 17 00:00:00 2001
From: "Markus \"Holli\" Holzer" <holli.holzer@gmail.com>
Date: Fri, 4 Sep 2020 02:02:33 +0200
Subject: whitespace

---
 challenge-076/markus-holzer/raku/ch-1.raku | 4 ++--
 challenge-076/markus-holzer/raku/ch-2.raku | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/challenge-076/markus-holzer/raku/ch-1.raku b/challenge-076/markus-holzer/raku/ch-1.raku
index ee20eef772..9741904c25 100644
--- a/challenge-076/markus-holzer/raku/ch-1.raku
+++ b/challenge-076/markus-holzer/raku/ch-1.raku
@@ -1,6 +1,6 @@
-my $N          = 1528;
+my $N = 1528;
 
-my @primes     = (2..^$N)
+my @primes = (2..^$N)
     .grep( *.is-prime );
 
 my @candidates = @primes X @primes;
diff --git a/challenge-076/markus-holzer/raku/ch-2.raku b/challenge-076/markus-holzer/raku/ch-2.raku
index f097c62e5d..19295ba61d 100644
--- a/challenge-076/markus-holzer/raku/ch-2.raku
+++ b/challenge-076/markus-holzer/raku/ch-2.raku
@@ -1,7 +1,7 @@
 unit sub MAIN($words-file, $board-file);
 
 my @words = $words-file.IO.lines;
-my @board = $board-file.IO.slurp.subst( ' ',:g ).lines;
+my @board = $board-file.IO.slurp.subst( ' ', :g ).lines;
 my $width = @board.head.chars;
 my @chars = @board.map: |*.comb;
 
-- 
cgit 


From 320384f8f628d11f7bc330ad494b80ef20a241b6 Mon Sep 17 00:00:00 2001
From: "Markus \"Holli\" Holzer" <holli.holzer@gmail.com>
Date: Fri, 4 Sep 2020 02:12:31 +0200
Subject: whitespace 2

---
 challenge-076/markus-holzer/raku/ch-2.raku | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/challenge-076/markus-holzer/raku/ch-2.raku b/challenge-076/markus-holzer/raku/ch-2.raku
index 19295ba61d..5847a91ed5 100644
--- a/challenge-076/markus-holzer/raku/ch-2.raku
+++ b/challenge-076/markus-holzer/raku/ch-2.raku
@@ -11,7 +11,7 @@ sub words-in( $text ) {
     $text ~'~'~ $text.flip ~~ m:ex:i/@words/ }
 
 sub rotated-data {
-    @chars.batch( $width ), |( (0,0),(0,1),(1,0) ).map: &rotate-data }
+    @chars.batch( $width ), |( (0,0), (0,1), (1,0) ).map: &rotate-data }
 
 sub rotate-data( @offsets ) {
-    (^$width).map: { @chars[ ($_ + @offsets[0]), ($_ + $width + @offsets[1]) ... * ] } }
\ No newline at end of file
+    (^$width).map: { @chars[ ($_ + @offsets[0]), ($_ + $width + @offsets[1]) ... * ] } }
-- 
cgit