18/08/03 15:08:28.04 hgK9nuJR.net
% 可読性が悪いがこれと同じ
del(X,[X|L],L).
del(X,[Y|L],[Y|Z]) :- del(X,L,Z).
permutate([],[]).
permutate([X|L],P) :- permutation(L,Y), del(X,P,Y).
?- permutate([ド底辺,シリツ医大,裏口,馬鹿],P),writeln(P),fail.
[ド底辺,シリツ医大,裏口,馬鹿]
[シリツ医大,ド底辺,裏口,馬鹿]
[シリツ医大,裏口,ド底辺,馬鹿]
[シリツ医大,裏口,馬鹿,ド底辺]
[ド底辺,裏口,シリツ医大,馬鹿]
[裏口,ド底辺,シリツ医大,馬鹿]
[裏口,シリツ医大,ド底辺,馬鹿]
[裏口,シリツ医大,馬鹿,ド底辺]
[ド底辺,裏口,馬鹿,シリツ医大]
[裏口,ド底辺,馬鹿,シリツ医大]
[裏口,馬鹿,ド底辺,シリツ医大]
[裏口,馬鹿,シリツ医大,ド底辺]
[ド底辺,シリツ医大,馬鹿,裏口]
[シリツ医大,ド底辺,馬鹿,裏口]
[シリツ医大,馬鹿,ド底辺,裏口]
[シリツ医大,馬鹿,裏口,ド底辺]
[ド底辺,馬鹿,シリツ医大,裏口]
[馬鹿,ド底辺,シリツ医大,裏口]
[馬鹿,シリツ医大,ド底辺,裏口]
[馬鹿,シリツ医大,裏口,ド底辺]
[ド底辺,馬鹿,裏口,シリツ医大]
[馬鹿,ド底辺,裏口,シリツ医大]
[馬鹿,裏口,ド底辺,シリツ医大]
[馬鹿,裏口,シリツ医大,ド底辺]