1 files changed, 12 insertions, 0 deletions
diff --git a/problem73.erl b/problem73.erl
new file mode 100755
index 0000000..6b20bb7
--- /dev/null
+++ b/problem73.erl
@@ -0,0 +1,12 @@
+-module(problem73).
+-export([solve/0]).
+
+solve() ->
+	length([ X || X <- genlist(), X > 1/3, X < 1/2]).
+
+genlist() ->
+	O = lists:seq(1,10000),
+	[ N / D || N <- O, D <- O, N < D, gcd(N,D) =:= 1 ].
+
+gcd(A, 0) -> A;
+gcd(A, B) -> gcd(B, A rem B).