RosettaCodeData/Task/Permutations/Prolog/permutations-2.pro

9 lines
96 B
Prolog

?- permut_clpfd(L, 3), writeln(L), fail.
[1,2,3]
[1,3,2]
[2,1,3]
[2,3,1]
[3,1,2]
[3,2,1]
false.