a naive solution to pwc 094.1

1 files changed, 26 insertions, 0 deletions

diff --git a/challenge-094/gugod/raku/ch-1.raku b/challenge-094/gugod/raku/ch-1.raku
new file mode 100644
index 0000000000..53ce4283e9
--- /dev/null
+++ b/challenge-094/gugod/raku/ch-1.raku
@@ -0,0 +1,26 @@
+sub MAIN {
+    my %g = group-anagrams( ['x'] );
+    say %g.gist;
+
+    %g = group-anagrams(  ["opt", "bat", "saw", "tab", "pot", "top", "was"] );
+    say %g.gist;
+}
+
+sub group-anagrams (@S) {
+    my %groups;
+    for @S -> $s {
+        my $group = %groups.keys.first(-> $it { is-anagram($s, $it) });
+        unless $group.defined {
+            $group = $s;
+            %groups{$group} = [];
+        }
+        %groups{$group}.push($s);
+    }
+    return %groups;
+}
+
+sub is-anagram (Str $a, Str $b) {
+    return False unless $a.chars == $b.chars;
+
+    return $a.comb.sort eq $b.comb.sort
+}