Opened by styx-cc at 2006-11-03 00:46
User since
2006-05-20
533 Artikel
BenutzerIn
2006-05-20
533 Artikel
BenutzerIn
Hoi hoi, ich verusche gerade aus Spass Buchstaben zu generieren, das ganze soll am Ende so aussehen:
AAA
AAB
AAC
ABA
ABC
ACA
ACB
ACC
BAA
BAB
BAC
BBC
und so weiter, ich denke das ist sehr Bruteforce aehnlich..
Hab da jetzt zwei abende getueftelt, aber irgendwie will das nich :(
Hier mal mein Loesungsansatz:
Allerdings tut es nicht wirklich was es soll.
Ich will auch kein Modul benutzen oder n Quelltext vorgesetzt bekommen, soll ja ne Denkaufgabe sein, aber nen kleinen Schubser vielleicht? ;)
MfG
P.s.: deutsche bezeichener habe ich hier mal genommen weil ich da einfach nich mehr durchgeblickt habe
AAA
AAB
AAC
ABA
ABC
ACA
ACB
ACC
BAA
BAB
BAC
BBC
und so weiter, ich denke das ist sehr Bruteforce aehnlich..
Hab da jetzt zwei abende getueftelt, aber irgendwie will das nich :(
Hier mal mein Loesungsansatz:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
#!/usr/bin/perl -w
use strict;
my @zeichen = ("A".."C");
my $laenge = 3;
my $start = 0;
my $pos = $laenge;
my %string = {"1" => 'A', "2" => 'A', "3" => 'A'};
my $i=0;
while ($pos >= 1) {
for my $aktuell (@zeichen) {
$string{$laenge} = $aktuell;
print $string{$_} for (1..$laenge);
print "\n";
}
if ( $string{$pos} eq $zeichen[scalar(@zeichen)-1] ) {
$pos--;
$i=0;
$string{$laenge} = $zeichen[0];
}
$string{$pos} = $zeichen[$i];
$i++;
}
Allerdings tut es nicht wirklich was es soll.
Ich will auch kein Modul benutzen oder n Quelltext vorgesetzt bekommen, soll ja ne Denkaufgabe sein, aber nen kleinen Schubser vielleicht? ;)
MfG
P.s.: deutsche bezeichener habe ich hier mal genommen weil ich da einfach nich mehr durchgeblickt habe
Pörl.