my $max = topsort 1, @list; my $min = topsort -1, @list; [download]
In reply to Re^2: argmin & argmax by sleet in thread argmin & argmax by blokhead