Re: (Golf) Nearest Neighbors

A bit late, considering tilly's death-blow, er... swing, but here's one that merlyn might appreciate, weighing in at 84 chars:

sub nn {
  my($p,@l)=sort{$a<=>$b}@_;@{(sort{$$a[0]<=>$$b[0]}map[$_-$p,$p+0,$p=
+$_],@l)[0]}[1,2]
}
[download]

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print

Comment on Re: (Golf) Nearest Neighbors Download Code

Replies are listed 'Best First'.
Re: Re: (Golf) Nearest Neighbors by thospel (Hermit) on Oct 27, 2003 at 19:28 UTC
Just saw this thread. Here is a destructive (only works once) solution at 46: `sub nn{$a\|=$"x$_.1for@_;$b.=$"until$a=~/1$b(1)/;@a=@-}`	[reply] [d/l]
Re: Re: Re: (Golf) Nearest Neighbors by thospel (Hermit) on Oct 27, 2003 at 19:34 UTC
Ah, I should think a bit more before submitting. Here is a 44 (and I should also mention it only works for smallish natural numbers, all different and at least 2 arguments): `sub nn{$a\|=2x$_.3for@_;$b.=2until$a=~/3$b(3)/;@a=@-}` The need for the assign is a perlbug, otherwise it would be 41	[reply] [d/l]