Data update

This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions

View file

@ -1,19 +1,15 @@
fastfunc next curr n limit .
repeat
curr += 1
if curr = limit
return -1
.
if curr = limit : return -1
sum = 0
tmp = curr
repeat
dig = tmp mod 10
tmp = tmp div 10
h = n
r = 1
while h > 0
for h = n downto 1
r *= dig
h -= 1
.
sum += r
until tmp = 0
@ -27,6 +23,7 @@ for n = 3 to 8
repeat
curr = next curr n pow 10 n
until curr = -1
print curr
write curr & " "
.
.
print ""