Revision as of 23:33, 15 July 2020 (view source) Hout (talk \| contribs) m (→‎{{header\|Haskell}}) ← Older edit		Revision as of 23:37, 15 July 2020 (view source) Hout (talk \| contribs) m (→‎{{header\|Haskell}}) Newer edit →
Line 928: codeGroups = groupBy (on (==) snd) . sortOn snd $ encodings textonyms = filter ((1 <) . length) codeGroups digitCount = length . snd . head [ambiguous, longer] = [take 5 . flip sortBy textonyms] <*> (flip . comparing <$> [length, ~~length . snd . head~~digitCount]) [wa, wl] = maximum . map ~~(length . snd . head)~~digitCount <$> [ambiguous, longer] mapM_ putStrLn $ [ "There are " ++

Textonyms (view source)