aboutsummaryrefslogtreecommitdiff
path: root/challenge-276
diff options
context:
space:
mode:
Diffstat (limited to 'challenge-276')
-rw-r--r--challenge-276/mark-anderson/raku/ch-1.raku13
-rw-r--r--challenge-276/mark-anderson/raku/ch-2.raku10
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
+}