Babbage problem: Difference between revisions
m
→alternative
m (→alternative) |
|||
Line 3,066:
</pre>
===alternative===
with swi-prolog buildin between ->
<syntaxhighlight lang="prolog">
babbage :-
Line 3,072:
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]).
</syntaxhighlight>
|