球拍if陳述

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