note
jmcnamara
<br>Excellent solution.
The interesting thing about Perl Golf is how different people tackle problems in terms of their favourite tools; map, sort, regex, grep, closures, slices or whatever.
<br>
<br>Just for fun I ran your solutions through <a href=http://perltidy.sourceforge.net/>Perltidy</a> as a test case. Here is the output:
<code>
sub nn {
my @x = @_[0, 1];
@_ = sort {
abs $x[0] - $x[1] < abs $a - $b or @x = ($a, $b);
$a <=> $b;
} @_;
@x
}
sub nn {
() = sort {
abs $_[0] - $_[1] < abs $a - $b or @_ = ($a, $b);
$a <=> $b;
} @_;
@_
}
</code>
John.<br>-- <br>
<br><br>
69570
69875