Bonsoir, j'ai un petit probleme de récurrence avec la fonction qui va suivre, je ne vois pas trop comment m'y prendre !
Premierement, ma fonction ne reconnait pas "d" quand j'y fait appel dans : "(if (= 0 (- d a))"
De plus, j'aimerai effectué une reccurence a fin que tant que je n'ai pas :
d - a = O, je puisse réajouter des tailles de bateaux et des bateaux !
Merci de votre aide
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
19
20
21
22
23
24 (define (demande) (display "Entrée la taille de la grille voulue :\n") (begin (let ((x (read))) (carre x) (display "Combien de bateau voulez vous utiliser pour la partie ? :\n") (let ((d (read))) (display "Entrée une taille de bateau :\n") (let ((n (read))) (bateau (carre x) n))) (display "Entrée le nombre de bateau de cette taille :\n") (let ((a (read))) (tester a d) (if (= 0 (- d a)) (bateauf (carre x) n a)))))) (define (tester a d) (if (>= d a) #t ((display "Ce n'est pas possible \n \n") (demande))))
Partager