Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- estroy_item(Item, [Head|Tail], N):-
- Head = Item,
- destroy_item(Item, Tail, N).
- destroy_item(Item, [Head|Tail], N):-
- destroy_item(Item,Tail,N),
- append(Head, N, N).
- destroy_item(_, [], []).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement