如何定義的定義

Question

使用參數Lisp的結構，我想，以定義表示遊戲的董事會結構來寫一些Lisp代碼這樣

(defstruct board 
    (size 7) 
    (matrix (make-array (list size size)) 
    (red-stones 0) 
    (black-stones 0)) 

。

我希望能夠創建一個帶有製作板的新電路板，該電路板將隨着給定尺寸（大小x尺寸）隨時創建矩陣，這樣我就不必從另一個調用製作板函數，使矩陣。

但是，當我將該代碼加載到clisp解釋器並嘗試製作新的電路板（使用make-board）時，我收到一條錯誤消息，告訴我「大小」沒有任何價值。

有什麼方法可以在結構的定義中使用結構的字段？

或者我應該這樣做？

(defstruct board 
    size 
    matrix 
    (red-stones 0) 
    (black-stones 0)) 

(defun create-board (size) 
    (make-board :size size :matrix (make-array (list size size)))) 

真的，我不喜歡讓make-board和create-board都可用，因爲這可能會導致編程錯誤。

Answer 1

你可以使用一個蟒蛇構造：

(defstruct (board 
    (:constructor make-board (&optional (size 7) 
           &aux (matrix (make-array (list size size)))))) 
    (size) 
    (matrix) 
    (red-stones 0) 
    (black-stones 0)) 

CLHS文檔defstruct和BOA lambda lists。

Answer 2

真的，我不喜歡讓make-board和create-board都可用，因爲這可能會導致編程錯誤。

有一個公平點，但隨後，由具有size和matrix都可用可導致編程錯誤，太。

它不需要O（n）來衡量一個數組的大小，所以我只需要完全消除size插槽。如果您通常需要board的值，則可以輕鬆製作簡單的包裝功能。

在有機會你想要一個更普遍的解決方案，肯尼蒂爾頓的Cells項目「我的一些槽是由一些我的其他插槽的決定」，但它並不顯得非常活躍，這些天。

最後，我會用defclass而不是defstruct，除非你有一個理由不這樣做。