Domasno od 18.10.24 za 22.10.24

% X e posleden vo listata L
posleden(X,[X]):-!.
posleden(X,[_|Ost]):-posleden(X,Ost).

% X1 i X2 se sosedni vo listata L
sosedni(X1, X2, [X1,X2|_]):-!.%Ako se trgne ! ke moze da se dobijat poveke od edna opcija ako X1 ili X2 se 'nepoznati'
sosedni(X1, X2, [_,X|Ost]):- sosedni(X1,X2,[X|Ost]).

% L2 e L1 bez prvoto pojavuvanja na X

brisi_prvo(X,[X|Ost],Ost):-!.
brisi_prvo(X,[Y|Ost],[Y|Ost1]):-X\=Y,brisi_prvo(X,Ost,Ost1),!.
brisi_prvo(_,L,L):-!.
% L2 e L1 bez site pojavuvanja na X
brisi_pojavuvanja(_,[],[]).
brisi_pojavuvanja(X,[X|Ost],Ost1):-brisi_pojavuvanja(X,Ost,Ost1),!.
brisi_pojavuvanja(X,[Y|Ost],[Y|Ost1]):-X\=Y,brisi_pojavuvanja(X,Ost,Ost1).