Thread Zahlenkombinationen suchen (16 answers)
Opened by hugenyn at 2010-10-22 00:55

hugenyn
 2010-10-26 23:35
#142198 #142198
User since
2010-10-05
65 Artikel
BenutzerIn

user image
Hallo, topeg,

aus Deinem Code

Code: (dl )
1
2
# Erste Hand abheben
my @hand=splice(@peg,0,4);


... wie einfach!

Bevor es aber weitergeht, muss ich (der Computer) wissen, welche Zahlen er mit seinen vier Karten in @hand überhaupt setzen kann.
Ich brauche also ein @chancen, aus dem dann ausgewählt wird.

Da es theoretisch bei vier Zahlen 15 Möglichkeiten gibt, habe ich es so gelöst:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
my @chancen=();

push(@chancen, $hand[0]);
push(@chancen, $hand[1]);
push(@chancen, $hand[0]+$hand[1]);
push(@chancen, $hand[2]);
push(@chancen, $hand[0]$hand[2]);
push(@chancen, $hand[1]+$hand[2]);
push(@chancen, $hand[0]+$hand[1]+$hand[2]);
push(@chancen, $hand[3]);
push(@chancen, $hand[0]+$hand[3]);
push(@chancen, $hand[1]+$hand[3]);
push(@chancen, $hand[0]+$hand[1]+$hand[3]);
push(@chancen, $hand[2]+$hand[3]);
push(@chancen, $hand[0]+$hand[2]+$hand[3]);
push(@chancen, $hand[1]+$hand[2]+$hand[3]);
push(@chancen, $hand[0]+$hand[1]+$hand[2]+$hand[3]);


und dann die eventuellen Doppelten eliminiert.

Das funktioniert, ist aber natürlich grauenvoll programmiert.
Trotzdem ist mir noch keine vernünftige Schleife dafür eingefallen?

Gruß.

View full thread Zahlenkombinationen suchen