16 lines
296 B
Erlang
16 lines
296 B
Erlang
|
-module(geometry1).
|
||
|
|
-export([test/0, area/1]).
|
||
|
|
|
||
|
|
test() ->
|
||
|
|
12 = area({rectangle, 3, 4}),
|
||
|
|
144 = area({square, 12}),
|
||
|
|
tests_worked.
|
||
|
|
area({rectangle, Width, Height}) ->
|
||
|
|
Width * Height;
|
||
|
|
area({circle, Radius}) ->
|
||
|
|
3.14159 * Radius * Radius;
|
||
|
|
area({square, Side}) ->
|
||
|
|
Side * Side.
|
||
|
|
|
||
|
|
|