擅长:python、mysql、java
<pre><code>(let ((piece-array (make-array '(2 7 64) :initial-element 0)))
(dolist (color `(,white ,black))
(dolist (piece `(,pawn ,knight ,bishop ,rook ,queen ,king))
(loop for cord below 64
do (setf (aref piece-array color piece cord)
(random maxint))))))
</code></pre>