fp-in-erlang/second.erl

-module(second).
-import (first, [mult/2, square/1]).
-export([hypotenuse/2,
         perimeter/2,
         area/2]).


hypotenuse(A,B) ->
    math:sqrt(square(A) + square(B)).


perimeter(A,B) ->
    A + B + hypotenuse(A,B).


area(A,B) ->
    mult(mult(A,B), 0.5).