Teacup rim text: Difference between revisions

Content added Content deleted

Inline

@@ Line 551: / Line 551: @@
 anagrams :: [String] -> [[String]]
 anagrams ws =
-  let go x p
+  let harvest group px
-        | p = [fmap snd x]
+        | px = [fmap snd group]
         | otherwise = []
    in groupBy
         (on (==) fst)
         (sortOn fst (((,) =<< sort) <$> ws))
-        >>= (go <*> ((> 2) . length))
+        >>= (harvest <*> ((> 2) . length))
 circularOnly :: [String] -> [[String]]