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

  • .Re: Sum of squares

    From B. Pym@21:1/5 to All on Fri Jun 7 00:51:43 2024
    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)