F# - 使用序号排列对序列进行排序

要使用序号对序列进行排序，可以使用F#中的Seq.mapi函数来为每个元素添加一个序号。然后，可以使用Seq.sortBy函数按照序号进行排序。

下面是一个示例代码：

let sortWithIndex items =
    items
    |> Seq.mapi (fun index item -> (index, item))
    |> Seq.sortBy (fun (index, _) -> index)
    |> Seq.map (fun (_, item) -> item)

let items = [|"apple"; "banana"; "orange"; "grape"|]
let sortedItems = sortWithIndex items

printfn "Sorted Items:"
for item in sortedItems do
    printfn "%s" item

在上面的代码中，我们首先定义了一个sortWithIndex函数，它接受一个序列作为参数。然后，我们使用Seq.mapi函数遍历序列中的每个元素，并为每个元素添加一个序号。接下来，我们使用Seq.sortBy函数按照序号来对序列进行排序。最后，我们使用Seq.map函数从排序后的序列中提取出元素。

在示例中，我们使用一个包含水果名称的字符串数组作为输入。然后，我们调用sortWithIndex函数来对该数组进行排序，并将排序后的结果存储在sortedItems变量中。最后，我们使用printfn函数打印排序后的结果。

运行以上代码将输出以下结果：

Sorted Items:
apple
banana
orange
grape

根据序号的顺序，数组中的元素被正确地排序了。