【发布时间】：2014-01-04 00:23:30
【问题描述】：
如何为 Haskell 中的元组列表分配排名（考虑到关系）？理想情况下，想要一个给定元组列表的函数，会返回一个带有等级的元组列表。
样本输入（假设根据每个元组的snd升序排序）：
results1 = [("a",12),("b",56),("c",61),("d",73),("e",75),("f",75),("g",81),("h",82),("i",91),("j",97)]
样本输出：
[("a",1),("b",2),("c",3),("d",4),("e",5.5),("f",5.5),("g",7),("h",8),("i",9),("j",10)]
注意“e”和“f”并列，因此它们的等级（5 和 6）相加并除以 2。更一般地说，对于特定等级范围 [i..j]，任意 n 数量的并列都将获得相同等级的 sum [i..j] / n。
注意：我今天刚开始学习 Haskell（来自 Python 和 Java），所以我更愿意提供有用的提示而不是揭示答案。足以将我推向正确的解决方案。谢谢！
编辑/第 2 部分问题：好的，感谢 jamshidh、chunsof50 和 leftaroundabout，我想出了
sortStudents xs = sortBy (compare `on` snd) xs
prerankStudents xs = groupBy ((==) `on` (snd.fst)) (zip (sortStudents xs) [1..])
rankStudents xs = concat [ [if length ys > 1 then (a, fromIntegral (sum (map snd ys)) / fromIntegral (length ys)) else (a,fromIntegral c) | ((a,b),c) <- ys] | ys <- (prerankStudents . sortStudents) xs ]
我对 sortStudents 和 prerankStudents 比较满意，但是 rankStudents 感觉有点像我又在写 Python（列表理解） ，尽管我不确定在这种情况下这是好事还是坏事。我尝试使用 case..of 递归地实现 rankStudents，但消除错误似乎超出了我的想象。如果有人愿意向我详细解释为什么它不起作用，这是代码。
rankStudents xs = let ss = prerankStudents xs
rankStudents' ys = case ys of [] -> []
[((a,b),c)] -> [(a,c)]
(((a1,b1),c1):zs) -> [((fst.fst) tup, fromIntegral (sum (map snd ys)) / fromIntegral (length ys)) | tup <- ys]
y:ys -> rankStudents' y ++ rankStudents' ys
in rankStudents' ss
【问题讨论】：