小编Osc*_*Gal的帖子

我收到了这个问题,我无法完成,我不知道我做错了什么,有人可以帮助我吗？

写一个谓词,在列表中的第1,第2,第4,第8 ......元素之后添加值v.

% add(L:list, E:Number, P:Number, C:number, H:List)
% add(i,i,i,i,o)

add([],_,_,_,[]).
add([_|T],E,P,C,[HR|TR]) :-
   P =:= C,
   HR is E,
   C is C+1,
   P is P*2,
   add(T,E,P,C,TR).
add([H|T],E,P,C,[H|TR]) :-
   P =\= C,
   C is C+1,
   add(T,E,P,C,TR).