14 lines
408 B
Text
14 lines
408 B
Text
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
|