Anagrams: Difference between revisions
Content added Content deleted
(→{{header|Haskell}}: make more clear) |
(→{{header|Haskell}}: modified last line for formatted output) |
||
Line 33: | Line 33: | ||
wix = groupBy (groupon fst) . sort $ zip (map sort words) words |
wix = groupBy (groupon fst) . sort $ zip (map sort words) words |
||
mxl = maximum $ map length wix |
mxl = maximum $ map length wix |
||
print . |
mapM_ (print . map snd) . filter ((==mxl).length) $ wix |
||
</pre> |
</pre> |