простая задача на списки, fp Опции

[compiler]

Добрый день!
Надо довести до совершенство решение задачи, тема который для меня тёмный лес:
Написать программу, содержащую процедуру, которая меняет местами первый
и второй элементы не пустого списка.
Если элементы не найдены, то выдать на экран соответствующие сообщение.
задача уже решалась на форуме, однако хотелось бы увидеть оптимальное решение, учитывая возможности FP
моё решение

{$mode objfpc}
type
		data=^node;
		node=record i:integer; next:data; end;

function ch(var p:data):boolean;
var wp:data;
begin
		if p^.next<>nil then begin
				wp:=p^.next; p^.next:=wp^.next; wp^.next := p;
				p:=wp;
				ch:=true;
		end else
				ch:=false;
end;

procedure  print(const p:data);
var p0:data;
begin
		p0:=p;
		if (p0^.next<>nil) then begin
				repeat
						writeln(p0^.i); p0:=p0^.next;
				until (p0^.next=nil);
				writeln(p0^.i);
		end;
end;

procedure  init(var p:data);
var	 p0,p1:data;	 i:integer;
begin
		new(p);
		p^.next:=nil; p^.i:=0;
		p0:=p;
		readln(i);
		if i<>0 then begin
				p0^.i:=i;
				readln(i);
				while i<>0 do begin
						new(p1);
						p1^.i:=i; p1^.next:=nil;
						p0^.next:=p1;
						p0:=p1;
						readln(i);
				end;
		end;
end;

procedure free(p:data);
var	 p0:data;
begin
		repeat
				p0:=p^.next;
				dispose(p);
				p:=p0;
		until (p=nil);
end;

var
		sp:data;
begin
		init(sp);
		if ch(sp) then print(sp) else writeln('error');
		free(sp);
end.

заранее благодарен.

[volvo]

но уж больно оно мне не нравится

Чем, можно узнать?

Смотри, тут уже такое дело: сама-то по себе реализация рабочая, значит, правильная. И, вроде бы, ничего не убавить, НО... (опять это но ) У тебя же есть процедура Init, в которой повторяется бОльшая часть твоей новой функции, так? Выделяем повторяющуюся часть (добавление элемента) в отдельную функцию, и имеем:

function create_item(link: data;
         var head, tail: data; val: integer): data;
begin
  new(result);
  with result^ do begin
    next := link;
    i := val;
  end;

  // уже при добавлении элемента можно определить,
  // добавляется ли ПЕРВЫЙ или последующий элемент

  // вот и делаем абсолютно то же самое, что и раньше, только здесь, 
  // не загромождая основную программу и другие функции/процедуры

  // если "хвост" (а ведь можно передать и не сам хвост, а просто значение, 
  // после которого надо добавить элемент) нулевой, то устанавливаем
  // начало списка, иначе - устанавливаем поле next бывшего предыдущего элемента
  if tail = nil then head := result
  else tail^.next := result;
end;

// А переменные я бы назвал вот так:
function pastbef(var p_begin: data;
         const new_val, exist_val: integer): boolean;
var
  p, p_save: data;
begin
  p := p_begin;
  result := false;
  p_save := nil;
  while p <> nil do begin

    if p^.i = exist_val then begin
      result := true;
      create_item(p, p_begin, p_save, new_val);
    end;
    p_save := p;
    p := p^.next;
  end;
end;

, заодно и процедура Init сокращается в 2 раза, и дальнейшая поддержка программы/добавление функциональности упростится... То есть, если смотреть на ВСЮ программу, то можно изменить, если же речь только о новой функции - то я бы оставил как есть (ну, за исключением имен переменных, я бы назвал по-другому)...

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