-module(prog3).
-compile([export_all]).

przetwarzaj(Lista,From) ->
    PosortowanaLista = lists:sort(Lista),
    From ! {posortowana, PosortowanaLista}.

make(1, ListaLiczb, Zbieracz) -> spawn(?MODULE, przetwarzaj, [ListaLiczb,Zbieracz]);
make(N, ListaLiczb, Zbieracz) ->
    {L1, Reszta} = lists:split(length(ListaLiczb) div N , ListaLiczb),
    spawn(?MODULE, przetwarzaj, [L1,Zbieracz]),
    make(N-1, Reszta, Zbieracz).

generujListe(0) -> [];
generujListe(N) ->
    [random:uniform(100) | generujListe(N-1)].

wypisz([]) -> io:format("\n");
wypisz([H|T]) ->
    io:format("~p ",[H]),
    wypisz(T).
    %io:format("Dostalem ~p przetworzonych liczb\n",[length(Lista)]).

merge(L1,[], Suma) -> Suma ++ L1;
merge([],L2,Suma) -> Suma ++ L2;
merge([H1|T1], [H2|T2], Suma) ->
    if
        H1 < H2 -> merge(T1,[H2|T2], Suma ++ [H1]);
        true -> merge([H1|T1],T2, Suma ++ [H2])
    end.

odbierz(PosortowanaLista) ->
    receive
        {posrtowana, Lista} ->
            Zlaczona = merge(PosortowanaLista, Lista, []),
            odbierz(Zlaczona)
        after
            200 -> wypisz(PosortowanaLista)
    end.

main() ->
    ListaLiczb = generujListe(101),
    ZbieraczWynikow = spawn(?MODULE, odbierz,[[]]),
    make(10,ListaLiczb,ZbieraczWynikow).