Resuelva sin colaboración y sin uso del PC la siguiente pregunta. Cualquier inquietud sobre la pregunta debe dirigirsela exclusivamente al docente, cualquier violación causará la anulación del examen.

Duración 15 minutos. Criterio de evaluación: Perfecta coincidencia con el resultado real de cada expresión y sus pasos intermedios vale 1.25 por expresión. Coincidencias parciales valdrán proporcionalmente a la coincidencia con el valor real.

Examine detalladamente el siguiente código de definiciones:

; Definición de funciones
(define-struct polinomio (a b c))
(define (raíz? x p)
(= (+ (* (polinomio-a p) (expt x 2))
(* (polinomio-b p) x)
(polinomio-c p))
0)
)

(define (pol-2 a b c)
(make-polinomio a b c)
)
; Definición de constantes
(define x 5)
(define p1 (pol-2 1 2 3))

A continuación, escriba cómo se reemplaza cada paréntesis intermedio por valores y determine el resultado:
; Expresiones a evaluar
(+
(* (expt x 2) 2)
(* x 3)
5
)
;
(raíz? x p1)
;
(* (+ x (polinomio-a p1) )
(+ x (polinomio-b p1) )
)
;
(make-polinomio x (* 2 x) 1)