простая задача на списки, 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]

Комментарии добавлены...

А насчет

когда стоит передавать список через var, а когда просто так?

Если тебе надо получить из процедуры/функции измененное значение параметра - то через Var, иначе (если ты не хочешь знать, что происходит со значением параметра внутри подпрограммы, а хочешь сохранить в основной программе старое значение параметра) - без Var. Ну, это ты наверное знаешь... Я так понимаю, вопрос возник, потому что я добавил Var в процедуру Free? Просто я считаю, что если ты удаляешь что-то то логично указатель на это что-то обнулить, чтобы потом не было казусов. Ты же здесь:

        free(sp);

удалял все содержимое списка, но вот сам указатель на начало списка у тебя не обнулялся. А что если дальше в программе тебе еще раз захочется распечатать список? Ну, вызовешь ты print(sp). В моем варианте sp = nil, процедура закончится сразу же. А в твоем? Что будет печататься? AV/SF давно не видел?

[compiler]

Комментарии добавлены...

теперь, вроде, разобрался, но как её изменить чтоб при вводе первым числом 0 не возникала дальнейшая не корректная работа при печати(run time error 216)

Я так понимаю, вопрос возник, потому что я добавил Var в процедуру Free?

да, спасибо.. теперь ясно...

А в твоем? Что будет печататься?

мусор какой-то:)

Сообщение отредактировано: compiler - 26.01.2008 14:00