球拍如果聲明

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))