8 lines
191 B
Plaintext
8 lines
191 B
Plaintext
%%% Geometry module.
|
|
-module(geometry).
|
|
-export([area/1]).
|
|
|
|
%% Compute rectangle and circle area.
|
|
area({rectangle, Width, Ht}) -> Width * Ht;
|
|
area({circle, R}) -> 3.14159 * R * R.
|