Question

Closed 11 years ago.

能帮我处理下三个Prolog方案吗?

Summary of the elements in a list, and check that is divided or not divided with 3? For example, the list is [1, 2, 3] --> and the sum of the element is divided with 3, because 1+2+3=6, and 6/3=2 --> so the output should be true.
如果7是列表中的,则加倍。 例如:输入列表 - & gt; [1, 7, 3, 7, 7,7], 产出应该是 [1, 7, 7, 7, 7,7,7] 。
如果7是列表中的7, 请更改为 2, 7 2. 例如: 输入列表 - & gt; [1, 7, 2, 1], 输出应该是 [1, 2, 7, 7, 2, 2, 1]

程序是什么? 如何用 SWI -Prolog 测试?

感谢大家的期待!

Answer 1

我会给你几个提示:

traverse_list([],[]).
traverse_list([7|Xs], [7,7|Ps]) :-
   !,
   traverse_list(Xs,Ps).
traverse_list([X|Xs], [X|Ps]) :-
   traverse_list(Xs,Ps).

考虑修改此碎片为 3 。

Answer 2

我建议你考虑一下自己去弄清楚

我假设你的老师想看你做循环而不是使用内置的合成列表的前提

sum([FirstNum | Rest], Sum) :- sum(Rest, Sum1), Sum is FirstNum + Sum1.

然后使用“ mod” 运算符来检查可变性。记住, 请在递归到达空集时包含一个基本大小写。如果您能理解这一点, 其余的应该很容易。祝你好运。