Format

sudoku.lispbm

@@ -4,11 +4,12 @@
   (foldr (lambda (z q) (if (eq x z) (+ q 1) q)) 0 y))
 
 (defun valid (x)
-      (if (= 9 (length x))
+    (if (= 9 (length x))
-          (foldr (lambda (y z) (if (<= y 1) z nil))
+        (foldr
-                 t
+            (lambda (y z) (if (<= y 1) z nil))
-                 (map (lambda (y) (amount y x)) nums))
+            t
-          nil))
+            (map (lambda (y) (amount y x)) nums))
+        nil))
 
 (defun getRow (grid x) (ix grid x))