以我想要的方式列出列表元素，在Prolog中

在Prolog中，我们可以使用递归和列表操作来列出列表元素。下面是一个示例代码：

% 列出列表元素
list_elements([]).  % 列表为空，结束递归
list_elements([H|T]) :-  % 列表非空
    write(H),  % 输出列表头部元素
    nl,  % 换行
    list_elements(T).  % 递归处理列表尾部元素

使用示例：

?- list_elements([1, 2, 3, 4, 5]).
1
2
3
4
5
true.

?- list_elements([apple, banana, orange]).
apple
banana
orange
true.

上述代码中，list_elements/1谓词接受一个列表作为参数。当列表为空时，递归结束。当列表非空时，它会输出列表的头部元素，然后调用自身处理列表的尾部元素。这样，递归会一直进行，直到列表为空为止。