path: root/lengthComp.hs

import Data.Monoid

lengthComp :: String -> String -> Ordering
lengthComp x y = (length x `compare` length y) `mappend` (x `compare` y)