Facebook
From Oscar, 6 Years ago, written in Plain Text.
Embed
Download Paste or View Raw
Hits: 246
  1. bzp2([],A,A).
  2.  
  3. bzp2([H|T],L2,A):-
  4.     not(member(H,A)),
  5.     append(A,[H],A2),
  6.     bzp2(T,L2,A2).
  7.  
  8. bzp2([H|T],L2,A):-
  9.     member(H,A),
  10.     bzp2(T,L2,A).