f# - 如何从 F# Seq 中获取成对的连续值

Question

我有一个序列 {"1";"a";"2";"b";"3";"c";...} .

我怎样才能把这个 seq 转换成 {("1","a");("2","b");("3","c");...}

Answer 1

这是一个非常聪明的解决方案:

let s = ["1";"a";"2";"b";"3";"c"]

let pairs s =
    s |> Seq.pairwise 
      |> Seq.mapi (fun i x -> i%2=0, x) 
      |> Seq.filter fst 
      |> Seq.map snd

printfn "%A" (pairs s)