/* Od date liste formirati novu koja se sastoji od prvih n elemenata */
/* Poziva se sa: prvih_n(Lista,N,Rez). */

prvih_n(L,N,_):-duzina(L,M),M<N,write('Lista je prekratka'),!,fail.
prvih_n(L,0,[]):-!.
prvih_n([G|R],N,[G|R1]):-M is N-1,prvih_n(R,M,R1).

duzina([],0):-!.
duzina([_|R],N):-duzina(R,M),N is M+1.