Сравнение сортированных списков.

← →
Miwa © (2004-01-07 07:27) [0]

Доброе утро. Тут вот возник вопросс: как в двух отсортированных списках ( TSringList, sorted:=true :o)) ) оставить только те элементы, которые присутствуют только в одном из них, другими словами исключить все одинаковые. Да, я слыхал о Кнуте, да только доберусь до него не скорее, чем в 9 утра, а вопросс замучил :о(.

← →
Anatoly Podgoretsky © (2004-01-07 09:03) [1]

Цикл тебе нужен по одному из списков

var
Res : arry of type;

...

procedure AddToResult(A);
begin
setLength(Res,length(Res)+1);
Res[length(Res)-1]:=A;
end;

...

i:=0; j:=0;
setLength(Res,0);
while (i<length(ar1)) and (j<length(ar2)) do begin
while (ar2[j]<ar1[i]) and (j<length(ar2)-1) do
inc (j);
if ar2[j]>ar1[i] then AddToResylt(ar1[i]);
end;

Сравнение сортированных списков. Найти похожие ветки