球拍如果声明

Question

我想要做一个if语句，当公式输出一个整数时它返回整数，当公式输出一个虚数时，if语句返回“无实根”。 这是我需要编写if语句的等式。

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

Answer 1

你让这样一个临时变量：

(let ((tmp expensive-expression)) 
    (if (complex? tmp) 
     "no real roots" 
     tmp))