Slipkorn

sinRepetidos

Jul 4th, 2014
235
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Prolog 0.62 KB | None | 0 0
  1. sinRepetidos([], []):- !. %Esto es de escape para que termine
  2.  
  3. sinRepetidos([Primero|Cola], SinRepetidos):-
  4.           member(Primero, Cola), % Si el primero que recibe es parte de la Cola no lo agrego a Sinrepetidos
  5.           !, %1
  6.           sinRepetidos(Cola, SinRepetidos). %Y vuelvo a llamar a la funcion
  7.          
  8. %Si en la anterior fallo porque en la anterior el Primero no es parte de la cola vengo para aca
  9. sinRepetidos([Primero|Cola], [Primero|SinRepetidos]):- %cuando devuelva la cola de Sinrepetidos le agregare el Primero
  10.           sinRepetidos(Cola, SinRepetidos).
  11.  
  12. %1. Esto no lo entiendo bien, comentalo y fijate que sucede
Advertisement
Add Comment
Please, Sign In to add comment