Sortierung nach Array (gelöst) - #164412 (Allgemeines zu Perl)

murphy

2012-12-26 15:16

User since
2004-07-19
1776 Artikel
HausmeisterIn

Nach n Spalten zu sortieren heißt eigentlich, nach der ersten Spalte zu sortieren und Einträge bei denen die Werte in der ersten Spalte gleich sind nach den verbleibenden n-1 Spalten zu sortieren.

In Code für einen Vergleichsoperator zwischen zwei Arrayreferenzen übersetzt:

Code (perl): (dl )

use List::Util qw(min);

sub arraycmp {
  my ($a, $b) = @_;
  for my $_ (0 .. min($#$a, $#$b)) {
    my $d = $a->[$_] <=> $b->[$_];
    return $d unless $d == 0;
  }
  return 0;
}

When C++ is your hammer, every problem looks like your thumb.