pingu/Tataru
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Proper valid

Browse Source
This commit is contained in:
pingu
2025-10-15 11:13:47 +02:00
parent d694adfb95
commit b5321a6f8e
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
sudoku.lispbm
View File

@ -66,6 +66,11 @@
(map (lambda (y) (amount y x)) nums)) (map (lambda (y) (amount y x)) nums))
nil)) nil))
(defun validSudoku (grid)
(and (foldr (lambda (x b) (and (valid x) b)) 't grid)
(foldr (lambda (x b) (and (valid x) b)) 't (transpose grid))
(foldr (lambda (x b) (and (valid (getSubgridAsList grid x)) b)) 't (iota 9))))
(defun notPresentRow (xs) (defun notPresentRow (xs)
(foldr (foldr
(lambda (x ys) (if (in x xs) ys (cons x ys))) (lambda (x ys) (if (in x xs) ys (cons x ys)))
@ -152,7 +157,7 @@
nil nil
empties))) empties)))
(if (eq empties nil) (if (eq empties nil)
(if (valid grid) (if (validSudoku grid)
grid grid
(solverHelper (car grids) (cdr grids))) (solverHelper (car grids) (cdr grids)))
(if (eq size1 nil) (if (eq size1 nil)