, test([H|T]) Prolog, H . , H > 0, , H . (H > 0 ) , Prolog , H , , H.
, test/1 (T), , 4. , , 5, .
, test(L) , , L - . CLP (FD):
:- use_module(library(clpfd)).
test(X) :- X ins 1..10000.
, X - , 1 10000. 5 :
?- length(X, 5), test(X), label(X).
X = [1, 1, 1, 1, 1] ;
X = [1, 1, 1, 1, 2] ;
X = [1, 1, 1, 1, 3] ;
X = [1, 1, 1, 1, 4] ;
X = [1, 1, 1, 1, 5] ;
...
, , all_different/1:
test(X) :- X ins 1..10000, all_different(X).
?- length(X, 5), test(X), label(X).
X = [1, 2, 3, 4, 5] ;
X = [1, 2, 3, 4, 6] ;
X = [1, 2, 3, 4, 7] ;
X = [1, 2, 3, 4, 8] ;
X = [1, 2, 3, 4, 9] ;
X = [1, 2, 3, 4, 10] ;
...