1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
-module(problem6). -export([solve/0]). solve() -> diff(lists:seq(1,100)). diff(List) -> M = sum_of_squares(List), N = square_of_sum(List), if M < N -> N - M; M > N -> M - N; true -> 0 end. sum_of_squares(List) -> lists:sum(lists:map(fun(X) -> X*X end, List)). square_of_sum(List) -> O = lists:sum(List), O*O.