списки, списки Опции

[Iryska]

помогитe, кто чeм можeт. a то сaмa сдeлaть нe могу) литeрaтурa проходит мимо мозгa) ''Дан неупорядоченный
линейный односвязный список
и массив , содержащий номера
соответствующих элементов в
упорядоченном списке .
Перестройте данный список в
соответствии с номерами ,
заданными массивом''

[TarasBer]

> Не знаю, почему. Опять преоптимизация?

Лепить префикс "пре" на любую оптимизацию - это шаблон говнокода (когда придёт время оптимизировать _алгоритм_, будет поздно). Как и собственно сама преоптимизация (на уровне _кода_, который всегда можно отоптимизировать в последний момент), кстати, но тут её нет.

> Предложи другое решение, посмотрим, понравится ли оно мне...

for i := 1 to n do
Links[i] := get_item (arr[i]);

Эквивалентно

for i := 1 to n do
Links[revarr[i]] := get_item (i);

где revarr строится так:
for i := 1 to n do revarr[arr[i]] := i;

а вот уже "for i := 1 to n do что-то там с get_item(i)" можно заменить на проход списка.

А можно и не заменять, а сделать универсальнее get_item (добавить в неё немного искуственного интеллекта):

  function get_item (n : integer) : plist;

     var i : integer;
     const lastn: integer := 0; // запоминаем число последнего поиска
     const lastp: plist := nil; // запоминаем результат последнего поиска

   begin
      if lastn = n then // ничего не делаем
      else if lastn = n+1 then p := lastp^.next
      else begin 
        lastp := start;
        for i := 1 to n - 1 do lastp := lastp^.next;
      end;

      lastn := n;
      get_item := lastp;
   end;  

(кстати, форум таки жрёт пробелы вне тега кода)