Файл(разность первой и последней компоненты файла) турбо пролог

[nastin]

Никак не выходит реализовать задание: дан файл, нужно записать в другой файл разность первой и последней компоненты файла ( разность - это разница "большее" минус "меньшее"). Кое-что написала, но не работает, помогите, пожалуйста!

domains
file = inp;out
predicates
main
first(real)
next(real)
max(real,real)
clauses
main :- openread(inp, "LAB.txt"),
openwrite(out, "LAB1_result.txt"),
readdevice(inp),
writedevice(out),!,
first(_).
first(X):-eof(inp),closefile(inp),closefile(o ut).
first(X):-readreal(X),next(X).
next(X):-not(eof(inp)),readreal(Y),next(Y).
next(X):-eof(inp),max(X,Y).
max(X,Y):-X>Y,closefile(inp),write(X-Y),closefile(out).
max(X,Y):-X=>Y,closefile(inp),write(Y-X),closefile(out).


goal
main.

[rrrFer]

я бы начал со считывания всех компонент файла в список - так проще.
Эту часть можно нагуглить. Если не получится - сообщите, получится - выкладывайте код - найти разницу первого и последнего элемента списка помогу ))

[nastin]

Нашла что-то похожее.
И еще хотела просить, разность это ведь не тоже самое, что и разница? Я так понимаю, что сравниваются 2 числа и от большего отнимают меньшее. Спасибо за помощь)

domains
strElement=string
strList=strElement*
intElement=integer
intList=intElement*
/*--------------------------------------------------------------*/
predicates

/*преобразование в список-----------------------*/
separ(string,strlist)
scan (string,strlist,string)

/*преобразование списка слов в список чисел-----*/
convertStrListToIntList(strList,int List)
csltil(intList,intList,strElement)
first(intlist,integer)
last(intlist,integer)
minus(integer,integer,integer)

/*------------------------------------------------------------*/

Clauses

/*преобразование в список-----------------------*/
separ(Str,[T|L]):-
frontchar(Str,S3,S2),
str_char(S5,S3),
scan(S2,[T|L],S5),!.
separ(_,[]).

scan(Str,[T|L],S):-
frontchar(Str,S3,S2),
NOT(S3=' '),
str_char(S5,S3),
concat(S,S5,S1),
scan(S2,[T|L],S1),!.

scan("",[T|L],S):-
T=S,separ("",L).

scan(Str,[T|L],S):-
T=S,frontchar(Str,_,S2),
separ(S2,L),!.

/*преобразование списка слов в список чисел----*/
convertStrListToIntList([],[]):-!.
convertStrListToIntList([HS|TS],LI):-
convertStrListToIntList(TS,TI),
csltil(TI,LI,HS).
csltil(TL,[HI|TL],HS):-
str_int(HS,HI),!.
csltil(TL,TL,_):-!.

Goal

file_str("input.txt",S),
separ(S,LS),
convertStrListToIntList(LS,IL),
write("File contents: "),nl,
write(IL),nl.

[rrrFer]

вот, вот. Нашли в интернете мой код на соседнем форуме ))

Список чисел у вас уже есть. последний элемент получаете так:

last([], _):-!, fail.
last([H], H):-!.
last([_|T], R):-
  last(T, R),!.

Я так понимаю, что сравниваются 2 числа и от большего отнимают меньшее. Спасибо за помощь)

модуль разницы что-ли?

Но если уж очень надо сравнивать - то вот: (это "разность" по вашему описанию)

p(A, B, R):- A > B, !, R = B - A; R = A - B.