相关疑难解决方法(0)

我想提出一个接受列表并返回两个列表的功能:第一个是包含每个奇数项和第二个包含每个偶数项.

例如,给定[1;2;4;6;7;9],我想回来[ [1;4;7] ; [2;6;9] ].

到目前为止我写过这篇文章,我不知道如何进步.

let splitList list =
    let rec splitOdd oList list1 list2 =
        match oList with
        | [] -> []
        | head :: tail -> splitEven tail (list1::head) list2
    and splitEven oList list1 list2 =
        match oList with
        | [] -> []
        | head :: tail -> splitOdd tail list1 (list2::head)
    splitOdd list [] []

我正在尝试设置一些功能来帮助我正在处理的当前项目。我是 Haskell 的新手，正在努力实现我想要的功能。

我有一个列表，[a]并希望它输出四个不同列表的元组，其中列表([b],[b],[b],[b])中的每个项目[a]依次放入输出元组中的下一个列表。所以输入列表中的第一个元素[a]进入第一个列表[b]，第二个元素[a]进入第二个列表[b]，第三个元素[a]进入第三个列表[b]，依此类推。我曾尝试使用 chunksOf 和 splitEvery/splitAt 但无法获得正确的输出。和帮助将不胜感激！谢谢！