1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
| domains
strElement=string
strList=strElement*
intElement=integer
intList=intElement*
predicates
/************************преобразование в список*/
separ(string,strlist)
scan (string,strlist,string)
/************************************************/
/******преобразование списка слов в список чисел*/
convertStrListToIntList(strList,intList)
csltil(intList,intList,strElement)
/************************************************/
/*************формирование списка из элементов с*/
/******************************четными индексами*/
doListFromListByEvenIndex(intList,intList)
/************************************************/
/**************вычисление суммы элементов списка*/
getSumOfIntList(intList,intElement)
/************************************************/
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,_):-!.
/************************************************/
/*************формирование списка из элементов с*/
/******************************четными индексами*/
doListFromListByEvenIndex([],[]):-!.
doListFromListByEvenIndex([_],[]):-!.
doListFromListByEvenIndex([_|[HH|L]],[HH|LL]):-
doListFromListByEvenIndex(L,LL),!.
/**************вычисление суммы элементов списка*/
getSumOfIntList([],0):-!.
getSumOfIntList([H|T],S):-
getSumOfIntList(T,SS),S=SS+H.
/************************************************/
goal
%S="1 2 3 4 12 asd 24 12",
file_str("input.txt",S),
separ(S,LS),
convertStrListToIntList(LS,IL),
%write(IL),nl,
doListFromListByEvenIndex(IL,ILL),
%write(ILL),nl.
getSumOfIntList(ILL,Sum),
write(Sum),nl. |
(
