1. Forum
  2. Usenet
  3. COMP.LANG.LISP

  • Re: Sum of squares

    From B. Pym@21:1/5 to All on Mon Aug 26 00:29:06 2024
    Define a procedure that takes three numbers as arguments and returns
    the sum of the squares of the two larger numbers.

    (define (sos a b c)
    (cond ((> a b) (sos b a c))
    ((> b c) (sos a c b))
    (#t (+ (* b b) (* c c)))))

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