我写了这个方案代码来计算二次方程a x2 + b x + c = 0的一个解
(define (solve-quadratic-equation a b c) (define disc (sqrt (- (* b b) (* 4.0 a c)))) (/ (+ (- b) disc) (* 2.0 a)))
Run Code Online (Sandbox Code Playgroud)
但是,有人告诉我这个程序很难理解.为什么?
这个程序的清理版本会是什么样的?请让我知道为什么新程序会更容易理解.
谢谢
(define (square x)
(display (* x x)))
(define (sum-of-squares a b)
(+ (square a) (square b)))
Run Code Online (Sandbox Code Playgroud)
我测试了它,sum-of-squares功能不起作用.为什么?