Textonyms: Difference between revisions

Content added Content deleted

Inline

@@ Line 920: / Line 920: @@
     (words "abc def ghi jkl mno pqrs tuv wxyz")
-ambiguousAndLongerSamples :: Int
+ambiguousAndLongerSamples
+  :: Int
-                         -> [[(String, String)]]
-                         -> [[[(String, String)]]]
+  -> [[(String, String)]]
+  -> [[(String, String)] -> Int]
-ambiguousAndLongerSamples n textonyms =
+  -> [[[(String, String)]]]
-  [take n . flip sortBy textonyms] <*>
+ambiguousAndLongerSamples n xs fs =
-  (flip . comparing <$> [length, length . snd . head])
+  [take n . flip sortBy xs] <*> (flip . comparing <$> fs)
 --------------------------- TEST ---------------------------
@@ Line 947: / Line 947: @@
     , ""
     ]
+  let codeLength = length . snd . head
-  let [ambiguous, longer] = ambiguousAndLongerSamples 5 textonyms
+      [ambiguous, longer] =
+        ambiguousAndLongerSamples 5 textonyms [length, codeLength]
-      [wa, wl] = maximum . fmap (length . snd . head) <$> [ambiguous, longer]
+      [wa, wl] = maximum . fmap codeLength <$> [ambiguous, longer]
   mapM_ putStrLn $
     "Five most ambiguous:" :