Advertisement
Guest User

Untitled

a guest
Dec 9th, 2016
61
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.21 KB | None | 0 0
  1. estroy_item(Item, [Head|Tail], N):-
  2. Head = Item,
  3. destroy_item(Item, Tail, N).
  4. destroy_item(Item, [Head|Tail], N):-
  5. destroy_item(Item,Tail,N),
  6. append(Head, N, N).
  7. destroy_item(_, [], []).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement