Почему эта функция суммы квадратов Схемы не работает?

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