ab-noeud? et fonctions introuvables
Bonjour,
désolé de vous importuner un dimanche mais depuis hier je recherche la cause d'erreur en exécution sur ab-noeud?. ab-noeud? est sur la carte de référence .Impossible de comprendre.
Merci d'avance
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
| ;;; ab-vide? : ArbreBinaire (alpha) -> bool
;;; (ab-vide? B) rend vrai ssi B est un arbre vide et faux sinon
(define (ab-vide? B)
(not (ab-noeud? B)))
;;; ab-B2 : -> ArbreBinaire (string)
;;; (ab-B2) rend l'arbre B2
(define (ab-B2)
(let* ((B1 (ab-noeud "f" (ab-vide) (ab-vide)))
(B2 (ab-noeud "g" (ab-vide) (ab-vide)))
(B1-1 (ab-noeud "c" (ab-vide) (ab-vide)))
(B3 (ab-noeud "e" B2 (ab-vide)))
(B4 (ab-noeud "d" B3 B1))
(B5 (ab-noeud "b" B1-1 B4)))
(ab-noeud "a" B5 (ab-vide))))
;;; ab-branche-droite B)
;;; (ab-branche-droite A) rend la liste des éléments de la branche droite de B
(define (xxxx)
(let ((B ab-B2))
(define (ab-branche-droite B)
(if (ab-vide? B)
(list)
(cons (ab-etiquette B)
(ab-branche-droite (ab-droit B)))))
(ab-branche-droite B)))
(trace xxxx) (xxxx) |
Dans mes exercices d'entrainement on me signifie les fonctions paragraphe, lignes et -> string. Je ne les trouve nulle part !!!!!!!!!!