在Haskell中，最常见的将函数应用于列表的第N个元素的方法是什么？

Question

在我遇到元素xs一些列表并想对第N个元素进行操作时，这是很常见的。 最简单的示例是筛子或Erastothenes，您要在其中“敲除”给定质数的每个倍数。 我可以采用的两种方式是通过计数器变量进行显式递归。 或zipWith ($) (cycle (replicate (n-1) id ++ f)) 。 那么哪种方法更好/更优雅/更常用，还是有一些我mapEveryN :: (a -> a) -> Int -> [a] -> [a]库函数，例如mapEveryN :: (a -> a) -> Int -> [a] -> [a] ？

Answer 1

正如您和bheklilr所提到的， cycle提供了一种实现此目标的好方法。 您可以稍微利用懒惰：

mapEvery :: Int -> (a -> a) -> [a] -> [a]
mapEvery n f = zipWith ($) (drop 1 . cycle . take n $ f : repeat id)

与组合了两个任务的手写递归函数相比，使用zipWith和cycle似乎更习惯（由简单行为组成的复杂行为）。

注意 ：此处的tail使该函数在n = 0不确定，因此最好使用drop 1 。

我知道没有为此提供的库函数。