Alternative zu List::Compare, die die order behaelt (Fragen zu Perl-Modulen)

[thread]17182[/thread]

Alternative zu List::Compare, die die order behaelt

Tags: perl5 list::compare Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+4 replies
Liffi

2012-02-22 15:15

User since
2011-11-17
27 Artikel
BenutzerIn

Nachdem sich mein Problem gestern geloest hat (quasi von selbst, danke nochmal @pq), bin ich auf der Suche nach einem Modul, dass die Funktionen get_intersection und get_unique von List::Compare implementiert, _ohne_ die Reihenfolge der Element anzufassen.
Hierbei wird eine beliebige Zahl von Arrays uebergeben, die Reihenfolge der gleichen Elemente ist dabei immer gleich.

Ich vermute mal, ich bin bisher nicht fuendig geworden, weil ueblicherweise die Elemente in uebergebenen Arrays nicht die gleiche Reihenfolge haben.

Eine Alternativloesung koennte auch sein, die Ausgabe von get_intersection mithilfe eines der urspruenglichen Arrays zu sortieren.
Gibt es dabei einen besonders geschickten Weg (evtl. mit compare)?
- +3 replies
- Liffi
  
  2012-02-23 06:39
  User since
  2011-11-17
  27 Artikel
  BenutzerIn
  2012-02-22T14:15:27 Liffi
  Eine Alternativloesung koennte auch sein, die Ausgabe von get_intersection mithilfe eines der urspruenglichen Arrays zu sortieren.
  Gibt es dabei einen besonders geschickten Weg (evtl. mit compare)?
  
  So, ich hab mich mal an einer ersten Loesung davon versucht.
  @lists ist ein Array von Referenzen auf Arrays.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  my $lc = List::Compare->new(@lists); my @common = $lc->get_intersection(); my @common_orig_order; for my $elem (@{$lists[1]}) { push(@common_orig_order, $elem) if (grep (($_ eq $elem), @common)); }
  
  Ich hab aber das Gefuehl, es wuerde noch einfacher/besser gehen.
  - +2 replies
  - pq
    
    2012-02-23 18:48
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    du könntest höchstens die elemente von @common in einen hash packen, dann brauchst du nicht jedesmal mit einem grep drüberzulaufen:
    
    Code (perl): (dl )
    
    1 2 3 4
    
    my %common = map { $_ => 1 } %common; # schleife push @common_orig_order, $elem if $common{ $elem };
    
    denke nicht, dass das modul dafür was bietet, denn mengen sind ja im prinzip nicht sortiert, und bei einer intersection müsstest du dann eben auch definieren, nach der reihenfolge welcher der input-listen sortiert werden soll.
    Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
    lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - Liffi
      
      2012-02-24 06:30
      
      User since
      2011-11-17
      27 Artikel
      BenutzerIn
      
      2012-02-23T17:48:53 pq
      
      Code (perl): (dl )
      
      my %common = map { $_ => 1 } %common;
      
      Das muesste @common am Ende heissen, oder?
      
      Quote
      denke nicht, dass das modul dafür was bietet, denn mengen sind ja im prinzip nicht sortiert, und bei einer intersection müsstest du dann eben auch definieren, nach der reihenfolge welcher der input-listen sortiert werden soll.
      
      Ja, das habe ich auch vermutet. Es stecken einfach zu viele Spezialannahmen in meinem Fall drin.

View all threads created 2012-02-22 15:15.