N-grams: Difference between revisions

Content added Content deleted

Inline

@@ Line 347: / Line 347: @@
 nGramCounts :: Int -> String -> M.Map String Int
-nGramCounts n s =
+nGramCounts n =
+  foldr (flip (M.insertWith (+)) 1) M.empty . windows n
-  foldr
-    (flip (M.insertWith (+)) 1)
-    M.empty
+------------------------- GENERIC ------------------------
-    (windows n s)
 windows :: Int -> [a] -> [[a]]