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

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

(limited to 'problem53.erl')

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