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

---
 problem71.erl | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100755 problem71.erl

(limited to 'problem71.erl')

diff --git a/problem71.erl b/problem71.erl
new file mode 100755
index 0000000..7495b0f
--- /dev/null
+++ b/problem71.erl
@@ -0,0 +1,15 @@
+-module(problem71).
+-export([solve/0]).
+
+solve() ->
+	find(genlist()).
+
+find([{A,_},{3,7}|_]) -> A;
+find(L) -> find(tl(L)).
+
+genlist() ->
+	O = lists:seq(1,1000000),
+	[ {N, D} || N <- O, D <- O, N < D, gcd(N,D) =:= 1 ].
+
+gcd(A, 0) -> A;
+gcd(A, B) -> gcd(B, A rem B).
-- 
cgit v1.2.1