-module(one).
-export([area/1,start/1]).
%% 处理面积 rectangle square circle
% 第一种写法
% area(Shape)->
% case Shape of
% {rectangle,W,H}->
% W*H;
% {square,W}->
% W*W;
% {circle,R}->
% 3.1415926*R*R;
% _Any->
% argsError
% end.
% 第二种写法
area({rectangle,W,H})->
W*H;
area({square,W})->
W*W;
area({circle,R})->
3.14*R*R.
% if语句
start(Num)->
if
Num>0 -> ok;
Num<0 -> false;
true -> 0
end.
Erlang模式匹配
最新推荐文章于 2023-12-02 15:14:25 发布