Erlang入门实例程序

#vi geometry.erl

%% —注释
%% Excerpted from “Programming Erlang”
%%—

-module(geometry).
-export([area/1]).

area({rectangle, Width, Height}) -> Width Height;
area({square, X}) -> X X;
area({circle, R}) -> 3.14159 R R.