list - 如何提取Haskell列表中偶数位置的元素

Question

亲爱的社区，您好，

我想获取列表中偶数位置的所有元素。它用于实现飞镖游戏。

例如[((3,20),(1,19),(2,17)),((3,20),(2,12),(2,19))] -> [((3,20),(1,19),(2,17))]
到目前为止，我已经尝试过:

positioneven n [] = []
positioneven n (x:xs) = if even n
                          then (x: positioneven n+1 xs)
                          else     positioneven n+1 xs

但这当然行不通。如果有人可以向我建议更好的解决方案，我会很高兴。

谢谢 !纳扎尔

Answer 1

一个的价格有两个有用的功能:

evens (x:xs) = x:odds xs
evens _ = []

odds (_:xs) = evens xs
odds _ = []