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

Format

Browse Source
This commit is contained in:
pingu
2025-10-14 12:46:26 +02:00
parent b067031e22
commit ebf47cb9bf
1 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
sudoku.lispbm
View File

@ -5,7 +5,8 @@
(defun valid (x) (defun valid (x)
(if (= 9 (length x)) (if (= 9 (length x))
(foldr (lambda (y z) (if (<= y 1) z nil)) (foldr
(lambda (y z) (if (<= y 1) z nil))
t t
(map (lambda (y) (amount y x)) nums)) (map (lambda (y) (amount y x)) nums))
nil)) nil))