Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re: Closest-value-in-list Golf!

by ChOas (Curate)
on May 29, 2001 at 18:46 UTC ( #83955=note: print w/replies, xml ) Need Help??


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

55 ... and now I give up....

sub g{%_=map{abs$_[-1]-$_,$_}@_;$_{(sort{$a<=>$b}keys%_)[1]}}

GreetZ!,
    ChOas

print "profeth still\n" if /bird|devil/;