Rosetta Code

Anagrams: Difference between revisions

← Older editNewer edit →
Content deleted Content added
→‎{{header|Haskell}}: make more clear
Line 31:
f <- readFile "./../Puzzels/Rosetta/unixdict.txt"
let words = lines f
wix = groupBy (groupon fst) . sort $ zipWithzip ((,).map sort) words) words
mxl = foldl'maximum ((.length).max)$ 0map length wix
print . map (map snd) . filter ((==mxl).length) $ wix
 
Retrieved from "https://rosettacode.org/wiki/Anagrams"