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