Fonction récursive [Débutant(e)] [Résolu]

[dragonfly]

Bonjour à tous,

je débute sous Scheme, j'ai trouvé un tutorial qui me permet d'avancer mais je bloque sur un probléme à priori tout simple.
Je créé un vecteur et j'essaye juste d'afficher en fonction du nombre d'elements. Voici le code et l'erreur

Code :

1
2
3
4
5
6
7
8
9
10
11
12
(define table (make-vector 3 (make-vector 3 #\space)))

(define aff
  (lambda (vect cpt)
    (display (vector (vector-length vect) cpt) )
    (if (>= cpt (vector-length vect) )
       (display (quote stop))
       (
       (display "| | | |")
       (newline)
       (aff vect (+ cpt 1))))))

Code :

1
2
3
4
5
6
7
8
9
10
11
 (aff table 0)
#(3 0)| | | |
#(3 1)| | | |
#(3 2)| | | |
#(3 3)stop. . application: not a procedure;
 expected a procedure that can be applied to arguments
  given: #<void>
  arguments...:
   #<void>
   #<void>

L'affichage se fait bien , il m'affiche bien le stop mais je ne comprend pas pourquoi le programme ne s'arrête pas et me lance une erreur.
A moins que l'erreur soit du à autre chose qui m'échappe...

Par avance merci

[dragonfly]

Au temps pour moi,

je viens de découvrir que si il y'a plusieurs instructions dans un if, il faut mettre un begin.

Probléme résolu.

Code :

1
2
3
4
5
6
7
8
9
10
(define aff
  (lambda (vect cpt)
    (display (vector (vector-length vect) cpt) )
    (if (>= cpt (vector-length vect) )
       (display (quote stop))
       (begin
         (display (quote OK))
         (newline)
         (aff vect (+ cpt 1))))))