list - 在不使用 sortBy 的情况下按第二个元素对元组列表进行排序

Question

假设函数的输入是:

[(6,-275),(3,123),(7,1000),(9,-572),(3,333),(1,-23)]

输出应该是:

[(9,-572),(6,-275),(1,-23),(3,123),(3,333),(7,1000)]

这是我要制作的功能:

sortBySnd :: Ord a => [(a,a)] -> [(a,a)]
sortBySnd [] = []
sortBySnd [(_,a),(_,b)]
    | a < b = [(_,a),(_,b)]
    | a > b = [(_,b),(_,a)]
    | a == b = [(_,a),(_,b)]

这当然是非常错误的，但我只是想展示我想要实现的目标。

对于排序函数，可以只使用mergesort或sortBy以外的一些内置排序函数。

Answer 1

这就是我的意思:

import Data.List (sort)
import Data.Tuple (swap)

sortT = map swap . sort . map swap