N-grams: Difference between revisions

Content added Content deleted
Line 347:
 
nGramCounts :: Int -> String -> M.Map String Int
nGramCounts n s =
foldr (flip (M.insertWith (+)) 1) M.empty . windows n▼
foldr
 
▲ (flip (M.insertWith (+)) 1)
 
M.empty
------------------------- GENERIC ------------------------
(windows n s)
 
windows :: Int -> [a] -> [[a]]
Retrieved from "https://rosettacode.org/wiki/N-grams"