Re: Sum of squares

Liste des GroupesRevenir à cl lisp 
Sujet : Re: Sum of squares
De : Nobody447095 (at) *nospam* here-nor-there.org (B. Pym)
Groupes : comp.lang.lisp
Date : 26. Aug 2024, 02:29:06
Autres entêtes
Organisation : A noiseless patient Spider
Message-ID : <vagi8h$25bs3$1@dont-email.me>
User-Agent : XanaNews/1.18.1.6
  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)))))

Date Sujet#  Auteur
26 Aug 24 o Re: Sum of squares1B. Pym

Haut de la page

Les messages affichés proviennent d'usenet.

NewsPortal