Data update

This commit is contained in:
Ingy döt Net 2025-06-11 20:16:52 -04:00
parent 72eb4943cb
commit 4d5544505c
2347 changed files with 62432 additions and 16731 deletions

View file

@ -9,9 +9,7 @@ fastfunc isself start i .
j = start
sum = digsum start
while j < i
if j + sum = i
return 0
.
if j + sum = i : return 0
sum += 1
j += 1
if j mod 10 = 0
@ -20,7 +18,7 @@ fastfunc isself start i .
.
return 1
.
proc main . .
proc main .
i = 1
po = 10
digits = 1
@ -29,9 +27,7 @@ proc main . .
start = higher (i - offs) 0
if isself start i = 1
cnt += 1
if cnt <= 50
write i & " "
.
if cnt <= 50 : write i & " "
.
until cnt = 100000000
i += 1