You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
let max_in_list = function
|
|
|
| [x] -> x
|
|
|
| x::s -> List.fold_left (fun max el -> if el > max then el else max) x s
|
|
|
|
