(* zadatak pod a *)

fun prva(l,0) = nil | prva(h::t,k) = [h]@prva(t,k-1);
fun druga(nil,duzina,rot,brojac) = nil | druga(h::t,duzina,rot,brojac) = if((brojac>=rot) andalso (brojac<duzina)) then [h]@druga(t,duzina,rot,brojac+1) else druga(t,duzina,rot,brojac+1);
fun rotiraj(l,k) = druga(l,length l,k,0)@prva(l,k);

(* zadatak pod b *)

fun ubaci(x,nil) = [x] | ubaci(x,h::t) = if length(x)<length(h) then x::h::t else h::ubaci(x,t);
fun sort nil = nil | sort(h::t) = ubaci(h,sort t);
(* obican sort, samo sto umjesto poredjenja samih elemenata, mi poredimo duzine elemenata, a elementi su podliste *)

(* zadatak pod c - fja je identicna fji sa roka feb2 2010*)

fun lista(0)=nil | lista(n)=lista(n-1)@[n];
fun dijeli(nil,x)=nil | dijeli(h::t,x) = if (x mod h = 0) then dijeli(t,x)@[h] else dijeli(t,x);
fun provjeri x = dijeli(lista(x),x);
fun prost x = if length(provjeri(x))=2 then true else false;
 
fun ispitaj (x,t) = if(prost t) then (if prost(x-t) then t else ispitaj(x,t-1)) else ispitaj(x,t-1);
fun f2 x = ispitaj(x,x)