Merge pull request #4557 from andemark/branch-for-challenge-122

initial 122

2 files changed, 32 insertions, 0 deletions

diff --git a/challenge-122/mark-anderson/raku/ch-1.raku b/challenge-122/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..02ffa0bb96
--- /dev/null
+++ b/challenge-122/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,16 @@
+#!/usr/bin/env raku
+
+use Test;
+plan 6;
+
+is-deeply avg-seq(1 ... ∞),      (1, 1.5 ... 10.5)>>.narrow;
+is-deeply avg-seq(1, 3 ... ∞),   (1 ... 20);
+is-deeply avg-seq(2, 4 ... ∞),   (2 ... 21);
+is-deeply avg-seq(3, 6 ... ∞),   (3, 4.5 ... 31.5)>>.narrow;
+is-deeply avg-seq(4, 8 ... ∞),   (4, 6 ... 42);
+is-deeply avg-seq(10, 20 ... ∞), (10, 15 ... 105);
+
+sub avg-seq($seq)
+{
+    $seq.head(20).map({ .narrow with (state $sum += $_) / ++$ });
+}    
diff --git a/challenge-122/mark-anderson/raku/ch-2.raku b/challenge-122/mark-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..1bcac2dff3
--- /dev/null
+++ b/challenge-122/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,16 @@
+#!/usr/bin/env raku
+
+unit sub MAIN(UInt $S);
+
+.say for b-ball-points($S);
+
+multi b-ball-points($S where * == 1) { (1,), }
+multi b-ball-points($S where * == 2) { (1, 1), (2,) }
+multi b-ball-points($S where * == 3) { (1, 1, 1), (1, 2), (2, 1), (3,) } 
+    
+multi b-ball-points($S) 
+{
+    (1..2**($S-1)-1)
+    .map({ (.fmt('%0' ~ $S ~ 'b') ~~ m:g/ (.) [$0+]? /).map({ .chars }) })
+    .grep({ .cache.all < 4 })
+}