Advertisement
Guest User

Untitled

a guest
Jun 27th, 2017
48
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.30 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(A)-> % obtain the square of a number
  15. mult(A,A).
  16.  
  17. treble(A)-> % obtain the triple of a number
  18. mult(3,A).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement