Zahlenbereich mit Ausnahmen definieren? (z.B. 1-10 ohne 5) (gelöst) (Allgemeines zu Perl)

[thread]15168[/thread]

Zahlenbereich mit Ausnahmen definieren? (z.B. 1-10 ohne 5) [gelöst]

Leser: 20

Articles: hide open all | hide show old branches

+5 replies
Sven_123

2010-06-21 10:10
User since
2010-06-01
120 Artikel
BenutzerIn
Ich möchte alle möglichen Kombinationen von Matrixelementen haben, bei denen alle Zeilen und Spalten nur jeweils einmal vorkommen. Die einfachste Möglichkeit sind, denke ich verschachtelte foreach-Schleifen, bei denen ich in den inneren Schleifen die außen benutzten Elemente nicht mehr benutze. Da hab ich aber weder im Buch, noch im Wiki, oder der perldoc einen Ausdruck für gefunden (wobei mir auch keine wirklich passenden Suchwörter einfallen). Das ^ der Regex geht aufjedenfall nicht (ein "(1..10^5)" gibt ein (1..15) - da muss ich auch nochmal suchen, warum*g).

Meine, wie ich finde etwas umständliche Lösung wäre:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12

@matrix=([0,1,2],[3,4,5],[6,7,8]); for $l (0..2){ for $k (0..2){ unless ($k==$l){ for $j (0..2){ unless (($j==$k) || ($j==$l)){ print "mach was mit $matrix[0][$l], $matrix[1][$k], $matrix[2][$j]\n"; } } } } }
Geht zwar noch, aber vor allem bei größeren Matrizen wäre es nett, die unless-Schleifen gleich in das for einbauen zu können.
- esskar
  
  2010-06-21 10:35
  
  User since
  2003-08-04
  7321 Artikel
  ModeratorIn
  
  schau dir mal Math::MatrixReal an.
- +3 replies
- murphy
  
  2010-06-21 10:39
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  2010-06-21T08:10:33 Sven_123
  Ich möchte alle möglichen Kombinationen von Matrixelementen haben, bei denen alle Zeilen und Spalten nur jeweils einmal vorkommen. Die einfachste Möglichkeit sind, denke ich verschachtelte foreach-Schleifen, bei denen ich in den inneren Schleifen die außen benutzten Elemente nicht mehr benutze. [...]
  
  In der Tat dürfte das eine vernünftige Lösung sein.
  
  Quote
  Da hab ich aber weder im Buch, noch im Wiki, oder der perldoc einen Ausdruck für gefunden (wobei mir auch keine wirklich passenden Suchwörter einfallen). Das ^ der Regex geht aufjedenfall nicht (ein "(1..10^5)" gibt ein (1..15) - da muss ich auch nochmal suchen, warum*g).
  [...]
  
  Das liegt daran, dass es keine spezielle Syntax dafür gibt, eine Liste natürlicher Zahlen in einem Bereich mit Ausnahme eines Wertes zu erstellen. Der Ausdruck (1..10^5) bedeutet "Liste aller Zahlen von 1 bis 10 xor 5" und 10 xor 5 ist halt 15.
  
  Du kannst aber einfach über mehrere Indexlisten iterieren. Also zum Beispiel so:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11
  
  use 5.012; use List::Util qw[min max]; for my $l (0..2) { for my $k (0..($l-1), ($l+1)..2) { my ($j1, $j2) = (min($l, $k), max($l, $k)); for my $j (0..($j1-1), ($j1+1)..($j2-1), ($j2+1)..2) { say "l = $l, k = $k, j = $j"; } } }
  
  Quote
  [...] die unless-Schleifen [...]
  
  Eine Abfrage mit if oder unless ist keine Schleife.
  When C++ is your hammer, every problem looks like your thumb.
  - +2 replies
  - Sven_123
    
    2010-06-21 11:12
    
    User since
    2010-06-01
    120 Artikel
    BenutzerIn
    
    Hmm...Danke euch beiden, bisher war es immer so, dass ich für Probleme die kurz zu beschreiben sind auch immer eine kurze Lösung in Perl gefunden hab, dachte, dass es sowas bestimmt auch gibt. Wenn das nicht der Fall ist, dann ist's auch nicht so wichtig - war eher aus Interesse...
    
    Die Bibliotheken (oder "Module"? Das ist etwas womit ich mich kaum beschäftigt hab) aus euren Vorschlägen klingen ganz gut, aber ich bin mir nicht so sicher, wie ich sie hier zum Laufen bekomm und da ich eh keine Adminrechte hab umgeh ich das lieber, meine derzeitigen Programme sind sowieso eher Kennenlern-Spielereien...
    - murphy
      
      2010-06-21 11:16
      
      User since
      2004-07-19
      1776 Artikel
      HausmeisterIn
      
      Das von mir verwendete Modul List::Util gehört seit Perl 5.8 zum Umfang der Perldistribution, das heißt man muss außer das use-Statement hinzuschreiben überhaupt nichts tun, um es zu verwenden.
      
      Dass ich ferner use 5.012 geschrieben habe ist hier eigentlich nur eine Abkürzung für "ich will use strict anschalten und die Funktion say verwenden".
      When C++ is your hammer, every problem looks like your thumb.

View all threads created 2010-06-21 10:10.