Spielpartien aus Namensliste generieren - #122620 (Allgemeines zu Perl)

lichtkind

2009-06-22 04:18

User since
2004-03-22
5680 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.