solve A problem with Susi 937 from Italian magazine "La Settimana Enigmistica"

solve937.erl

-module(solve937).
-export([solve/0]).

% This solve the following problem:
%   find that number X < 54, so X^2 = A + B,
%   where A is the number made of the first
%   2 digits of X^2 and B is the number made
%   of the last 2 digits of X^2.

check(X) ->
    X2 = X * X, 
    A = X2 div 100,
    B = X2 rem 100,
    (A+B) == X.

solve() ->
    L = [X || X <- lists:seq(32, 54),
	      check(X)],
    io:fwrite("~w~n", [L]).