Бессмысленно для функции фильтра

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

другая реализация

head . groupBy ((==) `on` fst) . sortOn fst

сортировка и группировка по первым, выберите первый подсписок.Возможно, вы захотите явно обработать пустой список.

Answer 2

Помещая пару в Arg, вы получаете заказ на первый элемент, который вы можете использовать следующим образом:

import Data.Semigroup (Arg(..))
import Data.Ord (comparing)

findMinimum :: Ord a => [(a, b)] -> (a, b)
findMinimum = minimumBy (comparing (uncurry Arg))

Answer 3

pointfree.io выводит это, что не так уж плохо.Я все еще предпочитаю оригинальный код, хотя.

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