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