Как написать myDel с добавлением в пролог?

Question

Я новичок в Прологе и застрял на каком-то домашнем задании по программированию.один из них должен работать так:

myDel(1, [1, 2, 1, 3, 1, 4], M).

результат должен быть:

M = [2, 3, 4].

, чтобы решить эту проблему, можно использовать только append рекурсивно и можно не использовать встроенное удаление .

Может кто-нибудь помочь?

Answer 1

Я должен сказать, что довольно сложно помочь, не просто покормив вас ответом.Пролог немного похож на это.Вот частичный ответ, который, надеюсь, не даст слишком много:

myDel(N, [], []).
myDel(N, [N|T], U) :- ...

Answer 2

Извини! Сокращение было необходимо.

myDel(N,L,DelL) :-
   append(L0,[N|R],L),
   myDel(N,R,DelL2),
   append(L0,DelL2,DelL),
   !.
myDel(_,L,L).