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