N-grams: Difference between revisions
m
→{{header|Haskell}}: Disaggregated one function, expanded range of test.
m (→{{header|Haskell}}: Disaggregated one function, expanded range of test.) |
|||
Line 354:
windows :: Int -> [a] -> [[a]]
windows n =
transpose :: [[a]] -> [[a]]
transpose [] = []
transpose xs = getZipList (traverse ZipList xs)
Line 367 ⟶ 371:
>> putStrLn ""
)
[
{{Out}}
<pre>
1-GRAMS:
(" ",3)
("A",1)
("D",1)
("E",3)
("I",2)
("L",3)
("N",1)
("T",1)
("V",2)
2-GRAMS:
(" A",1)
(" L",2)
| |||