sortiraj1([],[]).
sortiraj1([A|B],C):-razdvoj(A,B,L,D),sortiraj1(L,L1),
                    sortiraj1(D,D1),dopisi(L1,[A|D1],C).
sortiraj(A,B):-sortiraj1(A,B),!.

razdvoj1(_,[],[],[]).
razdvoj1(X,[Y|Z],U,[Y|V]):-X>Y,razdvoj1(X,Z,U,V).
razdvoj1(X,[Y|Z],[Y|U],V):-razdvoj1(X,Z,U,V).
razdvoj(X,Y,Z,U):-razdvoj1(X,Y,Z,U),!.

dopisi1([],X,X).
dopisi1([X|Y],Z,[X|U]):-dopisi1(Y,Z,U).
dopisi(X,Y,Z):-dopisi1(X,Y,Z),!.