ngrams.hs

ngrams :: Int -> Text -> [Text]
ngrams !n =
    foldr f [] . T.tails
  where
    f e a
        | len == n  = gram : a
        | otherwise = a
      where
        !len  = T.length gram
        !gram = T.take n e