F＃ - 奇数 - 偶数リストのタプルに分割リストに（要素の位置ではなく、別）

Question

例：split [1;3;2;4;7;9];;
出力：([1;3;7;9], [2;4])

私はF＃に新たなんだと私はそれを把握することはできません。
組み込み関数partitionは使用できません。

これは私がこれまで持っているものです。

let rec split xs = 
    match xs with 
    | [] -> [], [] 
    | xs -> xs, [] 
    | xh::xt -> let odds, evens = split xt 
       if (xh % 2) = 0 then xh::odds, xh::evens 
       else xh::odds, evens 

固定コード：

let rec split xs = 
    match xs with 
    | [] -> [], [] 
    | xh::xt -> let odds, evens = split xt 
       if (xh % 2) = 0 then odds, xh::evens 
       else xh::odds, evens 

*私の誤りを指摘し@TheInnerLightのおかげ：到達できない場合や、不必要に修正オッズ

Answer 1

内蔵のList.partition機能を使用できます

let splitOddEven xs = 
    xs |> List.partition (fun x -> x % 2 <> 0) 

splitOddEven [1;3;2;4;7;9];; 
val it : int list * int list = ([1; 3; 7; 9], [2; 4]) 

あなたは再帰的な実装をしたい場合は、私はおそらくこのような末尾再帰の実装のために行くだろう：これはあなたに逆に2つの結果のリストを与えること

let splitOddEven xs = 
    let rec splitOddEvenRec oddAcc evenAcc xs = 
     match xs with 
     | [] -> oddAcc, evenAcc 
     | xh::xt -> 
      if (xh % 2) = 0 then splitOddEvenRec oddAcc (xh :: evenAcc) xt 
      else splitOddEvenRec (xh :: oddAcc) evenAcc xt 
    splitOddEvenRec [] [] xs 

splitOddEven [1;3;2;4;7;9] 

は注意注文することができます。