Array in Hash transformieren (Allgemeines zu Perl)

[thread]16175[/thread]

Array in Hash transformieren

Tags: perl5 Ähnliche Threads

Leser: 24

Articles: hide open all | hide show old branches

+6 replies
rosti

2011-04-10 22:36
User since
2011-03-19
3194 Artikel
BenutzerIn
hi,

gegeben ist ein array
Code (perl): (dl )

qw(a b c d);
damit soll nun ein hash erzeugt werden, wo jedes Arrayelement auf den Nachfolger zeigt
Code (perl): (dl )

a => [b], b => [c], c => [d], d => []
Es sollte performant sein, da o.g. array selbst ein Element einer längeren Liste ist.

Mir fällt nichts ein, hat mal Jemand einen Denkanstoß?

Vielen Dank im voraus,
Rolf
- +2 replies
- topeg
  
  2011-04-10 23:17
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Meinst du so was?
  
  Code (perl): (dl )
  
  1 2 3
  
  my @list=qw(a b c d); my %hash; @hash{@list}=map{defined$_?[$_]:[]}(@list[1..$#list],undef);
  
  oder so:
  
  Code (perl): (dl )
  
  1 2
  
  my @list=qw(a b c d); my %hash=map{$list[$_] => exists$list[$_+1]?[$list[$_+1]]:[]}(0..$#list);
  
  Ohne mindestens einmal alle Elemente durch zu gehen geht es nicht, bei einem Array als Wert.
  - rosti
    
    2011-04-11 09:11
    
    User since
    2011-03-19
    3194 Artikel
    BenutzerIn
    
    Danke für den Ansatz!
    
    Eine kleine Iteration über ein kleines Array, was selbst ein Element einer größeren Liste ist, ist immer noch effektiver als eine Rekursion über die gesamte Liste, die mit meiner bisherigen Rekursion mehrfach durchlaufen wird.
    
    @clms: ja, ist klar, Modulo 2 darf keinen Rest ergeben.
    
    Viele Grüße, danke Euch.
- clms
  
  2011-04-10 23:18
  User since
  2010-08-29
  373 Artikel
  BenutzerIn
  2011-04-10T20:36:51 rosti
  gegeben ist ein array
  
  Code (perl): (dl )
  
  qw(a b c d);
  
  damit soll nun ein hash erzeugt werden, wo jedes Arrayelement auf den Nachfolger zeigt
  
  Mein erster Ansatz:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  my @array2 = @array; # @array: a => b, c => d shift @array2; # @array2: b => c, d => e # beide Arrays sollen eine gradzahlige Anzahl von Elementen haben => eines muss um 1 erweitert werden if (@array % 2) { push @array, undef; } else { push @array2, undef; } my %hash = (@array,@array2); # und fertig ist der Hash
  
  (ungetestet)
  
  2011-04-10T20:36:51 rosti
  
  Code (perl): (dl )
  
  a => [b], b => [c], c => [d], d => []
  
  Da zeigt jedes Element auf ein anonymes Array mit seinem Nachfolger als einzigem Element. Das leistet mein Code nicht.
  Last edited: 2011-04-10 23:23:48 +0200 (CEST)
- +2 replies
- moritz
  
  2011-04-11 09:46
  User since
  2007-05-11
  923 Artikel
  HausmeisterIn
  Ungetested:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  use 5.010; # fuer //=, kann man aber auch vermeiden wenn man will my @a = qw(a b c d e); my %h; for (0..($#a-1)) { push @{$h{$a[$_]}}, $a[$_+1]; } $h{$a[-1]} //= [];
  
  Die Idee ist, die Sonderbehandlung des letzten Elements aus der Schleife rauszuziehen, und in der Schleife auf Autovivification zu setzen.
  
  Gruesse,
  Moritz
  Perl 6 - Perls Zukunft
  - rosti
    
    2011-04-11 11:48
    
    User since
    2011-03-19
    3194 Artikel
    BenutzerIn
    
    hi Moritz,
    
    die Idee ist gut und der push ist auch gut, danke Dir!!

View all threads created 2011-04-10 22:36.