Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.15.137.59] |
|
Сообщ.
#1
,
|
|
|
У меня есть программа на русской версии Пролога по склеиванию списков.
склеивание([],_X,_X). склеивание([_Х|_У1],_У2,[_Х|У3]):-склеивание(_У1,_У2,_У3). ?-склеивание([1,2,3,6,9],[3,8,10,15],_Х). А мне надо, чтобы в новый список объединялись только элементы, кратные трем. Кто-нибудь может подсказать? |
Сообщ.
#2
,
|
|
|
Если ещё нужно:
domains numlist = integer* predicates concatt(numlist, numlist, numlist) kr3 (numlist, numlist) clauses concatt([],X,X). concatt([X|Y1], Y2, [X|Y3]):- concatt(Y1, Y2, Y3). kr3([], L). kr3([H|T], [H|R]):- 0 = H mod 3, kr3(T,R). kr3([H|T], R):- kr3(T,R). goal concatt([1,2,3,6,9],[3,8,10,15], X), kr3(X,Y), write(Y). |