Rosetta Code

Textonyms: Difference between revisions

Page Discussion

Textonyms (view source)

Revision as of 10:33, 16 July 2020

No change in size ,  3 years ago
m
→‎{{header|Haskell}}
Line 920:
(words "abc def ghi jkl mno pqrs tuv wxyz")
 
ambiguousAndLongerSamples :: Int
:: Int
-> [[(String, String)]]▼
-> [[[(String, String)]]]
-> [[(String, String)] -> Int]
ambiguousAndLongerSamples n textonyms =▼
▲ -> [[[(String, String)]]]
[take n . flip sortBy textonyms] <*>▼
▲ambiguousAndLongerSamples n textonymsxs fs =
(flip . comparing <$> [length, length . snd . head])
▲ [take n . flip sortBy textonymsxs] <*> (flip . comparing <$> fs)
 
 
--------------------------- TEST ---------------------------
Line 947:
, ""
]
let codeLength = length . snd . head
let [ambiguous, longer] = ambiguousAndLongerSamples 5 textonyms
ambiguousAndLongerSamples 5 textonyms [length, codeLength]
[wa, wl] = maximum . fmap (length . snd . head)codeLength <$> [ambiguous, longer]
mapM_ putStrLn $
"Five most ambiguous:" :
Hout
9,659

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/254518"