小编ohc*_*mel的帖子

我有一个(string * int) list元素列表，我需要找到最大的int元素并返回相应的(string * int)元素。

我有这样的atm，但问题是，我认为我的方法更多是“典型编程”

let it = [] in
for x = 0 to length LIST - 1 do
let str = ((List.nth LIST x).string) in
let num = ((List.nth LIST x).int) in
let it = it @ [num, str] in 
let (str, num) = List.hd(List.rev it) in
[str, num]

我想做的是循环遍历列表，并将字符串和int值添加到另一个列表中，然后对其进行排序，反转，然后使用head（应该是最大int），然后我需要返回该对 (string * int)