如何在Common Lisp中将列表打印为矩阵

Question

我在Common Lisp工作,试图让Windows游戏扫雷.

我有一个列表,(1 1 1 2 2 2 3 3 3)并希望打印像矩阵

(1 1 1
2 2 2
3 3 3)

怎么做？

编辑

我在开头

(format t "Input width:")
(setf width (read)) 
(format t "Input height:")
(setf height (read))    
(format t "How many mines:")
(setf brMina (read))

(defun matrica (i j)
  (cond ((= 0 i) '())
    (t  (append (vrsta j) (matrica  (1- i) j) ))))


(setf minefield (matrica width height))

(defun stampaj ()
      (format t "~%~a" minefield ))

Answer 1

另一个例子，使用漂亮的打印机来娱乐：

(defun print-list-as-matrix
    (list elements-per-row
     &optional (cell-width (1+ (truncate (log (apply #'max list) 10)))))
  (let ((*print-right-margin* (* elements-per-row (1+ cell-width)))
        (*print-miser-width* nil)
        (*print-pretty* t)
        (format-string (format nil "~~<~~@{~~~ad~~^ ~~}~~@:>~%" cell-width)))
    (format t format-string list)))

像这样工作：

CL-USER> (print-list-as-matrix (loop for i from 1 to 9 collect i) 3)
1 2 3
4 5 6
7 8 9
NIL
CL-USER> (print-list-as-matrix (loop for i from 1 to 25 collect i) 5)
 1  2  3  4  5
 6  7  8  9 10
11 12 13 14 15
16 17 18 19 20
21 22 23 24 25
NIL
CL-USER> (print-list-as-matrix (loop for i from 1 to 16 collect i) 2)
 1  2
 3  4
 5  6
 7  8
 9 10
11 12
13 14
15 16