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:

: supremum ( seq -- elt ) [ ] [ max ] map-reduce ;