1
编写一个复制列表中每个元素的函数。例如: {Duplicate [1 2 3]}返回列表[1 1 2 2 3 3]。复制列表中的元素OZ
我该如何在OZ莫扎特做到这一点?我不知道盎司的sintaxis,在序言中会是这样的:
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).