Opened by hugenyn at 2010-10-22 00:55
User since
2010-10-05
65 Artikel
BenutzerIn
2010-10-05
65 Artikel
BenutzerIn
Hallo,
das ist ja ein richtiger Lehrgang.
Danke.
So kann ich erstmal arbeiten.
Übrigens hatte ich die Suche nach allen Kombinationen aus der @hand in der Zwischenzeit erstmal so gelöst:
Dann ist mir aufgefallen (!), dass es sich hier um Kombinatorik handelt.
Das Beispiel aus dem 'Bronstein', wieviel Kombinationen von drei Buchstaben lassen sich aus dem Alphabet a..z bilden, ist so ganz leicht zu lösen:
Aber meine Variante stimmt leider nicht - es wäre auch zu einfach gewesen.
Last edited: 2010-11-04 23:52:35 +0100 (CET)
das ist ja ein richtiger Lehrgang.
Danke.
So kann ich erstmal arbeiten.
Übrigens hatte ich die Suche nach allen Kombinationen aus der @hand in der Zwischenzeit erstmal so gelöst:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
my @hand = qw (1 2 4 8); # nicht verändern
my @ch = @hand; # die liste der chancen
my $sum = 0;
for (@hand)
{
$sum += $_;
}
for (@hand)
{
$k = $_;
for (0..$#ch)
{
my $pu = $k + $ch[$_];
push (@ch, $pu) unless $pu > $sum;
}
say "@ch\n";
# jetzt sortieren und doppelte raus
Dann ist mir aufgefallen (!), dass es sich hier um Kombinatorik handelt.
Das Beispiel aus dem 'Bronstein', wieviel Kombinationen von drei Buchstaben lassen sich aus dem Alphabet a..z bilden, ist so ganz leicht zu lösen:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
my @hand = qw (a b c d);
my @ch = @hand;
for (@hand)
{
$k = $_;
for (0..$#ch)
{
push (@ch, $k.$ch[$_]) unless $ch[$_] =~ /$k/;
}
say "@ch\n";
}
Aber meine Variante stimmt leider nicht - es wäre auch zu einfach gewesen.
Last edited: 2010-11-04 23:52:35 +0100 (CET)