/* Odredi tri poslednja elementa liste */
/* Poziva se sa: zadnja_3(Lista,E1,E2,E3). */

zadnja_3([X,Y,Z],X,Y,Z):-!.
zadnja_3([_|R],X,Y,Z):-zadnja_3(R,X,Y,Z).

/* Proveriti da li su tri data elementa uzastopni clanovi date liste */
/* Poziva se sa: uzastopni(X,Y,Z,Lista). */

uzastopni(X,Y,Z,[X,Y,Z|_]):-!.
uzastopni(X,Y,Z,[_|R]):-uzastopni(X,Y,Z,R).