7 lines
260 B
Prolog
7 lines
260 B
Prolog
babbage :-
|
|
Start is ceil(sqrt(269696)),
|
|
between(Start, inf, N),
|
|
Square is N * N,
|
|
Square mod 100 =:= 96, % speed up
|
|
Square mod 1000000 =:= 269696,!, % break after first true
|
|
format('lowest number is ~d which squared becomes ~d~n', [N, Square]).
|