week 1 erlang

mathStuff.erl

-module(mathStuff).
-export([perimeter/1]).

perimeter({square,Side}) ->
  4 * Side;
perimeter({circle,Radius}) ->
  2 * 3.1415926 * Radius;
perimeter({triangle,A,B,C}) ->
  A + B + C;
perimeter({polygon,L}) ->
  lists:sum(L).

temp.erl

-module(temp).
-export([f2c/1, c2f/1, convert/1]).

f2c(F) ->
  (F - 32) * 5 div 9.

c2f(C) ->
  C * 9 div 5 + 32.

convert({c,T}) ->
  c2f(T);
convert({f,T}) ->
  f2c(T).