From 0248ed34ce3d05228bc5084669c3a27933be0c2e Mon Sep 17 00:00:00 2001
From: Nathan Lasseter <nathan.je.lasseter@googlemail.com>
Date: Sun, 4 Oct 2009 00:56:56 +0100
Subject: first commit

---
 problem48.erl | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100755 problem48.erl

(limited to 'problem48.erl')

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).
-- 
cgit v1.2.1