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 + 1
|
|
|
| x::s -> List.fold_left (fun max el -> if el > max then el + 1 else max) (x + 1) s
|
|
|
|
