1 files changed, 14 insertions, 0 deletions
diff --git a/problem12.erl b/problem12.erl
new file mode 100644
index 0000000..5b55757
--- /dev/null
+++ b/problem12.erl
@@ -0,0 +1,14 @@
+-module(problem12).
+-export([solve/0]).
+
+solve() -> test(1).
+
+test(N) ->
+	T = ((N * (N + 1)) div 2),
+	D = (2 * length([X || X <- lists:seq(1, erlang:trunc(math:sqrt(T))), (T rem X) =:= 0])),
+	if
+		D > 500 ->
+			T;
+		true ->
+			test(N+1)
+	end.