: . , (is)/2. .
, , :
:- use_module(library(clpfd)).
nXList(0,_,[]).
nXList(N,X,[X|T]):-
N
N1
nXList(N1,X,T).
media([], 0, 0).
media([X|L], N, Soma):-
N
N
Soma
media(L, N1, Soma1).
, :
?- nXList(3, X, T).
T = [X, X, X] ;
false.
?- media(Xs, 3, S).
Xs = [_A, _B, _C],
_D+_A
_C+_B
false.
... nXList/3 :
..., length(T, N), maplist(=(X), T), ...