Solution for Exercise 1.3 Sum of the squares

Code Review

Compare your solutions

    #| BEGIN (Введите свое решение) |#
(define (square x) (* x x))
(define (>= x y)
  (not (< x y)))
(define (f x y) 
  (+ (square x) (square y)))
(define (solution a b c)
  (cond ((and (>= a c) (>= b c)) (f a b))
        ((and (>= b a) (>= c a)) (f b c))
        ((and (>= a b) (>= c b)) (f a c))))
#| END |#

    #| BEGIN (Введите свое решение) |#
(define (square x) (* x x))
(define (>= x y)
  (not (< x y)))
(define (f x y) 
  (+ (squre x) (square y)))
(define (solution a b c)
  (cond (and (>= a c) (>= b c)) (f a b))
  (cond (and (>= b a) (>= c a)) (f b c))
  (cond (and (>= a b) (>= c b)) (f a c)))
#| END |#

    #| BEGIN (Введите свое решение) |#
(define (square x) (* x x))
(define (>= x y)
  (not (< x y)))
(define (f x y) 
  (+ (square x) (square y)))
(define (solution a b c)
  (cond ((and (>= a c) (>= b c)) (f a b))
        ((and (>= b a) (>= c a)) (f b c))
        ((and (>= a b) (>= c b)) (f a c))))
#| END |#

    #| BEGIN (Введите свое решение) |#
(define (square x) (* x x))
(define (>= x y)
  (not (< x y)))
(define (f x y) 
  (+ (squre x) (square y)))
(define (solution a b c)
  (cond (and (>= a c) (>= b c)) (f a b))
  (cond (and (>= b a) (>= c a)) (f b c))
  (cond (and (>= a b) (>= c b)) (f a c)))
#| END |#