Zitat von
Illuminator-23-5:
könnte man einen Teil in assembler umwandeln.
Sicher wäre das möglich, nur ob der Code dann schneller ist, als der vom Compiler erzeugte, ist nicht garantiert.
Das "writeln(a);" brauch im Vergleich zum Algorithmus sehr sehr lange.
Zitat:
Delphi-Quellcode:
while a <> b
do begin
i := bytes;
while a[i] = '
1'
do begin
a[i] := 0;
dec(i);
end;
a[i] := '
1':
end;
Bist du sicher, dass da kein Fehler drinnen steckt? Denn das würde ich ganz einfach per "a := b" lösen. Da fehlt doch sicherlich was.