Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: (Golf) Nearest Neighbors

by snowcrash (Friar)
on Apr 04, 2001 at 13:27 UTC ( #69593=note: print w/replies, xml ) Need Help??


in reply to (Golf) Nearest Neighbors

# 79 chars sub nn9 { @_=sort@_;$_{$_[$_]-$_[$_-1]}=[@_[$_-1,$_]]for 1..$#_;@{$_{(sort key +s%_)[0]}} }

snowcrash //////

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://69593]
help
Chatterbox?
[Corion]: Discipulus: I have to admit that nowadays I either use Path::Class or use File::Find or simply File::Glob:: bsd_glob to read a directory, depending on how fancy my needs are
[shmem]: Discipulus: while (readdir DIR) works fine
[Discipulus]: Eataly vs World(coffe) ;=)
[Discipulus]: shemem i wrote it directly.. but when i tested it i got a lot of 'undefined value..'
[Corion]: Oh, poor Trump can't get a break. Even the Vatican only sends the second in command to greet him...
[shmem]: Discipulus: readdir has the same semantics as readline (a.k.a <>). Have another coffee ☕ ;-)
[Discipulus]: ah! just with my old system perl (5.8.8) was needed

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (8)
As of 2017-05-26 07:30 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?