1 files changed, 29 insertions, 0 deletions
diff --git a/problem14.erl b/problem14.erl
new file mode 100755
index 0000000..335c269
--- /dev/null
+++ b/problem14.erl
@@ -0,0 +1,29 @@
+-module(problem14).
+-export([solve/0]).
+
+solve() ->
+	rep(1,1000000,1,1).
+
+do(N, C) ->
+	if
+		N == 1 ->
+			C;
+		N rem 2 == 0 ->
+			do((N div 2), (C + 1));
+		N rem 2 > 0 ->
+			do(((3 * N) + 1), (C + 1))
+	end.
+
+rep(Num, Max, Top, TN) ->
+	if
+		Num > Max ->
+			TN;
+		true ->
+			L = do(Num, 1),
+			if
+				L > Top ->
+					rep((Num + 1), Max, L, Num);
+				true ->
+					rep((Num + 1), Max, Top, TN)
+			end
+	end.