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.




 
[1, 5, 20, 3, 9, 7] ... -> ..=Max&{by: :(), select: :()} -> !OUT::write
// outputs 20
 
// This is how the Max-collector is implemented in the standard library:
processor Max&{by:, select:}
  @:[];
  sink accumulate
    <?($@Max <=[]>)
      | ?($(by) <$@Max(1)..>)>  @Max: [$(by), $(select)];
  end accumulate
  source result
    $@Max(2) !
  end result
end Max
 