Challenge 208 Solutions (Raku)

1 files changed, 21 insertions, 3 deletions

diff --git a/challenge-208/mark-anderson/raku/ch-1.raku b/challenge-208/mark-anderson/raku/ch-1.raku
index f3f080ea2e..d1318f5ac3 100644
--- a/challenge-208/mark-anderson/raku/ch-1.raku
+++ b/challenge-208/mark-anderson/raku/ch-1.raku
@@ -7,6 +7,23 @@ is-deeply min-index-sum(<A B C>, <D E F>), (), "Example 2";
 
 is-deeply min-index-sum(<A B C>, <C A B>), ("A",), "Example 3";
 
+is-deeply min-index-sum(<A F E B D>,
+                        <D C B F E>,
+                        <B A F E D>,
+                        <B D E A F>,
+                        <F D B E A>,
+                        <F D E B A>,
+                        <A C E D B>), ("B", "D"), "7 X 5";
+
+is-deeply min-index-sum(<F E I C K H B D J L>, 
+                        <H I B C K G J>, 
+                        <A D J G E K B C F H>, 
+                        <H G B D J K>, 
+                        <B F A J K E I C G H>, 
+                        <E I H K J A G>, 
+                        <L C F G H A D K J E>, 
+                        <E H J F I K L G>), ("H",), "Uneven";
+
 is-deeply min-index-sum(<V E T Y W J Z A H S D P F N C G X K B R L U O M Q>,
                         <G Q B P W I L N U K T V H C R A J D S O Y F E Z M>,
                         <B J X E P Q T W V H M G D C U N F I Z S O K R A L>,
@@ -16,7 +33,8 @@ is-deeply min-index-sum(<V E T Y W J Z A H S D P F N C G X K B R L U O M Q>,
                         <T A D V K P U S H W Z Q F I N M J C E Y L X R B O>,
                         <K X C F D Y J G A P E H Z M T B L S V U R O I N W>,
                         <Z D G R O P K Y H X B S T I V Q A N L F M U C E W>,
-                        <H C Q S J B D Y T W N E M P I V O R F G A L K U Z>), ("V",), "10 X 25";
+                        <H C Q S J B D Y T W N E M P I V O R F G A L K U Z>), ("P",), "10 X 25";
+
 
 is-deeply min-index-sum(<X W F Z S O B R E C A Q L D M V U H Y K G P T J I>,
                         <M R L W X F J I S B D G P Q Z V C O A E N T H Y K>,
@@ -42,11 +60,11 @@ is-deeply min-index-sum(<X W F Z S O B R E C A Q L D M V U H Y K G P T J I>,
                         <N X H M G J S V L U W Q I T Z A B E F O K R P Y D>,
                         <L O S X A U P R Q M Z J D V F E B N W K T Y I C H>,
                         <Z X S D H T O F L C Q G M P V B K E Y U A R I W J>,
-                        <S J C N P X T G B V D F A W M K L O H I Z U Y R E>), ("D", "E", "W"), "25 X 25";
+                        <S J C N P X T G B V D F A W M K L O H I Z U Y R E>), ("P",), "25 X 25";
 
 sub min-index-sum(+$a)
 {
     my $m := $a>>.antipairs>>.Map;
-    my $k := ([(&)] $m).keys;
+    my $k := ([(&)] $m>>.keys).keys;
     ($k Z=> [Z+] $m>>{$k}).Map.minpairs.Map.keys.sort
 }