Haskell: Sortieren nach Höhe in absteigender Reihenfolge

Question

Ich habe eine Liste der Liste als:

[[4,7,9],[7,4,9],[9,4,7],[5,8,9],[8,5,9],[9,5,8]]

sortiere ich sie umkehren wollen basierend auf Grundfläche (3. Seite)

zB. sort [[4,7,9],[5,8,9]] sollte [[5,8,9],[4,7,9]] seit 4 + 7 = 11 < 5 + 8 = 13

ich die folgende Funktion implementiert haben ergeben:

quicksort (s:xs) = quicksort[x | x <- xs, x!!0+x!!1 < s!!2] ++ [s] ++ quicksort[x | x <- xs, x!!0+x!!1 >= s!!2]

Aber es ist nicht die richtige Ausgabe geben.

Jede Hilfe wäre willkommen.

Answer 1

Warum nicht sortOn verwenden, die genau für diese Art (kein Wortspiel beabsichtigt) Ding gemacht wird? Dann können Sie diese in einer Zeile tun:

ghci> import Data.List (sortOn) 
ghci> sortOn (\[x,y,z] -> negate (x+y)) [[5,8,9],[4,7,9],[9,4,7],[8,5,9],[9,5,8],[7,4,9]] 
[[9,5,8],[5,8,9],[9,4,7],[8,5,9],[4,7,9],[7,4,9]] 

Davon abgesehen, wenn Sie Ihre innere Listen immer Länge 3 haben, sollten sie wahrscheinlich Tupeln stattdessen sein, in welchem ​​Fall würden Sie

ghci> sortOn (\(x,y,z) -> negate (x+y)) [(5,8,9),(4,7,9),(9,4,7),(8,5,9),(9,5,8),(7,4,9)] 
[(9,5,8),(5,8,9),(9,4,7),(8,5,9),(4,7,9),(7,4,9)]