Erlang 简单打牌程序

%%%-------------------------------------------------------------------
%%% @author ASUS
%%% @copyright © 2019,
%%% @doc
%%% 两个客户端，一个服务端
%%% 错误通知
%%% 比大小
%%% @end
%%% Created : 28. 六月 2019 17:35
%%%-------------------------------------------------------------------
-module(card_server).
-author(“ming”).

%% API
-export([loop/1, rpc/2, start/0, add/2, send/1, max/1, max/2]).

%% 启动服务端进程
start() ->
register(server, spawn(?MODULE, loop, [maps:new()])).

%% 向进程Pid发送消息
rpc(Pid, Request) ->
Pid ! {self(), Request},
receive
{card, Num} ->
io:format(“你的牌是：_pn”, [Num]),
wait();
Response ->
Response
end.

%% 等待游戏结果
wait() ->
receive
{result, Result} ->
case Result of
0 ->
io:fwrite(“你赢了”);
1 ->
io:fwrite(“你输了”)
en