Textonyms: Difference between revisions

Content added Content deleted

Inline

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