aahhhh

sudoku.lispbm

@@ -4,10 +4,12 @@
     (lambda (x)
       (foldr
        (lambda (y z)
-         (match (filter (lambda (q) (= q y)) nums)
+         (match y
-           (((? r) . nil) (match (filter (lambda (q) (= r q)) x)
+            (nil z)
-                                 (((? _)) z)
+            (_ (match (filter (lambda (q) (= q y)) nums)
-                                 (_ nil)))
+                (((? r) . nil) (match (filter (lambda (q) (eq r q)) x)
-           (_ nil)))
+                                (((? _)) z)
+                                (_ nil)))
+                (_ nil)))))
        t
        x)))