将等级分配给haskell中的元组列表

Question

如何将排名分配给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,chunksof50,并且左右我想出了

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(list comprehension),虽然我不确定在这种情况下它是好还是坏.我尝试使用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   

Answer 1

以下是一些您会发现有用的功能......

Data.List.groupBy
Data.List.sortBy --you won't actually need this if you assume the input is ordered, but I threw it in anyway
Data.Function.on
(==)

您可以按第二项对数据进行分组，然后使用递归来输出值，增加每个项目的排名...如果一组中的项目数大于 1，则只需增加该值，然后输出值根据组中的排名得出的平均值。

这足以让您继续下去，而无需给出完整的答案。