Task

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.




/findmax {
  dup 0 get exch    % put the first element underneath the array
  {max} forall      % replace it by the respective larger value if necessary
} def