prolog/problems/lists/permute_2/common.py


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

# coding=utf-8

id = 107
group = 'lists'
number = 14
visible = True
facts = None

solution = '''\
del107(X, [X|T], T).
del107(X, [Y|T], [Y|L]) :-
  del107(X, T, L).
permute([], []).
permute(L, [X|P]) :-
  del107(X, L, L1),
  permute(L1, P).
'''