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

@LazarusNub · Регистрация: 03.10.2014

Author24 — интернет-сервис помощи студентам

@Catstail · 19.03.2016, 17:40

Prolog

domains
int=integer
intl=int*
intll=intl*
 
predicates
pair(int,intl,intll)
app(intll,intll,intll)
cart(intl,intl,intll)
 
clauses
pair(_,[],[]).
pair(X,[H|T],[[X,H]|R]) :- pair(X,T,R).
 
app([],X,X).
app([A|T],X,[A|R]) :- app(T,X,R).
 
cart([],_,[]).
cart([A|T],B,R) :- pair(A,B,AB), cart(T,B,Z), app(AB,Z,R).

@LazarusNub · 22.05.2016, 11:37 **[ТС]**

На днях по изучал пролог. С трассировкой и свечениями я разобрался. Также понял суть родительских отношений.
В личку я вам не смог достучаться. Вот типо таких задач

Кликните здесь для просмотра всего текста

Prolog

добавить(il,integer,il).
добавить([Г|Хвост],Эл,[Г|Результат]):- добавить(Хвост,Эл,Результат).
добавить([],Эл,[Эл]).
добавить([1,2,3,4],5,Список).
 
Результаты без отсечения
?- добавить([1,2,3,4],5,Список).
Список = [1, 2, 3, 4, 5].

у меня получается решать, а с более объемными пока нет. За наглость извините может быть поможете еще с этой задачей и если не составит труда то с этой тоже.
Прошу прощения за наглость. Спасибо вам большое.

@Catstail · 22.05.2016, 14:47

LazarusNub, Выкладывайте вопросы (соблюдая правило: один вопрос=одна тема). Вам помогут. А почту я от Вас получил невразумительную. Ничего не понял.

@LazarusNub 0 / 0 / 1 Регистрация: 03.10.2014 Сообщений: 57
		1
	Помогите написать программу для вычисления декартова произведения множеств 18.03.2016, 18:31. Показов 975. Ответов 3 Метки нет (Все метки) Помогите написать программу для вычисления декартова произведения множеств 0

@Catstail Модератор 37313 / 20746 / 4273 Регистрация: 12.02.2012 Сообщений: 34,144 Записей в блоге: 14
	22.05.2016, 14:47	4
	LazarusNub, Выкладывайте вопросы (соблюдая правило: один вопрос=одна тема). Вам помогут. А почту я от Вас получил невразумительную. Ничего не понял. 0