haskell - 返回两个字符串中较长的一个的优雅方式

Question

我正在尝试编写一个返回两个字符串中较长的一个的函数。到目前为止，这就是我所拥有的:

maxString :: String -> String -> String
maxString a b
    | (length a) > (length b) = a
    | otherwise = b

这行得通，但我想知道是否有更优雅的方式来编写它。注意:这两个参数不能在一个列表中。它们必须是单独的参数以允许柯里化(Currying)。

想法？

Answer 1

到目前为止，除了特净的所有答案都完全遍历了这两个论点。这个只遍历到较短的一端。

longest a b = l' a b where
  l' _ [] = a
  l' [] _ = b
  l' (_:ar) (_:br) = l' ar br