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. ")))))))