Discussion :

[Nicotendo]

Bonjour, voici l'erreur que j'ai depuis un petit bout de temps :

+: expected only one expression after the name `+', but found one extra part




voici le code de base :
(define (stat nb n nfinal)
(let* ((x (- (/ (random 2001) 1000 ) 1))
(y (- (/ (random 2001) 1000 ) 1))
(+ (x) (y))
)
))




Merci de bien vouloir me dire d'où elle vient.
Cordialement

[+Guilhem]

Tout d'abord, quand tu fais (+ (x) (y)), les "x" et "y" ne doivent pas être parenthésés, sinon cela supposerait que tu passes en paramètres ces x et y à... aucune fonction.

Ensuite, tu as dû t'emmêler les pinceaux avec les parenthèses puisque cette opération se trouve dans les liaisons du let*, du coup son corps est vide.

[GnuVince]

Tu voulais sûrement ceci:

Code :

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

1
2
3
4
5
(define (stat nb n nfinal)
  (let ((x (- (/ (random 2001) 1000 ) 1))
        (y (- (/ (random 2001) 1000 ) 1)))
    (+ x y)))

[Garulfo]

Bonjour,
[...]
(define (stat nb n nfinal)
(let* ((x (- (/ (random 2001) 1000 ) 1))
(y (- (/ (random 2001) 1000 ) 1))
(+ (x) (y))
)
))
[...]
Cordialement

Merci

[Nicotendo]

Merci beaucoup pour vos réponse

[Nicotendo]

Sinon, voici une autre erreur que j'ai souvent :
Voici le code :

(define (sommepib n)
(if (or (not (number? n)) (not (positive? n)))
#f
(if (= n 0)
1
(+ (* (exposant -1 n) (/ 1 (+ (* 2 n) 1)))
(sommepib (- n 1))

)
)
)
)



Voici l'erreur :
> (sommepib 8)
+: expects type <number> as 2nd argument, given: false; other arguments were: -1



Merci

[+Guilhem]

Merci

Sinon, pour ton erreur, la réponse est dans le message d'erreur. Le "+" attend au moins deux nombres et un moment tu lui passes un booléen : #f.

Autre détail, ton (if (= n 0) 1 ... ) ne sert à rien puisque (positive? 0) retourne #f donc si n>0, ta fonction passe le premier if et par conséquent le deuxième aussi.

[Garulfo]

Sinon, voici une autre erreur que j'ai souvent :
Voici le code :

(define (sommepib n)
(if (or (not (number? n)) (not (positive? n)))
#f
(if (= n 0)
1
(+ (* (exposant -1 n) (/ 1 (+ (* 2 n) 1)))
(sommepib (- n 1))

)
)
)
)



Voici l'erreur :
> (sommepib 8)
+: expects type <number> as 2nd argument, given: false; other arguments were: -1



Merci

T'as pas compris quoi dans mon précédent message ???

Pourrais tu s'il te plait écrire du code lisible ?

Je tiens à noter par ailleurs qu'écrire

Code :

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

1
2
3
4
5
(if C 
    #f
    E
    )

démontre une mécompréhension de ce qu'est un if.

[Nicotendo]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
(define (sommepib n)
            (if (or (not (number? n)) (not (positive? n))) 
            #f
            (if (= n 0)
                     1
                     (+ (* (exposant -1 n) (/ 1 (+ (* 2 n) 1)))
                          (sommepib (- n 1))

                     )
                )
           )
      )

Pardon
Ce que je n'ai pas compri, c'est l'algo :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
DEBUT
SI (cond ...)
Alors
      SI (cond ...)
      ALORS
             retourner(...)
      SINON
             retourner(...)
SINON
      retourner(...)
FIN

...dont je n'arrive pas a le coder en scheme au niveau du si ... sinon

[Nicotendo]

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 (somme liste)
   (if (not (list? liste))
       #f
       (if (null? liste)
           0
           (+ (car liste) (somme (cdr liste)))
   
       )
   )
)
 
(define (somme2 liste)
   (cond ((not (list? liste)) #f)
	 ((null? liste) 0)
	 (else	(+ (car liste) (somme (cdr liste))))
	)
  )

Deux autres petits problemes :
Ces deux fonctions sont censés faire la somme des éléments d'une liste.
Or la première ne fonctionne pas et la seconde fonctionne parfaitement.
Je n'arrive pas a comprendre pourquoi la première ne fonctionne pas parfaitement.

De plus, je souhaiterai savoir comment tester si un des éléments d'une liste est un nombre car je ne suis pas censé pouvoir faire : (somme '(a b 2 3))


Merci

[+Guilhem]

La première devrait fonctionner, la seconde non (car l'appel récursif se fait sur somme, et pas somme2).

Par contre on ne vérifie jamais le typage des paramètres, on suppose qu'ils sont conformes à ce qu'on attend, donc le "(not (list? liste))" est inutile. Surtout qu'il va faire le test pour chaque élément de la liste...

De plus, je souhaiterai savoir comment tester si un des éléments d'une liste est un nombre car je ne suis pas censé pouvoir faire : (somme '(a b 2 3))

(number? (car liste))

[Nicotendo]

Je me suis trompé pour l'appel récursif, c'est en effet le même probleme sur somme.

Merci pour la dernière réponse

[Garulfo]

Bon ça aussi c'est non ?