On 19.12.2011 19:29, Henning Thielemann wrote:

Shortest and most obfuscating solution I found is:


import Data.Ord (comparing)
import Control.Applicative ((<$))

compareLength :: [a] -> [a] -> Ordering
compareLength = comparing (()<$)

comparingLength = comparing void

It's two character shorter

_______________________________________________
Haskell-Cafe mailing list
Haskell-Cafe@haskell.org
http://www.haskell.org/mailman/listinfo/haskell-cafe

Reply via email to