1 files changed, 10 insertions, 0 deletions
diff --git a/problem9.erl b/problem9.erl
new file mode 100755
index 0000000..2948d18
--- /dev/null
+++ b/problem9.erl
@@ -0,0 +1,10 @@
+-module(problem9).
+-export([solve/0]).
+
+solve() ->
+	[{A,B,C}|_] = pythag(1000),
+	A*B*C.
+
+pythag(N) ->
+	D = lists:seq(1,N),
+	[{A,B,C} || A <- D, B <- D, C <- D, A+B+C=:=N, A*A+B*B=:=C*C].