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,17 +1,12 @@
len l[] 100
for a = 0 to 100 div 6
for b = 0 to 100 div 9
for c = 0 to 100 div 20
n = a * 6 + b * 9 + c * 20
if n >= 1 and n <= 100
l[n] = 1
.
for a = 0 step 6 to 100
for b = 0 step 9 to 100
for c = 0 step 20 to 100
n = a + b + c
if n >= 1 and n <= 100 : l[n] = 1
.
.
.
for n = 100 downto 1
if l[n] = 0
print n
break 1
.
.
n = 100
while l[n] <> 0 : n -= 1
print n