1 files changed, 12 insertions, 0 deletions
diff --git a/problem4.erl b/problem4.erl
new file mode 100755
index 0000000..604b8cf
--- /dev/null
+++ b/problem4.erl
@@ -0,0 +1,12 @@
+-module(problem4).
+-export([solve/0]).
+
+solve() ->
+	lists:max([list_to_integer(X) || X <- palindromes()]).
+palindromes() ->
+	[X || X <- words(), X =:= lists:reverse(X)].
+words() ->
+	[integer_to_list(X) || X <- numbers()].
+numbers() ->
+	Z = lists:seq(100,999),
+	[X*Y || X <- Z, Y <- Z].