Textonyms: Difference between revisions
m
→{{header|Haskell}}
m (→{{header|Haskell}}: generalised a little) |
|||
Line 920:
(words "abc def ghi jkl mno pqrs tuv wxyz")
-> [[(String, String)]]
-> [[[(String, String)]]]
[take n . flip sortBy textonyms] <*>
(flip . comparing <$> [length, length . snd . head])
Line 948:
]
let [ambiguous, longer] =
[wa, wl] = maximum . fmap (length . snd . head) <$> [ambiguous, longer]
mapM_ putStrLn $
| |||