List 从另一个谓词调用谓词 列表（[1,2,3,4]）。 len（[]，0）。 len（[u124; T]，X）：- len（T，X1）， X是X1+1。 总和（[]，0）。 总和（[H | T]，X）：- 和（T，X1）， X是X1+H。 最大元素（[X]，X）。 最大元素（[H1，H2 | T]，最大值）：- H1>H2，！， 最大元素（[H1 | T]，最大值）。 最大元素（[H1，H2 | T]，最大值）：- max_元素（[H2，T]，max）。 最小元素（[X]，X）。 最小元素（[H1，H2 | T]，最小值）：- H1

我重新编辑了您编写的一些函数。这样我就可以很容易地按你想要的方式打印出来

   list([1,2,3,4]).

len([],0).
len([_|T],X):-
    len(T,X1),
    X is X1+1.

sum([],0).
sum([H|T],X):-
    sum(T,X1),
    X is X1+H.

max_element([X],X).
max_element([H1,H2|T],Max):-
    H1>H2,!,
    max_element([H1|T],Max).
max_element([H1,H2|T],Max):-
    max_element([H2,T],Max).

min_element([X],X).
min_element([H1,H2|T],Min):-
    H1<H2,!,
    min_element([H1|T],Min).
min_element([H1,H2|T],Min):-
    min_element([H2,T],Min).

sum([X],X):- write(X).
sum([H,H1|T],Z):- H2 is H+H1 , sum([H2|T],Z).

min([],Z):- write(Z).
min([H|T],Z):- H<Z , Z1 is H , min(T, Z1).
min([H|T],Z):- H>Z ,min(T ,Z).

max([],Z):- write(Z).
max([H|T],Z):- H>Z , Z1 is H , max(T, Z1).
max([H|T],Z):- H<Z ,max(T ,Z).

len([],S):- write(S).
len([_|T],Z):-  Z1 is Z+1 , len(T,Z1) .


list(Z):- write('sum :- ') , sum(Z,_), nl ,write('min:- ') ,  min(Z,99) , nl, write('max:- '), max(Z,0) ,nl, write('len:- ') , len(Z,0).

?- list([1,2,3]).
sum :- 6
min:- 1
max:- 3
len:- 3
true