in reply to Closest-value-in-list Golf!

Why are you using strict in golf if it is not required? 
sub g {$n=pop;$h{abs($_-$n)}=$_ for@_;@s=sort{$a<=>$b}keys%h;$h{shift@
+s};}

[download]
66 chars with strict off

Update 

sub g {$n=pop;$h{abs($_-$n)}=$_ for@_;@s=sort{$a<=>$b}keys%h;$h{shift@
+s}}

[download]
oops trailing ; is extraneous... 65 strokes...

Update2 oooh! 

sub g {$n=pop;$h{abs($_-$n)}=$_ for@_;$h{(sort{$a<=>$b}keys%h)[0]}}

[download]
59 strokes
                - Ant

Replies are listed 'Best First'.
(boo)Re: Re: Closest-value-in-list Golf -- or, a sorted affair.
by boo_radley (Parson) on May 29, 2001 at 18:38 UTC 
    sort{$a<=>$b}keys%h

    [download]
    is too much, since $a<=>$b is the default sort. that leaves you with 
    sub g {$n=pop;$h{abs($_-$n)}=$_ for@_;$h{(sort keys%h)[0]}}

    [download]
    for 52.
[reply]
[d/l]
[select]
      did you test this? i think you'll find that $a cmp $b is the default.

      "Argument is futile - you will be ignorralated!"

[reply]
[d/l]
      Test your code...

      that does not work... I tried it already... returns 20
                      - Ant

[reply]
        How strange. I was using a different data set when I tested this, and it returned the correct answer.

        Mea culpa.

[reply]

In Section Meditations