Re: Closest-value-in-list Golf!

by mr_mischief (Prior)

on May 31, 2001 at 06:55 UTC ( #84441=note: print w/ replies, xml )

Need Help??

Not the shortest, but this was what was obvious to me...


sub c {
  #_123456789_123456789_123456789_123456789_12345
   $i=pop;for(@_){$c=$_ if abs$i-$c>abs$i-$_}$c
}

[download]

Chris

Comment on Re: Closest-value-in-list Golf! Download Code

In Section Meditations

Node Status^?

node history
Node Type: note [id://84441]
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others examining the Monastery: (11)

As of 2013-06-19 10:52 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?