N-grams: Difference between revisions
Content added Content deleted
(→{{header|haskell}}: Added a Haskell version) |
|||
Line 344: | Line 344: | ||
import qualified Data.Map.Strict as M |
import qualified Data.Map.Strict as M |
||
----------------- MAP OF N-GRAM COUNTS ---------------- |
------------------- MAP OF N-GRAM COUNTS ----------------- |
||
nGramCounts :: Int -> String -> M.Map String Int |
nGramCounts :: Int -> String -> M.Map String Int |
||
Line 356: | Line 356: | ||
windows n = getZipList . traverse ZipList . take n . tails |
windows n = getZipList . traverse ZipList . take n . tails |
||
--------------------------- TEST ------------------------- |
|||
main :: IO () |
main :: IO () |
||
main = |
main = |