Smallest square that begins with n: Difference between revisions
Smallest square that begins with n (view source)
Revision as of 13:52, 22 January 2024
, 4 months ago→{{header|Prolog}}
Line 2,294:
=={{header|Prolog}}==
works with swi-prolog
<syntaxhighlight lang="prolog">
firstSqr(Num, Sqr):-
Start is ceil(sqrt(Num)),
NumLen is floor(log10(Num)) + 1,
between(Start, inf, N),
Sqr is N * N,
SqrLen is floor(log10(Sqr)) + 1,
Num =:= Sqr div 10**(SqrLen - NumLen),!.
showList(List):-
findnsols(7, _, (member(NumSqr, List), writef('%3r ->%6r', NumSqr)), _),
nl,
fail.
showList(_).
do:-findall([Num, Sqr], (between(1, 49, Num), firstSqr(Num, Sqr)), NumSqrList),
showList(NumSqrList).
</syntaxhighlight>
=={{header|Python}}==
===Iterate over prefixes===
| |||