Discussion :

[Neuromancien2]

Bonjour,

Je m'initie à Scheme. Comme exercice j'essaie de programmer un "jeu du nombre". Le programme suivant ne fonctionne pas : il me permet de saisir des nombres mais n'affiche rien.

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
(define number (random 10))

(define (try number)
    (define input (read))
    (cond
        ((< number input)
            ((display "Le nombre est inférieur")(newline)(try number)))
        ((> number input)
            ((display "Le nombre est supérieur")(newline)(try number)))
        (else (display "Bravo")))
    )

(display "Entrez une valeur :")
(try number)

(exit)

[Trap D]

Quel Scheme utilises-tu ? Avec DrScheme, ton programme fonctionne.

[Neuromancien2]

Quel Scheme utilises-tu ? Avec DrScheme, ton programme fonctionne.

J'utilise Chicken.

[Trap D]

Désolé, connais pas

[Neuromancien2]

Désolé, connais pas

J'ai essayé avec Racket (remplaçant de DrScheme) : ça ne fonctionne pas mieux. Je ne peux même pas saisir un nombre...

[Neuromancien2]

Le code suivant fonctionne :

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
(define number (random 100))

(define (try number)
    (display "Entrez une valeur :")
    (define input (read))
    (cond
        ((< number input)(display "Le nombre est inférieur")(newline)(try number))
        ((> number input)(display "Le nombre est supérieur")(newline)(try number))
        (else (display "Bravo !")(newline))
        )
    )

(try number)

(exit)