-module (server).
-export ([startA/0,startB/0,procesA/0,procesB/1,prime/1]).


procesA() -> io:format("~p ~n",["Proces A: Oczekuje na otrzymanie komunikatu"]),
             procesA_loop().

procesA_loop() ->
                    receive
                          X-> io:format("Otrzymalem liczbe ~p ~n",[X]),
                          {client, 'clientNode1@s0053-13'} ! prime(X)

                    end,
                    procesA_loop().


procesB(Komunikat) -> io:format("Proces B: Uruchomiony ~n",[]),
                      {atom_procesu_A,list_to_atom("clientNode1@debian")} ! Komunikat.




startA () -> register(server, spawn(server,procesA,[])).
startB () -> procesB(122).


prime(X) -> RES = [ A || A <- lists:seq(1, X), X rem A == 0],
    if
        (length(RES) == 2) -> prime;
        true -> notprime
    end.