haskell - 如何从列表中选择每个第 n 个元素

Question

这个问题已经有答案了:

已关闭 11 年前。

Possible Duplicate:
How to get every Nth element of an infinite list in Haskell?

简单的任务 - 我们有一个列表，并且只想保留该列表中的每个第 n 个元素。在 haskell 中最惯用的方法是什么？

从我的脑海中浮现出来的内容是这样的:

dr n [] = []
dr n (x : xs) = x : (dr n $ drop n xs)

但我有一种强烈的感觉，我把问题过于复杂化了。

Answer 1

我的变体是:

each :: Int -> [a] -> [a]
each n = map head . takeWhile (not . null) . iterate (drop n)

速度快，并且能很好地应对懒惰。