Как я могу получить [a, 0, b, 0, c, 0], когда я даю [a, b, c]?

Question

Я сделал этот код:

ceros([A|B],[C|D]):-
C is [A,0],
ceros(B,D).

и когда я пытаюсь это сделать, проконсультируйтесь:

?- ceros([a,b,c],X)

Я должен получить: Х = [а, 0, Ь, 0, с, 0]

но я получаю ошибку:

Arithmetic: `[_2554,0]' is not a function

Я понятия не имею, почему я получаю эту ошибку, поэтому я был бы очень признателен, если бы кто-то смог мне ее объяснить. Спасибо

Answer 1

Понял

ceros([],[]).
ceros([A|B],[A,0|D]):-
ceros(B,D).