This commit is contained in:
@@ -0,0 +1,7 @@
|
||||
%%% 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.
|
||||
Reference in New Issue
Block a user