比较，但返回最小的比较。

Question

我比较列表的长度和第一个元素的大小，这样：

(maximumBy (comparing length <> comparing head)) sx

此代码返回最长的列表，如果有多个长度相同的列表，它将返回具有最大第一个元素的列表。

是否有一种简单的方法可以将其修改为返回第二个比较，以返回具有最小第一个元素的比较？

Answer 1

这就是为什么Down newtype存在的原因:反向排序。像这样使用它：

import Data.Ord

(maximumBy (comparing length <> comparing (Down . head))) sx