6

私は 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 ))
4

2 に答える 2