使用序言在列表中添加双元素? [英] Double elements in list using prolog?

问题描述

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

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

X = [1,2,3,5,4]

X=[1,2,3,5,4]

结果应为:

X = [1,2,2,3,5,4,4]

X=[1,2,2,3,5,4,4]

谢谢！

推荐答案

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

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).

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