pd:


 sklej([R|PoprzedniDzien],[sr|[NastepnyDzien|Reszta]],[pn,wt,sr,czw,pt,sob,nd]).

X - czw
X- wt

38 ?- sklej(Poprz,[sr|Nast],[pn,wet,sr,czw,pt,sob,nd]).Poprz = [pn, wet],
Nast = [czw, pt, sob, nd] ;
false.
37 ?- sklej(X,Y,[1,2,3,4,5]).
sklej([1,2,3],X,[1,2,3,4,5]).
dlugosc([7,4,5,2],Dl).

sklej(_,[sr|Nast],[pn,wt,sr,czw,pt,sob,nd]).

czyNalezy(X,[X|_]).
czyNalezy(X,[_|T]):-czyNalezy(X,T).

dlugosc([],0).
dlugosc([_|T],Dl):-dlugosc(T,X),Dl is X+1.

suma([H|T],S):-suma(T,X),S is X+H.
suma([],0).

odejmowanie([H|T],O):-odejmowanie(T,X),O is H-X.
odejmowanie([],0).

mnozenie([H|T],M):-mnozenie(T,X),M is H*X.
mnozenie([],1).

dzielenie([H|T],D):-dzielenie(T,X),D is H/X.
dzielenie([],1).

sklej([],L2,L2).
sklej([H|L1],L2,[H|L3]):-sklej(L1,L2,L3).



Wyświetlenie CZWARTKU
sklej(_,[sr|[NastepnyDzien|X]],[pn,wt,sr,czw,pt,sob,nd]).

Wyświetlenie WTORKU