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