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

Some examples to run tests on

Browse Source
This commit is contained in:
pingu
2025-10-14 13:56:27 +02:00
parent 4ee87094cc
commit 25537445fb
1 changed files with 24 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
sudoku.lispbm
View File

@ -1,5 +1,29 @@
(define nums '(1 2 3 4 5 6 7 8 9))
(define exampleGrid
'(
(1 2 3 4 5 6 7 8 9)
(2 3 4 5 6 7 8 9 1)
(3 4 5 6 7 8 9 1 2)
(4 5 6 7 8 9 1 2 3)
(5 6 7 8 9 1 2 3 4)
(6 7 8 9 1 2 3 4 5)
(7 8 9 1 2 3 4 5 6)
(8 9 1 2 3 4 5 6 7)
(9 1 2 3 4 5 6 7 8)))
(define toSolve
'(
(1 2 3 4 5 nil 7 8 9)
(4 5 6 7 nil 9 1 2 3)
(7 8 nil 1 2 nil 4 5 6)
(2 nil 4 5 6 7 nil 9 1)
(5 6 nil 8 9 nil 2 3 4)
(8 9 nil 2 nil 4 5 6 7)
(6 7 nil 9 1 2 nil 4 5)
(9 nil 2 3 4 5 nil nil 8)
(3 4 5 6 7 8 nil 1 2)))
(defun amount (x y)
(foldr (lambda (z q) (if (eq x z) (+ q 1) q)) 0 y))
@ -45,14 +69,3 @@
(matrixToList (getSubMatrix m sr er sc ec)))
'error))
(define exampleGrid
'(
(1 2 3 4 5 6 7 8 9)
(2 3 4 5 6 7 8 9 1)
(3 4 5 6 7 8 9 1 2)
(4 5 6 7 8 9 1 2 3)
(5 6 7 8 9 1 2 3 4)
(6 7 8 9 1 2 3 4 5)
(7 8 9 1 2 3 4 5 6)
(8 9 1 2 3 4 5 6 7)
(9 1 2 3 4 5 6 7 8)))