Discussion :

[dodo69]

Bonjour à tous
Je me joins a vous car je débute en scheme et je n'arrive pas à résoudre ce problème

La fonction ci_dessous est censé me renvoyer un "black_jack" (le nom de ma viariable) mais malheureusement me renvoie uniquement un "void"
et je ne vois absolument pas comment regler le problème ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
(define tour_de_jeu ; affiche le jeu et écrit un message
  (lambda (black_jack) ; liste de 3 sous-listes
    (let(
         (jeu_en_cours (pioche_debut black_jack))
        )
       (if (< 21 (total_cartes (cartes_joueur jeu_en_cours)))
           (afficher_jeu jeu_en_cours)
           (if (or (< 21 (total_cartes (cartes_joueur jeu_en_cours)))(and (< (total_cartes (cartes_joueur jeu_en_cours)) (total_cartes (cartes_banque jeu_en_cours)))(> 22 (total_cartes (cartes_banque jeu_en_cours)))))
               (begin (display "VOUS AVEZ PERDU !!!!"))
               (if (= (total_cartes (cartes_joueur jeu_en_cours)) (total_cartes (cartes_banque jeu_en_cours)))
                   (begin (display "EGALITE!!!!"))
                   (begin (display "VOUS AVEZ GAGNEZ !!!!"))
               )
           )
        )
    )
  )
)

Merci d'avance pour l'aide que vous pourrez m'apporter
Cdlt
DoDO

[byjav]

Bonjour !

Essaie ceci :

Code Scheme :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
(define tour-de-jeu ; affiche le jeu et écrit un message
  (lambda (black-jack) ; liste de 3 sous-listes
    (let* ((jeu-en-cours (pioche-debut black-jack))
           (j (total-cartes (cartes-joueur jeu-en-cours)))
           (b (total-cartes (cartes-banque jeu-en-cours))))
      (cond ((< 21 j) (afficher-jeu jeu-en-cours))
            ((< j b 22) (display "VOUS AVEZ PERDU !!!!"))
            ((= j b) (display "EGALITE!!!!"))
            (otherwise (display "VOUS AVEZ GAGNEZ !!!!"))))))

J'ai recopié le code, mais je crois qu'il doit faire la même chose. Si ça ne marche pas, peut-être y a t-il un bug dans afficher-jeu.

Ah, j'ai aussi changé tous les « _ » en « - ». D'ordinaire on n'emploie pas de tirets bas en Lisp; en revanche, les tirets sont très « lispy ».

[jack-ft]

[chipotage]

Code Scheme :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
            (otherwise (display "VOUS AVEZ GAGNÉ !!!!"))))))

[/chipotage]

[byjav]

Mille pardons ! Je ne pouvais pas le tester. C'est Common Lisp qui m'est plus familier, il n'y a ni else ni otherwise là...

[jack-ft]

Moi, c'est plutôt emacs-lisp (mais avant c'était Le_lisp (et encore avant c'était CL))...

Euh... donc ce serait plutôt:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

            (t (display "VOUS AVEZ GAGNÉ !!!!"))))))

[byjav]

Alors #t, t c'est CL. Mais on peut aussi écrire else, ce qui me paraît plus idiomatique.

Si tu fais allusion à l'orthographe, j'ai gardé celle de l'originale.