Textonyms: Difference between revisions
m
→{{header|Haskell}}: generalised a little
m (→{{header|Haskell}}: generalised a little) |
|||
Line 919:
(head . show <$> [2 ..])
(words "abc def ghi jkl mno pqrs tuv wxyz")
ambigousAndLongerSamples :: Int
-> [[(String, String)]]
-> [[[(String, String)]]]
ambigousAndLongerSamples n textonyms =
--------------------------- TEST ---------------------------
Line 940 ⟶ 948:
]
let [ambiguous, longer] = ambigousAndLongerSamples 5 textonyms
▲ [take 5 . flip sortBy textonyms] <*>
▲ (flip . comparing <$> [length, digitCount])
▲ [wa, wl] = maximum . map digitCount <$> [ambiguous, longer]
mapM_ putStrLn $
"Five most ambiguous:" :
| |||