我有一个start()函数,它生成一个进程,并在该进程中多次运行一个方法,这是一个简单的计算器,因此每行都是:calculadora:contador({suma,1,1},Server)将结果打印到控制台(在本例中为1)。
问题是,当调用start时,它只打印start的最后一行,即:calculadora:contador('exit',服务器),它给出结果(ok,bye)。
所以我的问题是如何用这个start函数打印出每一个结果?
-module(calculadora).
-export([contador/2, loop/0, start/0]).
loop() ->
receive
{Pid, {suma, N1, N2}} ->
Pid ! N1 + N2,
loop();
{Pid, {resta, N1, N2}} ->
Pid ! N1 - N2,
loop();
{Pid, {multiplicacion, N1, N2}} ->
Pid ! N1 * N2,
loop();
{Pid, {division, N1, N2}} ->
Pid ! N1 / N2,
loop();
{Pid, exit} ->
Pid ! {"Bye"};
{Pid, _} ->
Pid ! {error, "wtf"},
loop()
end.
contador(X, Pid) ->
Pid ! {self(), X},
receive
{error, E} ->
{bad, E};
{Cont} ->
{ok, Cont};
R ->
{ok, R}
after 10 ->
{error, timeout}
end.
start() ->
Server = spawn(?MODULE, loop, []),
calculadora:contador({suma, 1, 1}, Server),
calculadora:contador({multiplicacion, 1, 1}, Server),
calculadora:contador({division, 1, 1}, Server),
calculadora:contador({resta, 1, 1}, Server),
calculadora:contador(exit, Server).
1条答案
按热度按时间0wi1tuuw1#
使用
io:format
,如下所示: