Erlang,如何在控制台中打印每个值?

mwyxok5s  于 2022-12-08  发布在  Erlang
关注(0)|答案(1)|浏览(319)

我有一个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).
0wi1tuuw

0wi1tuuw1#

使用io:format,如下所示:

io:format("Result: ~p~n", [calculadora:contador({suma,1,1},Server)]),

相关问题