Я пытаюсь узнать схему через SICP. Упражнение 1.3 выглядит следующим образом: Определите процедуру, которая принимает три числа в качестве аргументов и возвращает сумму квадратов двух больших чисел. Пожалуйста, прокомментируйте, как я могу улучшить свое решение.

(define (big x y)
    (if (> x y) x y))

(define (p a b c)
    (cond ((> a b) (+ (square a) (square (big b c))))
          (else (+ (square b) (square (big a c))))))