F# 按索引排序

Question

假设我有两个列表:

let listOfValues = [100..105]   //can be list of strings or whatever
let indexesToSortBy = [1;2;0;4;5;3]

现在我需要 listOfValues_sorted : 102;100;101;105;103;104
可以用 zip 来完成和“转换”到元组:

let listOfValues_sorted = listOfValues 
                        |> Seq.zip indexesToSortBy
                        |> Seq.sortBy( fun x-> fst x)
                        |> Seq.iter(fun c ->  printfn "%i" (snd c))

但我想，有 更好的解决方案为了那个原因？

Answer 1

我认为您的解决方案非常接近。我会这样做

let listOfValues_sorted = 
    listOfValues 
    |> Seq.zip indexesToSortBy
    |> Seq.sortBy fst
    |> Seq.toList
    |> List.unzip
    |> List.head

你可以崩溃 fun x -> fst x简单地变成 fst .然后 unzip并获得您想要的任何 list