按字母顺序排序

Question

我想创建一个函数，该函数将添加一个注册号加上一定的负时间。这是一个例子：

# enter_car "DEF456" (−4) [("ABC13", −2); ("GHI789", −3)];;
− : (string∗int) list = [("ABC13", −2); ("DEF456" , −4); ("GHI789", −3)]

我很确定我可以将("DEF456", -4)添加到列表中。问题是列表必须按字母顺序排序。如何根据注册号按字母顺序对列表进行排序？

Answer 1

此功能运行完美！

let enter_car registration_num time current_list = 
        let new_list = (registration_num, time)::current_list in 
        sort (fun (x, _) (y, _) -> String.compare x y) new_list;;