Data commit

Task/Anagrams/Pointless/anagrams.pointless

@@ -0,0 +1,14 @@
+output =
+  readFileLines("unixdict.txt")
+  |> reduce(logWord, {})
+  |> vals
+  |> getMax
+  |> printLines
+
+logWord(dict, word) =
+  (dict with $[chars] = [word] ++ getDefault(dict, [], chars))
+  where chars = sort(word)
+
+getMax(groups) =
+  groups |> filter(g => length(g) == maxLength)
+  where maxLength = groups |> map(length) |> maximum