aahhhh

2025-10-14 11:42:23 +02:00
parent cedcd63214
commit a4957f2f4b
1 changed files with 7 additions and 5 deletions
--- a/sudoku.lispbm
+++ b/sudoku.lispbm
@ -4,10 +4,12 @@
    (lambda (x)
      (foldr
       (lambda (y z)
-         (match (filter (lambda (q) (= q y)) nums)
-           (((? r) . nil) (match (filter (lambda (q) (= r q)) x)
+         (match y
+            (nil z)
+            (_ (match (filter (lambda (q) (= q y)) nums)
+                (((? r) . nil) (match (filter (lambda (q) (eq r q)) x)
                                (((? _)) z)
                                (_ nil)))
-           (_ nil)))
+                (_ nil)))))
       t
       x)))