2023-07-01 11:58:00 -04:00
|
|
|
-module(solution1).
|
|
|
|
|
-export([main/0]).
|
|
|
|
|
babbage(N,E) when N*N rem 1000000 == 269696 ->
|
2026-02-01 16:33:20 -08:00
|
|
|
io:fwrite("~p",[N]);
|
2023-07-01 11:58:00 -04:00
|
|
|
babbage(N,E) ->
|
2026-02-01 16:33:20 -08:00
|
|
|
case E of
|
|
|
|
|
4 -> babbage(N+2,6);
|
|
|
|
|
6 -> babbage(N+8,4)
|
2023-07-01 11:58:00 -04:00
|
|
|
end.
|
|
|
|
|
main()->
|
2026-02-01 16:33:20 -08:00
|
|
|
babbage(4,4).
|
