note
suaveant
Why are you using strict in golf if it is not required?
<CODE>
sub g {$n=pop;$h{abs($_-$n)}=$_ for@_;@s=sort{$a<=>$b}keys%h;$h{shift@s};}
</CODE>
66 chars with strict off
<P><B>Update</B>
<CODE>
sub g {$n=pop;$h{abs($_-$n)}=$_ for@_;@s=sort{$a<=>$b}keys%h;$h{shift@s}}
</CODE>
oops trailing ; is extraneous... 65 strokes...
<P><B>Update2</B>
oooh!
<CODE>
sub g {$n=pop;$h{abs($_-$n)}=$_ for@_;$h{(sort{$a<=>$b}keys%h)[0]}}
</CODE>
59 strokes
<BR> - Ant
83923
83923