Actualización de «Ordenación por el máximo»

He actualizado las soluciones del ejercicio Ordenación por el máximo cuyo enunciado es

Definir la función

ordenadosPorMaximo :: Ord a => [[a]] -> [[a]]

tal que

λ> ordenadosPorMaximo [[3,2],[6,7,5],[1,4]]
[[3,2],[1,4],[6,7,5]]
λ> ordenadosPorMaximo ["este","es","el","primero"]
["el","primero","es","este"]