











rm Original test:
(lambda ((a default) (b default) (c default))
#:name "The quadratic formula (r2)"
(/ (- (- b) (sqrt (- (sqr b) (* 4 (* a c))))) (* 2 a))
#:target
(if (< b 0) (/ c (* a (/ (+ (- b) (sqrt (- (sqr b) (* 4 (* a c))))) (* 2 a)))) (/ (- (- b) (sqrt (- (sqr b) (* 4 (* a c))))) (* 2 a))))