Zitat:
(Da kein Zeichen 0 mal wiederholt wird, hab ich zum Anzahlbyte immer +1 gezählt.)
Es wird aber auch kein Zeichen 1-mal wiederholt, also wenn du den Fall von den "einmal Marker" schon mit dem doppeltem Marker abfängst.
(gut, in soeinem Fall spart man sich dann sogar jeweil 1 Byte, wenn der Marker kodiert wird) und wie oft kommt es vor, daß sich ein Zeichen mal mehr als 200 Mal wiederholt, aber selbst wenn, dann hat man damit dann immernoch eine maximale Kompressionsrate von 1/256*3 = 98,8% .
Delphi-Quellcode:
function LauflängenKodierung(S:
String):
String;
var
i, a: Integer;
c: Char;
begin
i := 1;
while i <= Length(S)
do
if (i < Length(S))
and (S[i] = S[i + 1])
then begin
c := S[i];
a := i + 1;
while (a < Length(S))
and (S[a] = S[a + 1])
and (a - i < 256)
do Inc(a);
Dec(a, i);
Delete(S, i, a);
Insert(#0 + Char(a) + C, S, i);
Inc(i, 3);
end else if S[i] = #0
then begin
Insert(#0#1#0, S, i + 1);
Inc(i, 3);
end else Inc(i);
Result := S;
end;
function LauflängenDekodierung(S:
String):
String;
var
i, a: Integer;
c: Char;
begin
i := 1;
while i < Length(S) - 1
do
if S[i] = #0
then begin
a := Ord(S[i + 1]);
c := S[i + 2];
Delete(S, i, 3);
Insert(StringOfChar(c, a), S, i);
Inc(i, a);
end else Inc(i);
Result := S;
end;
(ungetestet, da nur so dahingeschrieben)
[edit]
hatte die ersten beiden Parameter beim Inset vertauscht