CLOSを勉強中です。 クラスや引数無しのメソッドは書けるようになったのですが、引数ありのメソッドの書き方が解りません。
下記コードのsquare
に高さtall
を引数として取り、立方体の体積を求めるメソッドの書き方と呼び出し方を教えて下さい
(defclass shape () (
(width :initform 0 :accessor shape-width :initarg :width)
(height :initform 0 :accessor shape-height :initarg :height)))
(defclass square (shape) ())
(defmethod area ((x square)) (* (shape-width x) (shape-height x)))
;; 次の行の書き方が解らない
(defmethod cube (?????????????????????????)
(* (shape-width x) (shape-hight x) tall))
(defclass triangle (shape) ())
(defmethod area ((x triangle)) (/ (* (shape-width x) (shape-height x)) 2))
(defparameter sq (make-instance 'square :width 600 :height 300))
(defparameter tri (make-instance 'triangle :width 600 :height 300))
(format t "~d" (area sq))
(format t "~d" (area tri))
;; 引数ありのメソッドの呼び出し方も解らない
(format t "~d" (cube ???????))