RosettaCodeData/Task/Combinations/Prolog/combinations-3.pro

4 lines
136 B
Prolog
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
:- use_module(library(clpfd)).
comb_lstcomp(N, M, V) :-
V <- {L & length(L, N), L ins 1..M & all_distinct(L), chain(L, #<), label(L)}.