7 lines
No EOL
190 B
Text
7 lines
No EOL
190 B
Text
%%% 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. |