list - 如何将一个列表按偶数和奇数位置拆分为两个列表？

Question

我想按位置将任意元素列表拆分为两个包含所有偶数和奇数元素的新列表。

示例:有了这样的列表:

["a", "b", "c", "d", "e"]

如何获得两个这样的列表:

(["a", "c", "e"], ["b", "d"])

Answer 1

单次传递和更少的代码:

evensAndOdds : List a -> (List a, List a)
evensAndOdds =
  List.foldr (\item (a, b) -> (item :: b, a)) ([], [])

这里的技巧是在每次迭代时切换返回元组元素的位置，从而交替附加到哪个元组，而不必跟踪索引。