Односвязный список, Сравнение списков Опции

[*alt]

Задача
Проверить, содержатся ли элементы списка А в списке В в указанном списком А порядке.

Помогите, пожалуйста. Как реализовать решение??
Подкиньте идейку... с чего начать.... или алгоритм посоветуйте

Сообщение отредактировано: *alt - 19.11.2007 21:27

[volvo]

Вноси данные в список не в обратном, а в прямом порядке (так, как они записаны в строке), тогда сможешь делать так:

function search (L1, L2:Tptr):boolean;
var pl_1, pl_2: tptr;
begin

  pl_1 := L1;
  pl_2 := L2;
  while (pl_1 <> nil) and (pl_2 <> nil) do begin
    if L1^.inf = pl_2^.inf then begin
      pl_1 := L1;
      while (pl_1 <> nil) and (pl_2 <> nil) and (pl_1^.inf = pl_2^.inf) do begin
        pl_1 := pl_1^.next; pl_2 := pl_2^.next;
      end;
    end
    else pl_2 := pl_2^.next;
  end;

  search := pl_1 = nil;
end;

Сообщение отредактировано: volvo - 20.11.2007 23:47