Skip to content

Instantly share code, notes, and snippets.

@zarinfam

zarinfam/desort.hs

Created July 16, 2019 09:11
Show Gist options
  • Save zarinfam/a1b0b0d576a1ace1304640516a3d8ff4 to your computer and use it in GitHub Desktop.
Save zarinfam/a1b0b0d576a1ace1304640516a3d8ff4 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
desort.hs
import Data.List
import Data.Ord
main :: IO ()
main = print $ desort [2,8,7,10,1,9,5,3,4,6]
desort :: [Integer] -> [Integer]
desort = reverse . sort -- better use: sortOn Data.Ord.Down
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment