Data commit

Task/Anagrams/Jq/anagrams-1.jq

@@ -0,0 +1,11 @@
+def anagrams:
+  (reduce .[] as $word (
+      {table: {}, max: 0};   # state
+      ($word | explode | sort | implode) as $hash
+      | .table[$hash] += [ $word ]
+      | .max   = ([ .max, ( .table[$hash] | length) ] | max ) ))
+  | .max as $max
+  | .table | .[] | select(length == $max) ;
+
+# The task:
+split("\n") | anagrams

Task/Anagrams/Jq/anagrams-2.jq

@@ -0,0 +1,7 @@
+$ jq -M -s -c -R -f anagrams.jq unixdict.txt
+["abel","able","bale","bela","elba"]
+["alger","glare","lager","large","regal"]
+["angel","angle","galen","glean","lange"]
+["caret","carte","cater","crate","trace"]
+["elan","lane","lean","lena","neal"]
+["evil","levi","live","veil","vile"]