(* zadatak pod a *)

fun mslova nil = 0 | mslova(h::t) = if(ord(h)>=97 andalso ord(h)<=122) then (1+mslova(t)) else mslova(t);
fun cifre nil = 0 | cifre(h::t) = if(ord(h)>=48 andalso ord(h)<=57) then (1+cifre(t)) else cifre(t);

fun konacna x = if(mslova(explode x)>=cifre(explode x)) then (mslova(explode x)-cifre(explode x)) else (cifre(explode x)-mslova(explode x));
(* jasno je da trazimo apsolutnu vrijednost razlike *)

(* zadatak pod b *)

fun veci((a,b)) = if(a<=b) then b else a;
fun konacna1 nil = nil | konacna1(h::t) = [veci(h)]@konacna1(t);