min([X],X).
min([G|R],M):- M is G, min(R,M1), M1<M, M is M1.

sortm([],[]).
sortm(L,[M|Y]):-min(L,M), izbaci(M,L,L1), sortm(L1,Y).

izbaci(X,[G|R],[G|Z]):-not(X==G),izbaci(X,R,Z).
izbaci(_,[G|R],R).

/*  Poziva se sa: sortm(Nesortirana,Sortirana).   */