Help for this page

Select Code to Download

Select or download this

#!/usr/bin/env perl -l

...
print "max_key = $max_key; max_value = $max_value";
print "half = $half";
print "closest: BEFORE = $closest[0]->[0] AFTER = $closest[1]->[0]";

Select or download this

max_key = -2.4; max_value = 302
half = 151
closest: BEFORE = -2.5 AFTER = -2.1