使用序言在列表中添加双元素?

本文介绍了使用序言在列表中添加双元素?的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！

问题描述

如何在Prolog中的列表中将数字加倍?例如:

How can I double even numbers in a list in Prolog?For example:

结果应为:

谢谢！

推荐答案

即使检查可能也可以做得更好，但还是可以的.

Even check can probably be done better, but it kinda works.

even(N) :- 
    N mod 2 =:= 0.    

doubleeven([],[]).
doubleeven([H|T], [H,H|Z]) :-
    even(H),
    !,
    doubleeven(T,Z).
doubleeven([H|T], [H|Z]) :-
    doubleeven(T,Z).

这篇关于使用序言在列表中添加双元素?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！