Quiero detectar todos los números duplicados consecutivos en una lista. Esto lo estoy intentando con:
sublist( [], _ ):-!.
sublist( [X|XS], [X|XSS] ) :- sublist( XS, XSS ),!.
sublist( [X|XS], [_|XSS] ) :- sublist( [X,XS], XSS ).
consecutive_duplicates(Y,LS):-
member(Y,LS)
, sublist([Y,Y],LS)
.
Salida:
consecutive_duplicates(X,[1,1,4,3,2,2,4]).
X = 1 ;
X = 1 ;
X = 2 ;
X = 2 ;
false.
Sin embargo yo esperaba la siguiente salida:
X = 1;
X = 2;
¿Qué necesito cambiarle?