F # взять список, вернуть список кортежей

Question

Я провел некоторое исследование, и я вижу, что функция List.zip принимает два списка и возвращает один список кортежей, но как вы меняете один список в список кортежей?

let rec combinePair xs = 
    match xs with 
    | [] -> [] 
    | [x1] -> [] 
    | x1::x2::x3::xs -> [(x1, x2)] 
    | x1::x2::xs -> [(x1, x2)] 

Если нечетное число элементов существует в списке, то последний элемент должен быть отброшен, если четное число элементов существует, они должны быть возвращены в виде списка кортежей. Например

combinePair [x1; x2; x3; x4] = [(x1, x2); (x3, x4)] 

Answer 1

Ваш код почти там.

Вот мышление:

• когда дается пустой список, то результат будет пустой список (вы уже получили это).
• При заданном списке одного элемента в результате получается пустой список (полученный тоже).
• В противном случае первым элементом результата является кортеж, состоящий из первых двух элементов, а остальная часть результата - результат применения одного и того же процесса к остальной части ввода.

Это может быть почти одинаково переведено на F #:

let rec combinePair xs = 
    match xs with 
    | [] | [_] -> [] 
    | x1::x2::rest -> (x1, x2) :: (combinePair rest) 

(обратите внимание, как я объединил два первых случай на одной линии, [] | [_] ->)

Answer 2

Я уверен, что есть похорошевшие решения, но для тех, у кого есть аллергия на рекурсию:

let xsOdd = [1;2;3;4;5] 

List.chunkBySize 2 xsOdd 
    |> List.filter (fun x -> x.Length = 2) 
    |> List.map (fun x -> x.[0],x.[1]) 
//val it : (int * int) list = [(1, 2); (3, 4)]