1 files changed, 15 insertions, 0 deletions
diff --git a/problem16.erl b/problem16.erl
new file mode 100755
index 0000000..7217ae6
--- /dev/null
+++ b/problem16.erl
@@ -0,0 +1,15 @@
+-module(problem16).
+-export([solve/0]).
+
+solve() ->
+	lists:sum(getlist()).
+
+getlist() ->
+	[X-48 || X <- integer_to_list(getnum())].
+getnum() ->
+	pow2(1000).
+
+pow2(0) ->
+	1;
+pow2(X) ->
+	2 * pow2(X-1).