sub g{%_=map{abs($_[-1]-$_[$_]),$_}(0..@_-2);$_[$_{(sort{$a<=>$b}keys% +_)[0]}]} [download]
In reply to Re: Closest-value-in-list Golf! by ChOas in thread Closest-value-in-list Golf! by larryk