Hallo
Ich suche eine Programm mit den es mir möglich ist, eine
Doppelte Zahlenkombinazion zu finden.
Hier ein Beispiel:
28224867919071693080765738851981197462564212864492746772743532579190795221045618044786712101
Die länge der Zahlen ist unterschiedlich mal 3 mal 5 oder 6
zahlen hintereinander.
OK
Ich besitze leider keine Programmierkentnisse,
Hmm, Ich hab das mal so gemacht, wie Lorgarn es
vergeschlagen hat, ein paar Zeilen genügen
dafür. Ich habs mal in Perl gemacht (geht
bei mir am schnellsten).
==>
my $str='2822486791907169308076573885198119746256421286'
.'4492746772743532579190795221045618044786712101';
# Ergbnisse hier:
my %zahl;
# doppelte Zahlen heraussuchen
for my $P (0 .. length($str)-2) {
pos($str) = $P;
$zahl{$-[1]} = $1 while $str =~ /(\d{2,}).\*\1/g
}
# Teilzahlen von langer Zahl entfernen (umgekehrt sortiert durchlaufen)
for my $i (sort {$b $a} keys %zahl) {
delete $zahl{$i} if defined $zahl{$i-1} and $zahl{$i} eq substr($zahl{$i-1},1)
}
# sortiert ausgeben (von gross nach klein)
for my $i (sort {$zahl{$b} $zahl{$a}} keys %zahl) {
print "$zahl{$i} bei Position $i \n"
}
Das „Programm“ gibt bei Deiner Zahlenfolge
alle „doppelten“ aus, die Längste zuerst
791907 bei Position 7
867 bei Position 5
746 bei Position 34
274 bei Position 49
210 bei Position 72
86 bei Position 44
80 bei Position 18
79 bei Position 63
71 bei Position 12
67 bei Position 52
64 bei Position 39
57 bei Position 22
56 bei Position 38
44 bei Position 46
28 bei Position 0
25 bei Position 37
22 bei Position 2
21 bei Position 41
19 bei Position 32
19 bei Position 28
12 bei Position 42
07 bei Position 19
04 bei Position 74
Grüße
CMБ