Sudoku: Difference between revisions

Content deleted Content added

Inline

@@ Line 3,042: / Line 3,042: @@
 len col[] 810
 len box[] 810
-global grid[] .
+len grid[] 82
 #
 func init . .
-  for i range 9
+  for pos range 81
-    s$[] = str_split input " "
+    if pos mod 9 = 0
+      s$[] = str_split input " "
-    for j range 9
-      pos = len grid[]
-      dig = number s$[j]
-      grid[] &= dig
-      r = pos div 9
-      c = pos mod 9
-      b = r div 3 * 3 + c div 3
-      row[r * 10 + dig] = 1
-      col[c * 10 + dig] = 1
-      box[b * 10 + dig] = 1
     .
+    dig = number s$[pos mod 9]
+    grid[pos] = dig
+    r = pos div 9
+    c = pos mod 9
+    b = r div 3 * 3 + c div 3
+    row[r * 10 + dig] = 1
+    col[c * 10 + dig] = 1
+    box[b * 10 + dig] = 1
   .
-  grid[] &= 0
 .
 call init