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

---
 problem25.erl | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100755 problem25.erl

(limited to 'problem25.erl')

diff --git a/problem25.erl b/problem25.erl
new file mode 100755
index 0000000..8b89b8d
--- /dev/null
+++ b/problem25.erl
@@ -0,0 +1,14 @@
+-module(problem25).
+-export([solve/0]).
+
+solve() ->
+	fibdigits(1000, 2, 1, 1).
+
+fibdigits(N, M, A, B) ->
+	L = length(integer_to_list(A)),
+	if
+		L =:= N ->
+			M;
+		true ->
+			fibdigits(N, M+1, A+B, A)
+	end.
-- 
cgit v1.2.1