Duplicity obousmerny seznam – Pascal – Fórum – Programujte.com

 Jak byste odstranily duplicity v obousmernem seznamu pri neserazenych datech ? 

type UkPrvek = ^Prvek;
     Prvek = record
       info: real;
       predchudce, naslednik: UkPrvek
     end;

ObousmerSeznam = record
     zacatek: UkPrvek;
     konec: UkPrvek
end;


procedure init(var s: ObousmerSeznam);
begin
s.zacatek:=nil;
s.konec:=nil;
end;

procedure pridejPrvek(var s: ObousmerSeznam; hodnota: real);
var novy: UkPrvek;
begin
new(novy);
novy^.info:=hodnota;
if s.zacatek<>nil then begin
 s.zacatek^.predchudce:=novy;
 novy^.naslednik:=s.zacatek;
 s.zacatek:=novy;
end else begin
 novy^.predchudce:=nil;
 novy^.naslednik:=nil;
 s.zacatek:=novy;
 s.konec:=novy
end
end;

function vratPocetPrvku(s: ObousmerSeznam) : word;
var aktualni: UkPrvek;
begin
vratPocetPrvku:=0;
aktualni:=s.zacatek;
while aktualni<>nil do begin
 aktualni:=aktualni^.naslednik;
 inc(vratPocetPrvku);
end
end;


procedure kontrola(s: ObousmerSeznam);
var aktualni: UkPrvek;
begin
aktualni:=s.zacatek;
while (aktualni<>nil) do begin
write(aktualni^.info:2:2,' | ');
aktualni:=aktualni^.naslednik;
end;
end;

procedure odstranDuplicity(var s: ObousmerSeznam);
begin
end;


var s: ObousmerSeznam;
begin
init(s);
pridejPrvek(s,33);
pridejPrvek(s,22);
pridejPrvek(s,22);
pridejPrvek(s,33);
pridejPrvek(s,22);
pridejPrvek(s,12);
kontrola(s);

neni zase tak moc moznosti.. budes postupovat po jednom prvku a pokazde projdes zbytek seznamu, jestli tam neni dalsi a kdyztak ten dalsi smazes..

pripadne na dva pruchody, kdy v prvnim se udela seznam prvku a jejich pocet a ve druhem kole se promazou ty, kde je jich vicero (samozrejme pokud budes odecitat od toho poctu, tak bude vysledek v jinem poradi, nez kdyz se udela prvni cast - ale porad se da u obousmerneho prochazet nazpet takze se to pak "vyrusi") :)

#2 KIIV
dik

procedure odstranDuplicity(var s: ObousmerSeznam);
var aktualni,kon: UkPrvek;
    pruchod: UkPrvek;
    pom_predchozi: UkPrvek;
begin
pom_predchozi:= nil;
aktualni:=s.zacatek;
kon:=s.konec;
while ((aktualni<>nil) AND (aktualni^.naslednik<>nil)) do begin
pruchod:=aktualni^.naslednik;
while (pruchod<>nil) do begin
 if(aktualni^.info = pruchod^.info) then begin
    if(pom_predchozi = nil) then begin
      aktualni^.naslednik := pruchod^.naslednik;
      pom_predchozi := aktualni;
    end else pom_predchozi^.naslednik := pruchod^.naslednik;
        if(pruchod = kon) then aktualni^.naslednik:= nil;
        dispose(pruchod);
        pom_predchozi := pruchod^.naslednik;
end else pom_predchozi := pruchod;
     pruchod:=pruchod^.naslednik;
 end;
   aktualni:=aktualni^.naslednik;
 end;
end;

Plne funkcni! Nazory ? Nejde to nejak zjednodusit ?