-module(primjer).
-export([ najveci/1 ]).

najveci([Glava | Rep]) ->
         najveci(Rep, Glava).

najveci([], Rezultat) ->
        Rezultat;
najveci([Glava | Rep], Trenutni_najveci) when Glava > Trenutni_najveci ->
         Novi_najveci = Glava,
         najveci(Rep, Novi_najveci);
najveci([_ | Rep], Trenutni_najveci) ->
         najveci(Rep, Trenutni_najveci).