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

Формулировка задачи:

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

Код к задаче: «Помогите написать программу для вычисления декартова произведения множеств - Prolog»

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

8   голосов, оценка 3.875 из 5


СОХРАНИТЬ ССЫЛКУ