in reply to Closest-value-in-list Golf!
55 ... and now I give up....
GreetZ!,
print "profeth still\n" if /bird|devil/;
sub g{%_=map{abs$_[-1]-$_,$_}@_;$_{(sort{$a<=>$b}keys%_)[1]}}
GreetZ!,
- ChOas
print "profeth still\n" if /bird|devil/;
|
---|
In Section
Meditations