Haskell 中是否有一个内置函数可以获取列表中大小为 n 的所有连续子序列？

例如，我需要一个函数：

gather :: Int -> [a] -> [[a]]
gather n list = ???

where gather 3 "Hello!" == ["Hel","ell","llo","ol!"].

我有一个有效的实现：

gather :: Int-> [a] -> [[a]]
gather n list = 
    unfoldr 
        (\x -> 
            if fst x + n > length (snd x) then 
                Nothing 
            else 
                Just 
                    (take 
                        n 
                        (drop 
                            (fst x)
                            (snd x)), 
                    (fst x + 1, snd x))) 
        (0, list)

但我想知道语言中是否已经内置了一些东西？我扫描了 Data.List 但没有看到任何内容。

你可以使用tails:

gather n l = filter ((== n) . length) $ map (take n) $ tails l

或使用takeWhile代替filter:

gather n l = takeWhile ((== n) . length) $ map (take n) $ tails l

编辑：您可以通过删除最后一个来删除过滤步骤n返回列表的元素tails正如评论中所建议的：

gather n = map (take n) . dropLast n . tails
  where dropLast n xs = zipWith const xs (drop n xs)