Problem Statement

Create a function that returns the maximum value in a provided set of values, where the number of values may not be known until run-time.

Let's start with the solution:

let my_max = function
    [] -> invalid_arg "empty list"
  | x::xs -> List.fold_left max x xs