Challenge 276 Solutions (Raku)

2 files changed, 23 insertions, 0 deletions

diff --git a/challenge-276/mark-anderson/raku/ch-1.raku b/challenge-276/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..0cb59634b5
--- /dev/null
+++ b/challenge-276/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,13 @@
+#!/usr/bin/env raku
+use Test;
+
+is complete-day([12,12,30,24,24]), 2;
+is complete-day([72,48,24,5]),     3;
+is complete-day([12,18,24]),       0;
+
+sub complete-day(@hours)
+{
+    @hours.combinations(2)
+          .grep({ .sum %% 24 }) 
+          .elems
+}
diff --git a/challenge-276/mark-anderson/raku/ch-2.raku b/challenge-276/mark-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..e481fb3ed7
--- /dev/null
+++ b/challenge-276/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,10 @@
+#!/usr/bin/env raku
+use Test;
+
+is max-freq([1,2,2,4,1,5]), 4;
+is max-freq([1,2,3,4,5]),   5;
+
+sub max-freq(@ints) 
+{
+    @ints.Bag.maxpairs>>.value.sum
+}