1 files changed, 14 insertions, 0 deletions
diff --git a/problem53.erl b/problem53.erl
new file mode 100755
index 0000000..f18f81c
--- /dev/null
+++ b/problem53.erl
@@ -0,0 +1,14 @@
+-module(problem53).
+-export([solve/0]).
+
+solve() ->
+	L = lists:seq(1,100),
+	G = [fact(N) div (fact(R) * fact(N-R)) ||
+		N <- L, R <- L, R < N],
+	H = [X || X <- G, X > 1000000],
+	length(H).
+
+fact(1) ->
+	1;
+fact(N) ->
+	N * fact(N-1).