Advertisement
Guest User

Untitled

a guest
Feb 28th, 2017
102
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Erlang 0.24 KB | None | 0 0
  1. -module(second).
  2. -export([hypotenuse/2, perimeter/2, area/2]).
  3.  
  4. hypotenuse(X,Y) ->
  5.     A = first:square(X),
  6.     B = first:square(Y),
  7.     math:sqrt(A + B).
  8.  
  9. perimeter(X,Y) ->
  10.     H = second:hypotenuse(X, Y),
  11.     X + Y + H.
  12.  
  13. area(X, Y) ->
  14.     (X * Y) / 2.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement