Discussion :

[Ulrik18]

Bonjour,

Je débute sous scheme, et j'essaie de faire un petit programme (sous DrScheme) qui demande à l'utilisateur d'entrer 2 informations et produit un résultat après.

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
(define (prixTTC6)
    ((display "Entrer le prix hors taxe : ")
     (let ((prixHT (read)))
       ((display "Entrer le taux de TVA : ")
        (let ((TVA (read)))
          ((display "Prix HT     : ")
           (display prixHT)
           (newline)
           (display "TVA         : ")
           (display TVA)
           (newline)
           (display "------------------------")
           (newline)
           (display "Prix TTC    : ")
           (display (* prixHT (+ 1 (/ TVA 100))))
           (newline)))))))

ça fonctionne, mais j'ai un message d'erreur que je ne comprends pas :

procedure application: expected procedure, given: (void); arguments were: (void) (void) (void) (void) (void) (void) (void) (void) (void) (void)

Je remarque qu'en fait, quand je fais une fonction qui contient 2 expressions indépendantes dans le corps j'ai la meme erreur et parfois ça marche meme pas!

Exemple :

Code :

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

1
2
3
4
5
6
> (define (test0)
    ((display "Bonjour ")
     (display "Le monde !")))
> (test0)
Bonjour Le monde !procedure application: expected procedure, given: (void); arguments were: (void)

Donc ma question est de savoir comment mettre plusieurs expressions indépendantes entre elles, dans le corps d'une fonction en scheme.

Merci d'avance.

[Trap D]

Il faut mettre begin au debut

Code :

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

1
2
3
4
(define (test0)
    (begin
     (display "Bonjour ")
     (display "Le monde !")))

[Ulrik18]

Merci beaucoup.

C'est ce qu'il me fallait ...