Spielpartien aus Namensliste generieren (Allgemeines zu Perl)

[thread]13653[/thread]

Spielpartien aus Namensliste generieren

Leser: 19

Articles: hide open all | hide show old branches

+2 replies

timo

2009-06-22 00:54

User since
2009-06-22
1 Artikel
BenutzerIn
[default_avatar]

Hallo Leute,

ich versuche mich gerade an folgender Problemstellung.
Ich habe eine Liste mit Namen und möchte aus dieser Liste Spielbegegnungen (jeder gegen jeden)
generieren. Das bekomme ich auch hin. .
Ich möchte nun aber die Begegnungen immer aus der Sicht jedes Spielers auflisten. Wie mache ich es, dass wenn
1. Max - Hans spielt, es immer auch die erste Partie für den Gegner hier also Hans auf dessen Liste ist?
Geht sowas überhaupt?

Hier ist mein bisheriger Code der zwar Begegnungen generiert aber leider eben das gerade genannten Problem nicht löst.

Code: (dl )

#!/usr/bin/perl

@spieler=("max","hans","franz","klaus");

print "Automatischer Spieplan ";

$anzahl=scalar(@spieler);



for ($i = 0;$i < $anzahl;$i++)


{
 print "\n";	
 print "Alle Partien fuer Spieler "."''" .$spieler[$i] ."'' ".": ";
 print "\n";	
           for ($j = 1;$j<$anzahl;$j++)
            {
            
             
              if ($i != $j)
                    {
                        
                   print $spieler[$i] ." gegen ". $spieler[$j] . "\n";
 
                    
                  }
                  
             }       
}

Vielen Dank für Antworten !
Gruß
Timo

lichtkind

2009-06-22 04:18

User since
2004-03-22
5679 Artikel
ModeratorIn + EditorIn

also erstmal:

Code (perl): (dl )

#!/usr/bin/perl
use strict;

my $anzahl = my @spieler = qw( max hans franz klaus);

print "Automatischer Spieplan ";

for my $i (0 .. $anzahl-1) {
    print "\nAlle Partien fuer Spieler '" .$spieler[$i] ."' : \n";
    for my $j (0 .. $anzahl-1) {               
        print $spieler[$i] ." gegen ". $spieler[$j] . "\n" if $i != $j;
    }       
}

wie du siehst gehts auch kürzer. denkbar ist auch:

Code (perl): (dl )

#!/usr/bin/perl
use strict;

my @spieler = qw(max hans franz klaus);

print "Automatischer Spieplan ";

for my $a (@spieler) {
    print "\nAlle Partien fuer Spieler '$a' : \n";
    for my $b (@spieler) {               
        print "$a gegen $b\n" if $a ne $b;
    }       
}

was ich aber noch wissen müsst ob du begegenungen doppelt habne willst oder nicht.so beide hans - klaus und klaus -hans und sich jede paarung nur einmal ereignet.

Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.

View all threads created 2009-06-22 00:54.