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

@ -7,9 +7,7 @@ proc init .
for pos = 1 to 81
if pos mod 9 = 1
s$ = input
if s$ = ""
s$ = input
.
if s$ = "" : s$ = input
len inp[] 0
for i = 1 to len s$
if substr s$ i 1 <> " "
@ -34,22 +32,14 @@ init
proc display .
for i = 1 to 81
write grid[i] & " "
if i mod 3 = 0
write " "
.
if i mod 9 = 0
print ""
.
if i mod 27 = 0
print ""
.
if i mod 3 = 0 : write " "
if i mod 9 = 0 : print ""
if i mod 27 = 0 : print ""
.
.
#
proc solve pos .
while grid[pos] <> 0
pos += 1
.
while grid[pos] <> 0 : pos += 1
if pos > 81
# solved
display