diff options
Diffstat (limited to 'problem4.erl')
-rwxr-xr-x | problem4.erl | 12 |
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]. |