Recherche:

je vous remercie pour la correction , mais au fait le programme il a marché , c'est moi qui a mal ecrit les arguments .
Sur l'argument 'fun' il fallait l'ecrire avec l'apostrophe , et moi je l'ai...

Maintenant que le délai est passé est que , je peux avoir tout le programme?
Merci de m'avoir aidé en tout cas ,j'ai bien grandi avec vous, je vous ecrirai prochainement pour lles questions sur...

Bonjour
Même La fonction 'teec-expr' auquel j'ai apporté les modification ne marche pas aussi?

La fonction 'trec-body' teste si la fonction es récursive ou pas , et la fonction 'trec-expr' teste si la fonction es en récursivité terminal, c'est bien sa ? ,
Donc pour faire le teste, en utilise...

C'était bien essayé (au hasard?), mais ce n'est pas tout à fait ça...
Oui j"avais vraiment mis cà au hasard, je me suis au moin je vais etre recompensé pour avoir essayer.


Avec les trec-body,...

Je vous ai posteé , dans le message précédent le programme que j'ai envoyé pour le prof , j'ai précisez dass le comptre rendu qu'il marchait pas , j'avais pas fini la fonction qui utlise les parse au...

(define (trec-if fun if term)
(if (not (pair? term))
0
(if (equal? if (car term))
1
(trec-if if (cdr term)))))

(define (trec-cond a l)
(if (not (pair? l))
0

Bonjour
Il me reste une dernière chose à vous demander , les 'trec-*' , que je dois définir , quel est leurs fonctions ? Par exemple : la fonction de 'trec-lampda' ? 'Trec-cond' ? 'Trec-casé' ? Etc...

Je vous remercie pour tous, vous avez fait plus que la moitié du programme, mais ce travail vous appartien a vous et pas a moi , conclusion je sais pas ce qui ce passe dans le programme , comment...

Merci Beaucaup !

Cepedant il y a des anomalie dans la deuxième fonction :


((eq fun (car expr)) , la 4ème ligne le 'eq' n'est pas identifier :

expand: unbound identifier in module , c'est...

Sa Marche enfin :


(define (decompter mot arbre)
(if (pair? arbre)
(+ (decompter mot (car arbre)) ; récursion à gauche
(decompter mot (cdr arbre)) ) ; récursion à droite
...

J'ai suivi vos instruction sa me donne toujour le résultat 3 , voici ma fonction plus les exemple


(define (conte mot df)

(if(equal? mot df)1
(if (unpair df) 0
(+ 1 (conte mot...

Voici la fonction qui comptes le nombre d'occurence d'un element dans une liste aplati


(define (compter mot phrase)
(if (pair? phrase)
(+ (if (equal? mot (car phrase)) 1 0) ; Notez...

Bonjour

(define (corp df)
(if (unpair df)'()
(caddr df)))

(define (unpair l)
(if (pair? l)#f #t))

(define (nom df)

j'ai trouvé sa dans un site internet je sais même pas si sava m'aider , je vous le transmet comeme.



#lang racket

(require parser-tools/lex

(prefix-in re- parser-tools/lex-sre)

Bonjour
D'après ce que je viens de lire il y'a boucaup de travail sur sa sur tout qu'il me reste pas boucaup de temps pour développer tous sa mais je ne baisserai pas les bras ce projet ces 40% de...

Re Bonjour.

Comme je l'ai précisez dans mes messages précédents, j'ai fait une fonction qui aplatir une liste ( enleve les parenthèses) et une autre qui compte le nombre occurrence d'un mot dans...

Bonjour
Quand je teste si la fonction possede une fonction chapeau sa donne sa pour les fonction non terminale :

(rterm '(define (pcr n); Fibonacci " vu en cours "
(if (< n 2)
1
...

Bonjour
Merci pour votre réponse.
j
J'ai essayer de refaire mon programme avec d'autres manières :

La 1er c'est de cherche si la fonction contient une fonction chapeau , et elle marche pour...

Bonjour ,je suis un étudiant en informatique , et j'ai un projet en Lisp que je dois rendre dés la rentré prochaine.

mon projet consiste a écrire un programme qui prend en argument une liste...