Сумма квадратов

Определите процедуру solution, которая принимает в качестве аргументов три числа и возвращает сумму квадратов двух больших из них.


    # Artem Stepanenko
    6 месяцев назад
    (define (square x) (* x x)) (define (sum_of_squares first second) (+ (square first) (square second)) ) (define (sum_of_squares_of_big a b c) (sum_of_squares (max a b c) (max (min a b) (min a c) (min b c)) ) )
Необходима авторизация

Вы должны авторизоваться для создания комментария.

Вход
(check-equal? (solution 1 2 3) 13)
(check-equal? (solution 4 2 3) 25)
(check-equal? (solution 0 0 0) 0)
(check-equal? (solution 1 0 1) 2)
(check-equal? (solution 2 3 0) 13)