Code Review

Compare your solutions

    #| BEGIN (Write your solution here) |#
(define solution (a b c)
  (let ((top-two ()))
        (cond ((> c b) (cons c top-two))
               ((> b a) (cons b top-two))
              ((> )
              

#| END |#
    #| BEGIN (Write your solution here) |#
(define solution (a b c)
  (let ((top-two nil))
    (if (or (> a b)
            (> a c))
        (cons a top-two)
        (if (or (> b c)
            (> b a)) 
            (cons b top-two)
            (cons c top-two)))
    (+ (expt (car top-two) 2) (expt 2 (cdr top-two)))))

#| END |#
    #| BEGIN (Write your solution here) |#
(define solution (a b c)
  (let ((top-two ()))
        (cond ((> c b) (cons c top-two))
               ((> b a) (cons b top-two))
              ((> )
              

#| END |#
    #| BEGIN (Write your solution here) |#
(define solution (a b c)
  (let ((top-two nil))
    (if (or (> a b)
            (> a c))
        (cons a top-two)
        (if (or (> b c)
            (> b a)) 
            (cons b top-two)
            (cons c top-two)))
    (+ (expt (car top-two) 2) (expt 2 (cdr top-two)))))

#| END |#