Slice in vorderen Dimensionen eines mehrdimensionalen Arrays? (quasi @x[0..5][1]) (gelöst) (Raku / Perl 6)

[thread]16437[/thread]

Slice in vorderen Dimensionen eines mehrdimensionalen Arrays? (quasi @x[0..5][1]) [gelöst]

Tags: perl6 Ähnliche Threads

Leser: 23

Articles: hide open all | hide show old branches

+11 replies
Sven_123

2011-06-20 16:13
User since
2010-06-01
120 Artikel
BenutzerIn
Ich weiß grad weder in Perl5, noch in Perl6, wie das geht...
Ein zufälliger Codeblock meiner Testreihe (der natürlich nicht das macht, was ich möchte), falls jemand rumprobieren mag:
Code (perl): (dl )

1 2

my @x = [1,2],[3,4]; for @x[].[0] -> $i{say $i}
Edit: Obiges Beispiel hatte ich zum rumprobieren genommen, um zu sehen, was rauskommt. Letztendlich wollte ich das in nem Vergleich verwenden, bräuchte es also kompakter als es mit ner for-Schleife geht. (Ließe sich natürlich auch machen, würd aber lieber wissen wie (ob) es kürzer geht.)
Code (perl): (dl )

1 2

my @x = [1,2],[3,4]; if all(@x[1,2,3][0]) > 3{say "Alle über drei."}
Last edited: 2011-06-20 16:49:55 +0200 (CEST)
- +2 replies
- payx
  
  2011-06-20 16:32
  
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  
  Hallo Sven_123,
  
  in Perl 5 (z.B.): print $x[$_][0] for (0..5);
  
  HTH
  Grüße
  payx
  - Sven_123
    
    2011-06-20 16:43
    
    User since
    2010-06-01
    120 Artikel
    BenutzerIn
    
    Hm, schlechtes Beispiel...ich wollte in erster Linie die for-Schleife vermeiden, editier das oben nochmal rein.
    
    Danke trotzdem. :)
- +6 replies
- bianca
  
  2011-06-20 19:28
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Muss mal ganz doof fragen, ob das noch offen ist (hat zumindest keinen grünen Haken) und wenn ja, was da genau gebraucht wird.
  10 print "Hallo"
  20 goto 10
  - +5 replies
  - Sven_123
    
    2011-06-21 09:31
    User since
    2010-06-01
    120 Artikel
    BenutzerIn
    
    Das map von renee geht, trotzdem irgendwie unschön, wenn du also Alternativvorschläge hast... ;)
    
    Ich mach mal ein perl5-Beispiel, da kann ich z.B. schreiben:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6
    
    use strict; use warnings; my @x = ([2,8,3],[5,1,6],[9,7,4]); my $min_vec3 = (sort {$a <=> $b} @{$x[2]}[0..2])[0]; print "Kleinster Wert im dritten Vektor: $min_vec3\n";
    
    Wenn ich mir den Array als Matrix aufschreibe, in dem in jeder Spalte eine Arrayref steht:
    
    Code: (dl )
    
    1 2 3
    
    2 5 9 8 1 7 3 6 4
    
    kann ich also recht einfach slices innerhalb einer Spalte ausdrücken, aber nur recht umständlich innerhalb einer Zeile, also vom Prinzip ein:
    
    Code (perl): (dl )
    
    @{$x[0..2]}[0]
    
    in diesem Beispiel (2,5,9).
    
    Da perl6 ziemlich hübsche Spielereien für Arrays mitliefert, hätte ich gehofft, dass es, passend, eine einfache Syntax dafür mitliefert. Zwar vermute ich, dass Operationen auf Einträge verschiedener Arrays aus Speichergründen langsamer sind, aber manchmal ist es trotzdem praktisch und ich versteh nicht, warum man den Interpreter nicht einfach z.B. @x[0..2][0] genauso interpretieren lässt, wie @x[0][0..2]...
    - +4 replies
    - bianca
      
      2011-06-21 11:02
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      2011-06-21T07:31:21 Sven_123
      Das map von renee geht, trotzdem irgendwie unschön, wenn du also Alternativvorschläge hast... ;)
      
      Bei solchen kleinster und größter Wert wurde mir mal List::Util empfohlen. Hab noch nicht probiert, ob das hierfür tauglich ist. Und das wirst du wahrscheinlich kennen und schon selbst probiert haben.
      10 print "Hallo"
      20 goto 10
      - +3 replies
      - Sven_123
        
        2011-06-21 11:21
        
        User since
        2010-06-01
        120 Artikel
        BenutzerIn
        
        Ne, kenn mich bei den Modulen kaum aus (zumal das ja eh nur eine perl5-Lösung wäre) - mir geht es aber so und so nicht darum, was mit dem slice gemacht wird, sondern wie ich ihn generell ausdrücke (bzw. ob es möglich ist, in perl6).
        
        perl5 ist mit renees Antwort im Grunde beantwortet.
        
        +2 replies
        
        moritz
        
        2011-06-21 11:43
        
        User since
        2007-05-11
        923 Artikel
        HausmeisterIn
        
        In Perl 6 sollte es moeglich sein, solange du es so schreibst (bisher implementiert das aber noch kein Compiler):
        
        Code: (dl )
        
        my @first-dimension = @arr[1..3; 0];
        
        Perl 6 - Perls Zukunft
        
        Sven_123
        
        2011-06-21 11:47
        
        User since
        2010-06-01
        120 Artikel
        BenutzerIn
        
        Schade - aber vielen Dank.
        Dann muss ich zwar eine zusätzliche Schleife einbauen, aber wenigstens die Neugier ist befriedigt. ;)
- +2 replies
- renee
  
  2011-06-20 20:14
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Code (perl): (dl )
  
  1 2 3 4
  
  my @x = [1,2],[3,4]; if all( map{ $x[$_]->[0]}(1..3) ) > 3 ){ say "Alle über drei." }
  
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - Sven_123
    
    2011-06-21 09:33
    User since
    2010-06-01
    120 Artikel
    BenutzerIn
    
    Vielen Dank, so müsste es gehen. Ich probier's gleich mal aus. :)
    
    Edit: Geht in perl6 leider doch nicht...
    
    Code (perl): (dl )
    
    1 2 3 4 5
    
    my @x = [1,2],[3,4]; if all( map{@x[$_].[0]}(0..1) ) > 3 { say "Alle über drei."; }
    
    Edit2: Ich glaub meine map-Syntax ist irgendwie falsch...
    
    Edit3: Allerdings geht auch die Syntax, die ich von moritz' Seite hab so nicht:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7
    
    my @y = 1,2,3; say ~(@y.map: * +3); #4 5 6 -> Geht my @y = 0,1; my @x = [1,2],[3,4]; for (@y.map: @x[*][0]) -> $i{say $i} #Liefert nen Fehler den ich nicht wirklich versteh...
    
    Last edited: 2011-06-21 10:46:05 +0200 (CEST)

View all threads created 2011-06-20 16:13.