Merge pull request #3178 from pkmnx/branch-for-challenge-94

challenge #94, only ch. 1

1 files changed, 42 insertions, 0 deletions

diff --git a/challenge-094/pkmnx/raku/ch-1.raku b/challenge-094/pkmnx/raku/ch-1.raku
new file mode 100755
index 0000000000..2a5e699ae5
--- /dev/null
+++ b/challenge-094/pkmnx/raku/ch-1.raku
@@ -0,0 +1,42 @@
+#!/usr/bin/env raku
+
+# see usage:
+#
+#  pk@pkx:~/stuff/raku/perlweeklychallenge-club/challenge-094/pkmnx/raku$ echo "opt", "bat", "saw", "tab", "pot", "top", "was" | ./ch-1.raku
+#  Input: ("opt", "bat", "saw", "tab", "pot", "top", "was")
+#  Output: [
+#    ("bat", "tab"),
+#    ("saw", "was"),
+#    ("opt", "pot", "top") ]
+#
+
+sub MAIN() {
+
+   my $ws = [];
+   for lines() -> $l {
+      ( $l ~~ m:g:i/<[a .. z]>+/ ).map({ $ws.push( $_ ~ '' ) });
+   }
+   
+   die ("Not enough input words!") if $ws.elems < 1;
+
+   my $fn = -> $x { "(" ~ $x.map({ qq{"$_"} }).join(", ") ~ ")" };
+
+   printf "Input: %s\n", $fn($ws);
+
+   my $anag = {};
+   $ws.map( -> $w {
+      my $h = {};
+      $w.comb().map({ $h{$_}++ });
+      $anag{ 
+         $h.keys.sort().map({ ($_, $h{$_}).join("|") }).join(";");
+      }.push( $w );
+   });
+
+   my $out = [];  
+   for $anag.kv -> $k, $v {
+      $out.push( "   " ~ $fn($v) );
+   }
+
+   printf "Output: [\n%s ]\n",  $out.join(",\n");
+   
+}