为什么这个Scheme平方和函数不起作用？

Question

(define (square x)
  (display (* x x)))

(define (sum-of-squares a b) 
  (+ (square a) (square b))) 

我测试了它，sum-of-squares功能不起作用。为什么呢？

Answer 1

(display x)评估为无效（可能被视为无效）。它是一个函数调用，它打印出参数但不返回它。相反，您应该定义平方函数来评估值而不显示，即：

(define (square x)
  (* x x))