Toggle navigation
?
users online
Logout
Open hangout
Open chat for current file
del_repeated1([], []). del_repeated1([H, H | T], R) :- !, del_repeated1([H | T], R). del_repeated1([H | T], [H | R]) :- del_repeated1(T, R). del_repeated2([], []). del_repeated2([H], [H]). del_repeated2([H, H | T], R) :- del_repeated2([H | T], R). del_repeated2([H1, H2 | T], [H1 | R]) :- H1 \= H2, del_repeated2([H2 | T], R). /** <examples> ?- del_repeated1([1,1,2,2,3,3,3,4,4,4,4], Ys). ?- del_repeated2([1,1,2,2,3,3,3,4,4,4,4], Ys). */