blob: 62f69350e785d4e95b025709c07b18f8d031e07d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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).
|