Eduardo Cavazos <[email protected]> writes: > This example showed up on the Perl 6 mailing list: > > if any(@new_values) > all(@existing_values) { > $upper_limit = [max] @new_values; > }
This is O(n^2).
How about
(let ((new-max (apply max new-values))
(old-max (apply max existing-values)))
(if (> new-max old-max)
(set! upper-limit new-max)))
--
Alex
