first commit

1 files changed, 26 insertions, 0 deletions

diff --git a/problem56.erl b/problem56.erl
new file mode 100755
index 0000000..416bdbd
--- /dev/null
+++ b/problem56.erl
@@ -0,0 +1,26 @@
+-module(problem56).
+-export([solve/0]).
+
+solve() ->
+	lists:max(gen_sums(99)).
+
+gen_sums(M) ->
+	[digital_sum(X) || X <- gen_list(M)].
+
+gen_list(M) ->
+	L = lists:seq(1,M),
+	[pow(A,B) || A <- L, B <- L].
+
+digital_sum(Number) when is_integer(Number) ->
+	digital_sum(integer_to_list(Number));
+digital_sum([]) ->
+	0;
+digital_sum([H|T]) ->
+	(H-48) + digital_sum(T).
+
+pow(_,0) ->
+	1;
+pow(B,1) ->
+	B;
+pow(B,E) ->
+	B * pow(B,E-1).