scheme - 方案函数错误

Question

(define affiche-gagnant
  (lambda (j1 j2 g1 g2)

(begin 

  (display "Le gagnant est : ")

   (cond ((> g1 g2) j1) 

         ((< g1 g2) j2)

         (else (begin (display "personne. ") (display j1) (display " et ") (display j2) (display " sont exaequos. ")))))))

当 j1 或 j2 赢得比赛时，它会说：

 Le gagnant est :

    We don't see who win the game :(

Answer 1

我已经回答了这个问题。

(define affiche-gagnant
  (lambda (j1 j2 g1 g2)

(begin 

  (display "Le gagnant est : ")

   (cond ((> g1 g2) (display j1)) ; You're returning, not displaying

         ((< g1 g2) (display j2)) 

         (else (begin (display "personne. ") (display j1) (display " et ") (display j2) (display " sont exaequos. ")))))))