从列表中获取元素并以递归方式将它们成对添加F＃

Question

我刚开始我的F＃冒险而且被卡住了。 我想编写一个递归函数，它从列表中获取元素，成对添加它们并返回列表 - int list - >（int * int）列表

所以这样：[x1; X2; X3; x4] = [（x1，x2）;（x3，x4）]

这就是我现在所拥有的。

let rec combinePair xs = 
    match xs with
    |[] -> []
    |[x] -> [x]
    |x::y::xs' ->  (x,y)::combinePair xs'

这不起作用，但我觉得它可能接近答案。 我不知道怎么从这里继续。 正如我仍在努力学习，我希望也许有人可以指出我正确的方向，而不是给我完整的答案

干杯

Answer 1

我非常接近答案。 我忘了添加在包含奇数个元素的列表的情况下会发生什么。 在我的情况下，我只是想让它摆脱最后一个元素。 这是解决方案

let rec combinePair xs = 
  match xs with
  | [] -> []
  | [x] -> []
  | x::y::xs' -> (x,y)::combinePair xs'