If statement 敲诈如果陈述

我试图做一个if语句，当方程输出一个整数时，它返回整数，当方程输出一个虚数时，if语句不返回实根。 这是我需要为其编写if语句的等式

(define quadSolve 
  (lambda (a b c)
 (/ (+ (* -1 b)  (sqrt (- (sqr b) (* 4 a c)))) (* 2 a)))) 

---

创建一个临时变量，如下所示：

让tmp昂贵的表达 如果复杂？tmp 没有真正的根 tmp