.Re: Sum of squares

  Define a procedure that takes three numbers as arguments and returns
  the sum of the squares of the two larger numbers.

Gauche Scheme:

Without sorting.

(define (sos . lst)
  (apply + (map square (delete (apply min lst) lst))))