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))))

--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)