扫描序言中的列表

Question

我想扫描 Prolog 中的列表。 特别是，我想编写一个谓词 scan_list (list)，我想让它检查当前元素是否是正整数，如果是则打印它。

谢谢。

Answer 1

如果这是家庭作业，请放心，学习任何编程语言的唯一方法就是练习并思考作业。然而，这里有一个版本可能是您想要的

scan_list([]). 
scan_list([H|T]) :- H > 0,!, print(H),nl,scan_list(T). 
scan_list([_|T]) :- scan_list(T). 

它的工作原理如下：

?- scan_list([1,-2,7,9,0,-1,14]).
1
7
9
14
yes

Answer 2

在 SWI-Prolog 中有 include/3，例如您可以编写

?- include(<(0), [1, -2, 7, 9, 0, -1, 14, 0.8], L).
L = [1, 7, 9, 14, 0.8].

（警告：此特定代码接受的数字多于正整数。）