Advertisement
Guest User

Untitled

a guest
Jun 23rd, 2017
48
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.29 KB | None | 0 0
  1. -module(first).
  2. -export([double/1,treble/1,square/1,mult/2,area/3]).
  3.  
  4. mult(X, Y) ->
  5. X*Y.
  6.  
  7. double(X) ->
  8. mult(2, X).
  9.  
  10. % Area of a triangle (Heron's formula)
  11. area(A,B,C) ->
  12. S = (A+B+C)/2,
  13. math:sqrt(S*(S-A)*(S-B)*(S-C)).
  14.  
  15. square(X) ->
  16. mult(X, X).
  17.  
  18. treble(X) ->
  19. mult(3, X).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement