haskell - 如何在 Haskell 中检查一个字符串是否小于另一个字符串？

Question

我有两个字符串作为 Haskell 函数的参数。
s1小于 s2如果 s1短于 s2或者如果它们具有相同的长度和 s1按字典顺序小于 s2 .

如何在 Haskell 中实现这一点？

Answer 1

我会使用以下内容:

smaller :: String -> String -> Bool
smaller s1 s2 | len1 /= len2         = (len1 < len2)
              | otherwise            = (s1 < s2)
              where (len1, len2) = (length s1, length s2)

这是一个运行示例，在 Hugs 中:

主>较小的“b”“aa”
真的
主>较小的“aa”“b”
错误的
主>较小的“这个”“那个”
错误的
Main> 较小的“那个”“这个”
真的