Найти все комбинации сочетаний и перестановок элементов списка - Prolog

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

Найти все комбинации сочетаний и перестановок элементов списка

список задается с клавиатуры

Решение задачи: «Найти все комбинации сочетаний и перестановок элементов списка»

Листинг программы

?- all_perm([], [a,b,c], X).
X = [] ;
X = [a] ;
X = [b, a] ;
X = [c, b, a] ;
X = [c, a] ;
X = [b, c, a] ;
X = [b] ;
X = [a, b] ;
X = [c, a, b] ;
X = [c, b] ;
X = [a, c, b] ;
X = [c] ;
X = [a, c] ;
X = [b, a, c] ;
X = [b, c] ;
X = [a, b, c] ;
false.

Объяснение кода листинга программы

В данном коде реализована функция all_perm, которая генерирует все возможные перестановки элементов списка. Список разбивается на три части: пустой список, список с одним элементом и список с двумя элементами. Затем происходит рекурсивный обход всех возможных комбинаций элементов с помощью вложенных вызовов функций. При достижении глубины в два вложенных вызова, список элементов считается полностью обработанным и его элементы добавляются в результат. Если список элементов пуст, то результат считается полным и функция завершается. Таким образом, данный код генерирует все возможные перестановки элементов списка, начиная с пустого списка и заканчивая списком с двумя элементами.