Update sudoku.lisp

sudoku.lisp

@@ -96,11 +96,6 @@
       *map*
       nil))
 
-(defun get-file (filename)
-  (with-open-file (stream filename)
-    (loop for line = (read-line stream nil)
-          while line
-          collect line)))
 
 (defun build-map (strlst)
   "Builds a map array from a list of strings. Expects 9 strings of 9 characters each"
@@ -112,23 +107,5 @@
       (setf row (1+ row)))
     map))
 
-(defun build-map-list (strlst)
-  "Builds a list of map arrays from a list of strings"
-  (let ((lineno 1)
-	(maplist nil))
-    (loop while (< lineno (length strlst)) do
-      (push (build-map (subseq strlst lineno (+ 9 lineno))) maplist)
-      (setf lineno (+ lineno 10)))
-    maplist))
-
-(defun solve ()
-  (let ((maplist (build-map-list (get-file "p096_sudoku.txt")))
-	(sum 0))
-    (loop for map in maplist do
-      (setf map (solve-map map))
-      (if (not (equal nil map))
-	  (setf sum (+ sum
-		       (* 100 (aref map 0 0))
-		       (* 10 (aref map 0 1))
-		       (aref map 0 2)))))
-    sum))
+; example: 
+(solve-map (build-map '("003020600" "900305001" "001806400" "008102900" "700000008" "006708200" "002609500" "800203009" "005010300")))