>
Circular Function wrote: > -module(math). > -export([fac/1, sq/1,cube/1,power/2]). > > fac(N) when N>0 -> > N * fac(N-1); > fac(0) -> > 1. > > sq(X) -> X*X. > > cube(X) -> X*X*X. > > power(N,P) -> > if P==0 -> > 1; > true -> > if P>0 -> > N * power(N,P - 1); > true -> > 1 / power(N,-1 * P). place "end end." instead of "." on the last line.