Je suis curieux, et je n'ai pas réussi à trouver une proposition pour quelque chose comme ça dans Haskell. Considérons si sort
avait été rédigée mais pas sortBy
.
sortBy :: forall a. (a -> a -> Ordering) -> [a] -> [a]
sortBy f = map getX . sort . map X
where
newtype X = X { getX :: a }
instance Ord X where
compare (X a) (X b) = f a b
Quelqu'un a-t-il vu cette proposition ?