Advertisement
Guest User

Untitled

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