无过滤功能

Question

是否存在一个无点函数,filter用于查找列表中对的第一个元素的最小值？例如:

findMinimum xs =  filter ((== minimum (map fst xs)) . fst ) xs

-- example:
findMinimum [(0, 0), (0, 1), (2, 2), (3, 2), (1, 4)] = [(0, 0), (0, 1)]

如何将findMinimum函数转换为无点:

findMinimum = ??

Answer 1

pointfree.io输出这个,这不是太糟糕.不过,我仍然更喜欢原始代码.

findMinimum = filter =<< (. fst) . (==) . minimum . map fst