Я пытаюсь реализовать процедуру разности списков в прологе. По какой-то причине следующее не удается: difference(Xs,Ys,D) :- difference(Xs,Ys,[],D). difference([],_,A,D) :- D is A, !. difference([X|Xs],Ys,A,D) :- not(member(X,Ys)), A1 is...

Рассмотрим список перестановок (соответствующих порядку комбинаций) вида: (1 2 3) (1 2 4) (5 2 3) (5 2 4) Мне нужно найти наименьшее количество порождающих наборов для этой группы перестановок. Например, учитывая приведенные выше...