aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-04-30 12:34:36 -04:00
parent 4bb20c9b71
commit cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Task/Babbage-problem/Phix/babbage-problem-2.phix
View file

@ -12,6 +12,7 @@ procedure solve_babbage_problem() -- (so that return quits 3 loops)
cc += 1
if remainder(square,r10) = remainder(269696,r10) then
if digits=6 then
-- if remainder(square,1e6)=269696 then
printf(1,"Solution: %d (%d calcs)\n",{cand,cc})
return -- leave solve_babbage_problem()
end if
@ -20,7 +21,8 @@ procedure solve_babbage_problem() -- (so that return quits 3 loops)
end for
end for
{cands,nextc} = {nextc,{}}
printf(1,"%d-digit candidates: %v\n",{digits,cands})
string cs = join(cands,",",fmt:=sprintf("%%0%dd",digits))
printf(1,"%d-digit candidates: %s\n",{digits,cs})
p10 *= 10
r10 *= 10
end for