(+
(* (expt 5 2) 2)
(* 5 3)
5
)
--> (+ (* 25 2) 15 5) --> (+ 50 15 5) --> 70
;
(raíz? 5 (make-polinomio 1 2 3))
(= (+ (* 1 (expt 5 2))
(* 2 5)
3)
0)
-->
(= (+ (* 1 25)
10
3)
0)
--> (= (+ 25 10 3) 0)
--> (= 38 0) --> false
;
(* (+ 5 1 )
(+ 5 2 )
)
--> (* 6 7) --> 42
;
(make-polinomio x (* 2 x) 1)
--> (make-polinomio 5 10 1) o estructura polinomio con 5 en a, 10 en b y 1 en c.