Data commit

Task/Abbreviations-automatic/Transd/abbreviations-automatic.transd

@@ -0,0 +1,13 @@
+#lang transd
+
+MainModule : {
+    _start: (λ
+        (with fs FileStream() words String()
+            (open-r fs "D:\\Temp\\wordlist.txt")
+            (for line in (read-lines fs) do
+               (with days (split line " ") len 0
+                  (for w in days do (for y in days do
+                    (if (neq w y) (= len (max len (coincide w y))))))
+                  (lout (+ len 1) " " days))
+   )   )   )
+}