F＃Seq.sortBy按降序排列

Question

我对F＃来说相当新，并且由Seq.sortBy函数提供，但它按升序对我的列表进行排序。如何使用Seq.sort以降序排序？

例如示例代码将是...

let DisplayList = 
seq{0..10} 
|> Seq.sortBy(fun x -> x) 
|> Seq.iter(fun x -> Console.WriteLine(x.ToString())) 

给我的1 2 3 4 5 6 7 8 9 10的输出，当我真的希望它做它从10到1。

Answer 1

看着其他的答案，谨防元减号和内政部：

let a = [| 1; -1; System.Int32.MinValue; 0; System.Int32.MaxValue; 1 |] 

printfn "%A" (a |> Array.sortBy (fun x -> x)) 
// [|-2147483648; -1; 0; 1; 1; 2147483647|] 

printfn "%A" (a |> Array.sortBy (fun x -> -x)) // uh-oh! 
// [|-2147483648; 2147483647; 1; 1; 0; -1|] 

我想到你居然要负-X减一：

printfn "%A" (a |> Array.sortBy (fun x -> -x - 1)) 
// [|2147483647; 1; 1; 0; -1; -2147483648|] 

换行大约整数类型，跨越-2^N..2^N-1。

Answer 2

可以通过提供一个负的关键

let DisplayList = 
    seq { 0..10 } 
    |> Seq.sortBy (fun x -> -x) 
    |> Seq.iter (fun x -> Console.WriteLine(x.ToString())) 

解决这个问题也很简单一点（和类型安全）使用printf功能在F＃显示文本。例如

let DisplayList = 
    seq { 0..10 } 
    |> Seq.sortBy (fun x -> -x) 
    |> Seq.iter (printfn "%d") 

Answer 3

更短：

seq { 0..10 } 
    |> Seq.sortBy (~-) // Unary minus 
    |> Seq.iter (printfn "%d") 

Answer 4

如果你知道，时间提前，那你就会有一个比较小的顺序，我认为这是更具可读性...

let x = seq { 0.. 10 } |> Seq.toArray |> Array.rev

当然，如果你有其不可取可能非常大的序列。

Answer 5

首先，让我们将Seq与sortWith函数相同的功能与List和Array一样。

namespace Microsoft.FSharp.Collections 
module Seq = 
    let sortWith f e = 
     let e' = e |> Seq.toArray 
     e' |> Array.sortInPlaceWith f 
     e' |> Seq.readonly 

接下来，让我们扩展Operators与经常有用flip功能。现在

namespace Microsoft.FSharp.Core 
module Operators = 
    let flip f x y = f y x 

，我们可以利用通用compare功能一般（你可以使用这个相媲美元素的任意序列）和安全（关于Brian的观察）相反的顺序排序。

{0..10} 
|> Seq.sortWith (flip compare) 
|> Seq.iter (printfn "%A") 

Answer 6

另一种选择是包装System.Linq.Enumerable.OrderByDescending()：

// #r "System.Core" 
module Seq = 
    let sortByDesc f s = Enumerable.OrderByDescending(s, new Func<'a, 'b>(f)) 

{0..10} |> Seq.sortByDesc (fun x -> x) 

Answer 7

解决方案使用一元减：

let a = [| 0uy; 255uy; 254uy; 1uy |] 
printfn "%A" (a |> Array.sortBy (fun x -> -x - 1)) 
// error FS0001: The type 'byte' does not support the operator '~-' 

相反：(fun x -> -x - 1)和(fun x -> -x)当你拥有无符号类型不工作我们可以使用-x = ~~~x + 1其中~~~是ab的事实因此否定运营商，因此-x - 1 = ~~~x。因此，对于这两种符号和无符号类型作品的简短的解决方案：

Array.sortBy (~~~) // equivalent to Array.sortBy (fun x -> ~~~x) 

例子：

let a = [| 0uy; 255uy; 254uy; 1uy |] 
printfn "%A" (a |> Array.sortBy (~~~)) 
// [|255uy; 254uy; 1uy; 0uy|] 
let a = [| 1; -1; System.Int32.MinValue; 0; System.Int32.MaxValue; 1 |] 
printfn "%A" (a |> Array.sortBy (~~~)) 
// [|2147483647; 1; 1; 0; -1; -2147483648|] 

Answer 8

F＃4.0（Visual Studio的2015年）推出Seq.sortByDescending和Seq.sortDescending

let DisplayList = 
    seq { 0..10 } 
    |> Seq.sortDescending   ' or |> Seq.sortByDescending id 
    |> Seq.iter Console.WriteLine 

见https://github.com/Microsoft/visualfsharp/wiki/F%23-4.0-Status和https://github.com/fsharp/FSharpLangDesign/blob/master/FSharp-4.0/ListSeqArrayAdditions.md