如何编写只将正数相加的prolog程序？

在Prolog中编写只将正数相加的程序可以通过以下步骤实现：

首先，定义一个谓词sum_positive/2，它接受两个参数：一个列表和一个变量，用于存储结果。
接下来，定义sum_positive/2的基本情况。当列表为空时，结果变量的值为0。这可以通过以下规则实现：
接下来，定义sum_positive/2的基本情况。当列表为空时，结果变量的值为0。这可以通过以下规则实现：
然后，定义sum_positive/2的递归情况。当列表不为空时，我们检查列表的头部元素是否为正数。如果是正数，则将其加到结果变量上，并递归调用sum_positive/2处理剩余的列表元素。如果头部元素不是正数，则直接递归调用sum_positive/2处理剩余的列表元素。这可以通过以下规则实现：
然后，定义sum_positive/2的递归情况。当列表不为空时，我们检查列表的头部元素是否为正数。如果是正数，则将其加到结果变量上，并递归调用sum_positive/2处理剩余的列表元素。如果头部元素不是正数，则直接递归调用sum_positive/2处理剩余的列表元素。这可以通过以下规则实现：
最后，可以通过查询sum_positive/2来测试程序。例如，查询sum_positive([1, -2, 3, -4, 5], Sum)将返回Sum = 9。