1 files changed, 28 insertions, 0 deletions
diff --git a/problem24.erl b/problem24.erl
new file mode 100755
index 0000000..8c0d4eb
--- /dev/null
+++ b/problem24.erl
@@ -0,0 +1,28 @@
+-module(problem24).
+-export([solve/0]).
+
+solve() ->
+	L = lists:seq(0,9),
+	lists:nth(1000000,
+		[{A,B,C,D,E,F,G,H,I,J} ||
+			A <- L,
+			B <- L,
+			C <- L,
+			D <- L,
+			E <- L,
+			F <- L,
+			G <- L,
+			H <- L,
+			I <- L,
+			J <- L,
+			B=/=A,
+			C=/=A, C=/=B,
+			D=/=A, D=/=B, D=/=C,
+			E=/=A, E=/=B, E=/=C, E=/=D,
+			F=/=A, F=/=B, F=/=C, F=/=D, F=/=E,
+			G=/=A, G=/=B, G=/=C, G=/=D, G=/=E, G=/=F,
+			H=/=A, H=/=B, H=/=C, H=/=D, H=/=E, H=/=F, H=/=G,
+			I=/=A, I=/=B, I=/=C, I=/=D, I=/=E, I=/=F, I=/=G, I=/=H,
+			J=/=A, J=/=B, J=/=C, J=/=D, J=/=E, J=/=F, J=/=G, J=/=H, J=/=I
+		]
+	).