ddd

lista_hossz([],0).

lista_hossz([_H|T],Hossz):-
    lista_hossz(T,Hossz1),
    Hossz is Hossz1+1.

lista_epit([],[]).

lista_epit([H|T],[[Sz|H]|T2]):-
lista_epit(T,T2),
    lista_hossz(H,Sz).

lista_eredmeny([],[]).

lista_eredmeny([[_|HT]|T],[HT|T2]):-
lista_eredmeny(T,T2).

lsort(L,Ered):-
    lista_epit(L,F1),
    sort(1,@=<,F1,F2),
    lista_eredmeny(F2,Ered).