Esteu aquí: Inici Assignatures Programació Concurrent i en Temps Real Erlang: Exemples area_server.erl

area_server.erl

area_server.erl — Erlang source code, 439 bytes

Continguts del fitxer

-module ( area_server ).
-export ([loop/0]).

loop () -> receive
		{cercle, R} ->
			io: format (" L'�rea del cercle �s ~p~n", [3.1415926 * R * R]),
			loop ();
		{quadrat, R} ->
			io: format (" L'�rea del quadrat �s ~p~n", [R * R]),
			loop ();
		{rectangle, X, Y} ->
			io: format (" L'�rea del rectangle �s ~p~n" ,[X * Y]),
			loop ();
		Other ->
			io: format (" No se l'area de ~p es ~n" ,[ Other ]),
			loop ()
	end.