Créer un objet polynomial à partir d'un nombre en utilisant la classe de changement

Question

J'ai écrit une classe polynomiale selon les lignes décrites dans SICP 2.5.3 (sauf en utilisant defclass). J'aimerais pouvoir ajouter et multiplier de manière transparente des polynômes et des nombres réguliers, mais je ne peux pas faire accepter un nombre par un changement de classe.

J'ai essayé de simplifier le problème en changeant la classe d'un nombre entier à un flotteur:

(change-class 4 'float) 

mais cela m'a donné l'erreur:

There is no applicable method for the generic function 
#<STANDARD-GENERIC-FUNCTION CHANGE-CLASS (7)> 
when called with arguments 
(4 #<BUILT-IN-CLASS FLOAT>). 
[Condition of type SIMPLE-ERROR] 

Je reçois une erreur de la même forme de (fyi):

(change-class 4 'polynomial) 

Je vais aller de l'avant et implémenter une conversion manuelle mais je préférerais utiliser les installations de fermeture intégrées. Comme le souligne Xach, je pourrais utiliser coercitive ou float pour changer 4 en float. Cela a été conçu comme un exemple plus simple de ce que j'essayais de faire et de supprimer toute possibilité que ma classe update-instance-for-different soit erronée.

Voici la version plus longue de ce que j'ai essayé qui ne fonctionne pas:

(defclass polynomial() 
((var :accessor var :initarg :var :initform 'x) 
    (terms :accessor terms :initarg :terms :initform (make-empty-term-list)))) 

(defmethod update-instance-for-different-class :before ((old number) 
         (new polynomial) 
         &key) 
    (setf (slot-value new 'terms) (adjoin-term (make-term old 0) 
          (make-empty-term-list)))) 

(change-class 4 'polynomial) 

Je reçois encore une erreur comme dans l'exemple ci-dessus:

There is no applicable method for the generic function 
    #<STANDARD-GENERIC-FUNCTION CHANGE-CLASS (7)> 
when called with arguments 
    (4 #<STANDARD-CLASS POLYNOMIAL>). 
    [Condition of type SIMPLE-ERROR] 

Answer 1

Vous ne pouvez pas utiliser CHANGE-CLASS avec des nombres. Les nombres ne sont pas des instances de classes CLOS. CHANGE-CLASS est également pensé destructivement modifier une instance à une nouvelle classe, sans modifier l'identité de l'instance d'origine.

Je voudrais soit:

• ajouter des méthodes de changement CLASS qui fait ce que vous voulez

• ou écrire une fonction CHANGE, qui met en œuvre diverses règles de coercition sur mesure et appelle CHANGE-classe pour tout passer d'une classe CLOS à une autre classe CLOS.

Answer 2

Vous pouvez utiliser COERCE ou FLOAT Pour ce faire:

(float 4) => 4.0 
(coerce 4 'float) => 4.0