Way simpler

sudoku.lispbm

@@ -1,15 +1,12 @@
 (define nums '(1 2 3 4 5 6 7 8 9))
 
-(define valid
+(defun amount (x y)
-    (lambda (x)
+  (foldr (lambda (z q) (if (eq x z) (+ q 1) q)) 0 y))
-      (foldr
+
-       (lambda (y z)
+(defun valid (x)
-         (match y
+      (if (= 9 (length x))
-            (nil z)
+          (foldr (lambda (y z) (if (<= y 1) z nil))
-            (_ (match (filter (lambda (q) (= q y)) nums)
+                 t
-                (((? r) . nil) (match (filter (lambda (q) (eq r q)) x)
+                 (map (lambda (y) (amount y x)) nums))
-                                (((? _)) z)
+          nil
-                                (_ nil)))
+      ))
-                (_ nil)))))
-       t
-       x)))