这个方案代码有什么问题？

Question

我正在学习 scp。 这个问题是前1.3。 我不明白为什么这段代码有问题。 请帮帮我..TT

这是代码。

(define (test a b c)
        (cond ((and (< a b) (< a c)) (+ (* b b) (* c c))
               (and (< b a) (< b c)) (+ (* a a) (* c c))
               (else (+ (* b b) (* c c)))
        ))

(test 1 2 3)

错误是

#[输入端口 60 来自缓冲区 #[mark 61 #[buffer 17] 上的过早 EOF 还剩 166 个]

Answer 1

cond 的语法错误。这是具有正确语法的相同代码：

(define (test a b c)
  (cond ((and (< a b) (< a c)) (+ (* b b) (* c c)))
        ((and (< b a) (< b c)) (+ (* a a) (* c c)))
        (else (+ (* b b) (* c c)))))

但是，您的代码仍然是错误的。你能看出为什么吗？ （提示：else 分支是什么意思，应该有什么表达式？）

Answer 2

缺少括号。

(define
  (test a b c)
  (cond
    ((and (< a b) (< a c)) (+ (* b b) (* c c)))
    ((and (< b a) (< b c)) (+ (* a a) (* c c)))
    (else (+ (* b b) (* c c))))