Prolog

[igrokk]

1)Создайте предикат, осуществляющий переписывание из одного файла, содержащего числа, в другой файл только тех чисел, которые являются четными.
Даже нет идей как решать может есть подобное задание у кого-нить?

[rrrFer]

какой диалект пролога?

[rrrFer]

на SWI вот как-то так:

p:-
	see('in.txt'), tell('out.txt'), pp, seen, told.
pp:-
  peek_char(C), (
    char_type(C, end_of_file), !
    ; read(N), 0 is (N mod 2), write(N), pp
		; pp
	).

во входном файле должны быть записаны термы, подробней тут читай.

[igrokk]

Можешь помочь пример переделать?
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)
/*********************************** *************/
/*******************дополнение списка квадратами*/
p( intList, intList )
/*********************************** *************/

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,_):-!.
/*********************************** *************/
/*******************дополнение списка квадратами*/
p( [], [] ).
p( [H|T], [H|[HH|TT]] ):-
HH = H*H, p(T,TT).
/*********************************** *************/

goal
%S="1 2 3 4 12 asd 24 12",
file_str("input.txt",S),
separ(S,LS),
convertStrListToIntList(LS,IL),
write(IL),nl,
p(IL,RL), write(RL),nl.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)
/*********************************** *************/
/*******************дополнение списка квадратами*/
p( intList, intList )
/*********************************** *************/

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,_):-!.
/*********************************** *************/
/*******************дополнение списка квадратами*/
p( [], [] ).
p( [H|T], [H|[HH|TT]] ):-
HH = H*H, p(T,TT). <-------------------------------------------ТУТ ПРАВИЛО НЕ ЗНАЮ КАК ИЗМЕНИТЬ НАДО ЧТОБ ТОЛЬКО ЧЕТНЫЕ ВЫВОДИЛ ЧЕРЕЗ МОД ВРОДЕ.
/*********************************** *************/

goal
%S="1 2 3 4 12 asd 24 12",
file_str("input.txt",S),
separ(S,LS),
convertStrListToIntList(LS,IL),
write(IL),nl,
p(IL,RL), write(RL),nl.

[rrrFer]

вижу нашел мой код на соседнем форуме )

p( [], [] ).
p( [H|T], R ):-
0 = (H mod 2), !, p(T,TT), R = [H|TT]; p(T,R).

не проверял.

[igrokk]

Спасибо выручил.