Revision as of 23:22, 15 July 2020 view source Hout (talk \| contribs) 9,659 edits m →‎{{header\|Haskell}}: Tidied (version using traverse with Data.Map) ← Older edit		Revision as of 23:33, 15 July 2020 view source Hout (talk \| contribs) 9,659 edits m →‎{{header\|Haskell}} Newer edit →
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] <> ((flip . comparing) <$> [length, length . snd . head]) [wa, wl] = maximum . map (length . snd . head) <$> [ambiguous, longer] mapM_ putStrLn $

Textonyms: Difference between revisions