Textonyms: Difference between revisions
m
→{{header|Haskell}}
m (→{{header|Haskell}}: Tidied (version using traverse with Data.Map)) |
|||
Line 909:
digitEncoded :: M.Map Char Char -> [String] -> [(String, String)]
digitEncoded dict = mapMaybe $ ((>>=) . traverse (`M.lookup` dict)) <*> curry Just
charDict :: M.Map Char Char
Line 930:
[ambiguous, longer] =
[take 5 . flip sortBy textonyms] <*>
[wa, wl] = maximum . map (length . snd . head) <$> [ambiguous, longer]
mapM_ putStrLn $
|