Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- let best list =
- let best_score = ("", 0)
- let rec find_best l =
- match l with
- | (name, score)::xs when score > best_score -> best_score = (name, score)
- find_best xs
- | (_, _)::xs -> find_best xs
- | [] -> []
- best_score;;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement