Pourquoi cette fonction Scheme sum-of-squares ne fonctionne-t-elle pas?

Question

(define (square x) 
    (display (* x x))) 

(define (sum-of-squares a b) 
    (+ (square a) (square b))) 

Je l'ai testé et la fonction sum-of-squares ne fonctionne pas. Pourquoi?

Answer 1

(display x) évalue à vide (pourrait être vu comme rien). C'est un appel de fonction qui imprime l'argument mais ne le retourne pas. Au lieu de cela, vous devez définir la fonction carrée pour évaluer la valeur sans afficher, c'est-à-dire:

(define (square x) 
    (* x x))