diff options
Diffstat (limited to 'problem48.erl')
-rwxr-xr-x | problem48.erl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/problem48.erl b/problem48.erl new file mode 100755 index 0000000..62f6935 --- /dev/null +++ b/problem48.erl @@ -0,0 +1,15 @@ +-module(problem48). +-export([solve/0]). + +solve() -> + series(1000). + +series(0) -> + 0; +series(N) -> + pow(N,N) + series(N-1). + +pow(_,0) -> + 1; +pow(B,E) -> + B * pow(B,E-1). |