Merge pull request #7055 from andemark/branch-for-challenge-190

Challenge 190 do-over (Raku)

2 files changed, 1 insertions, 25 deletions

diff --git a/challenge-190/mark-anderson/raku/ch-1.raku b/challenge-190/mark-anderson/raku/ch-1.raku
index 16b5ff297a..00301d78f5 100644
--- a/challenge-190/mark-anderson/raku/ch-1.raku
+++ b/challenge-190/mark-anderson/raku/ch-1.raku
@@ -8,5 +8,5 @@ ok  capital-detection("raku");
 
 sub capital-detection($s)
 {
-    any($s eq $s.tclc, $s eq $s.lc, $s eq $s.uc)
+    $s eq any($s.tclc, $s.lc, $s.uc)
 }
diff --git a/challenge-190/mark-anderson/raku/ch-2.raku b/challenge-190/mark-anderson/raku/ch-2.raku
deleted file mode 100644
index be1685915e..0000000000
--- a/challenge-190/mark-anderson/raku/ch-2.raku
+++ /dev/null
@@ -1,24 +0,0 @@
-#!/usr/bin/env raku
-use Test;
-
-is-deeply decode-counts(11),   < AA K >;
-is-deeply decode-counts(1115), < AAAE AAO AKE KAE KO >;
-is-deeply decode-counts(127),  < ABG LG >;
-
-# Not sure how to deal with zeros but this is what the program does.
-is-deeply decode-counts(1002001), < ABA ATA JBA JTA >;
-
-sub decode-counts($n)
-{
-    sub composition($_)
-    {
-        gather .fmt('%0' ~ $n.chars ~ 'b') ~~ m:g/(.)$0* <?{ take $/.pos - $/.from }>/
-    }
-
-    sort map
-    { 
-        my $c := $n.comb.rotor(composition($_))>>.join>>.Int;
-        next unless all($c) ~~ 1..26;
-        [~] $c.map({ chr($_+64) });
-    }, ^2**($n.chars-1) 
-}