F # 목록의 모든 항목 쌍 바꾸기

Question

쌍으로 항목을 서로 바꿀 수있는 좋은 방법이 있다는 것이 긍정적입니다 ([1; 2; 3; 4] -> [2; 1; 4; 3 ]) 내가 좋아하는 것에 너무 많은 덧붙이기를하고 있지만 최선의 방법을 잘 모르겠다.

let swapItems lst = 
    let f acc item = 
     match acc with 
     | [] -> [item] 
     | hd :: next :: tl when tl <> [] -> [next] @ tl @ [item;hd] 
     | _ -> item :: acc 
    List.fold f [] lst 

어떻게 향상시킬 수 있습니까? 이것은 짝수 길이의 목록에서만 작동합니다.

let rec swapItems = function 
    | [] 
    | _::[] as l -> l 
    | a::b::t -> 
     b::a::(swapItems t) 

:이 약

Answer 1

무엇입니까?

Answer 2

고차 함수를 사용하여이 수행 할 수 있습니다으로 :

let swapItems l = 
    l |> List.toSeq |> Seq.pairwise 
    |> Seq.mapi (fun i (a,b) -> if i % 2 = 0 then seq [b;a] else Seq.empty) 
    |> Seq.concat |> Seq.toList 

Answer 3

간단한 가능한 솔루션 : 나는 "복수"목록과 같은 순서입니다 변수의 이름을 좋아

let rec swapItems = function 
    | a::b::xs -> b::a::swapItems xs 
    | xs -> xs 

, 예를 들어, x 대신 xs

이것은 꼬리 재귀가 아니므로 매우 긴 목록을 제공하면 오버플로가 스택됩니다.