Teacup rim text: Difference between revisions
m
→Haskell :: Filtering anagrams
m (→Haskell Filtering anagrams: Tidied) |
|||
Line 551:
anagrams :: [String] -> [[String]]
anagrams ws =
let
|
| otherwise = []
in groupBy
(on (==) fst)
(sortOn fst (((,) =<< sort) <$> ws))
>>= (
circularOnly :: [String] -> [[String]]
| |||