blob: 604b8cfde5bad7fb537b4d4477fba4bf1006cedc (
plain)
1
2
3
4
5
6
7
8
9
10
11
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].
|