F # Seq.sortBy dans l'ordre décroissant

Question

Je suis assez nouveau à F # et est venu par la fonction Seq.sortBy mais il est en train de trier ma liste dans l'ordre croissant. Comment l'obtenir pour trier dans l'ordre décroissant en utilisant le Seq.sort?

Par exemple, un exemple de code serait ...

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

me donne une sortie de 1 2 3 4 5 6 7 8 9 10, quand je veux vraiment le faire de 10 à 1.

Answer 1

En regardant les autres réponses, méfiez-vous unaire moins et MININT:

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|] 

Je pense que vous voulez réellement-x-moins-négatif :

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

pour un enveloppement autour du type entier qui s'étend sur -2^N..2^N-1.

Answer 2

Vous pouvez résoudre ce problème en fournissant une clé négative

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

en outre, il est un peu plus facile (et le type plus sûr) d'utiliser les fonctions printf pour l'affichage du texte en F #. Par exemple

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

Answer 3

encore plus court:

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

Answer 4

Si vous le savez, à l'avance, que vous aurez une séquence relativement faible, je pense que cela est plus facile à lire ...

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

Bien sûr, ce ne est pas conseillé si vous avez un séquence potentiellement très grande.

Answer 5

Tout d'abord, étendons Seq avec une fonction sortWith même que List et Array ont.

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

Ensuite, nous allons étendre Operators avec une fonction flip souvent utile.

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

Maintenant, nous pouvons tirer parti de la fonction compare générique générique (vous pouvez l'utiliser avec une séquence d'éléments comparables) et la sécurité (en ce qui concerne l'observation de Brian) sorte de séquence inverse.

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

Answer 6

Une autre option consiste à envelopper 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

Solutions qui utilisent moins unaire: (fun x -> -x - 1) et (fun x -> -x) ne fonctionnent pas lorsque vous avez des types non signés:

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 '~-' 

lieu nous pouvons utiliser le fait que -x = ~~~x + 1 où ~~~ est ab opérateur de négation de sens et ainsi -x - 1 = ~~~x.Ainsi, la solution à court qui fonctionne pour les deux types signés et non signés:

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

Exemples:

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) introduit Seq.sortByDescending et Seq.sortDescending

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

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