Lisp: la stessa funzione matematica valuta valori diversi in tempi diversi?

Question

devo calcolare un polinomio simili -

f (x) = x^4 - 2.274x^3 + 1.8x^2 - 0.576x + 1.0

con questa funzione lisp -

(defun polynomial (x) 
    (+ (+ (+ (+ (expt x 4) (* -2.274 * (expt x 3))) 
     (* 1.8 (* x x))) (* -0.576 x)) 0.1)) 

quando chiamo (polinomiale 0,5) il risultato è diverso a diverse valutazioni, come questo -

CL-USER> (polynomial 0.5) 
-1.9495 
CL-USER> (polynomial 0.5) 
0.8786454 
CL-USER> (polynomial 0.5) 
0.07474504 
CL-USER> (polynomial 0.5) 
0.3032537 
CL-USER> (polynomial 0.5) 
0.23830011 
CL-USER> 

cosa sta succedendo? Sto usando l'ultimo sbcl.

Answer 1

* in posizione argomento restituisce il molto ultimo risultato si aveva in REPL. Nel codice si fa (* -2.274 * (expt x 3)) dove * è -1.9495 forse dopo la prima manche. (Si otterrebbe un errore quando si esegue per la prima volta se l'ultimo risultato non era un numero.)

si può avere più argomenti per entrambe le * e + e tutte le lische ha notazione prefissa polacco così la funzione potrebbe essere meglio in questo modo:

;; f(x) = x^4 - 2.274x^3 + 1.8x^2 - 0.576x + 1.0 
(defun polynomial (x) 
    (+ (expt x 4) 
    (* -2.274 (expt x 3)) 
    (* 1.8 x x) 
    (* -0.576 x) 
    1.0)) ;; this was originally 0.1 

(polynomial 0.5) ; ==> 0.94025004 

Fondamentalmente x + y + z in infisso diventa (+ x y z) in prefisso.