area_server3.erl

text/x-erlang area_server3.erl — 1 KB

Continguts del fitxer

-module(area_server3).
-export([loop/0, rpc/2]).

rpc(Pid, Peticio) ->
	Pid ! {self(), Peticio},
	receive
		{Pid, Resposta} ->
			%Fig=element(1,Peticio),
			io:format("L'rea del ~p s de ~p.~n", [element(1,Peticio),Resposta])
	end.



loop() ->
	receive
		{From, {rectangle, X, Y}} -> From ! {self(), X * Y}, loop();
		{From, {cercle, R}} -> From ! {self(), 3.14159 * R * R}, loop();
		{From, Other} -> From ! {self(), {error,Other}}, loop()
	end.