(define (p x) (+ (* a x x) (* b x) c))
(define (r1) (/ (+ (- b) (sqrt (- (* b b) (* 4 a c)))) (* 2 a)))
(define (r2) (/ (- (- b) (sqrt (- (* b b) (* 4 a c)))) (* 2 a)))
(define (r3) (/ (* 2 c) (+ (- b) (sqrt (- (* b b) (* 4 a c))))))
(define (r4) (/ (* 2 c) (- (- b) (sqrt (- (* b b) (* 4 a c))))))
(define a 3.45)
(define b -3.7)
(define c 1/9)
(map p (list (r1) (r2) (r3) (r4)))