Data commit

Task/Anagrams/Transd/anagrams.transd

@@ -0,0 +1,17 @@
+#lang transd
+
+MainModule: {
+    _start: (λ
+        (with fs FileStream() words String()
+            (open-r fs "/mnt/proj/tmp/unixdict.txt")
+            (textin fs words)
+            ( -|
+               (split words)
+               (group-by (λ s String() -> String() (sort (cp s))))
+               (regroup-by (λ v Vector<String>() -> Int() (size v)))
+               (max-element)
+               (snd)
+               (textout)
+            )
+     ))
+}