Показать сообщение отдельно
  (#2 (permalink)) Старый
igrokk igrokk вне форума
Новичок
 
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 30.04.2013
По умолчанию 01.05.2013, 11:02

1)сделал
Помогите со вторым как можно под мою задачу переделать

Переписать числа из файла в другой, дописав за каждым его квадрат.

domains
strElement=string
strList=strElement*
intElement=integer
intList=intElement*
predicates
/************************преобразование в список*/
separ(string,strlist)
scan (string,strlist,string)
/************************************************/
/******преобразование списка слов в список чисел*/
convertStrListToIntList(strList,intList)
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.
Ответить с цитированием
Ads