Skip to content

Instantly share code, notes, and snippets.

@TomasDrozdik

TomasDrozdik/permutace.pl

Created September 17, 2018 15:29
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save TomasDrozdik/62f362d99a79c5198befcca208a95235 to your computer and use it in GitHub Desktop.
Save TomasDrozdik/62f362d99a79c5198befcca208a95235 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
permutace.pl
permurations(Xs, Pss) :-
findall(Ys, permutace(Xs, Ys), Pss).
permList(Xs, AkYss, Yss) :-
permutace(Xs, Ys),
\+member(Ys, AkYss),
permList(Xs, [Ys|AkYss], Yss), !.
permList(_, AkYss, Yss) :-
reverse(AkYss, Yss), !.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment