Data update
This commit is contained in:
parent
72eb4943cb
commit
4d5544505c
2347 changed files with 62432 additions and 16731 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue