Data commit

Task/Anagrams/Ela/anagrams.ela

@@ -0,0 +1,14 @@
+open monad io list string
+
+groupon f x y = f x == f y
+
+lines = split "\n" << replace "\n\n" "\n" << replace "\r" "\n"
+
+main = do
+  fh <- readFile "c:\\test\\unixdict.txt" OpenMode
+  f <- readLines fh
+  closeFile fh
+  let words = lines f
+  let wix = groupBy (groupon fst) << sort $ zip (map sort words) words
+  let mxl = maximum $ map length wix
+  mapM_ (putLn << map snd) << filter ((==mxl) << length) $ wix