Version imprimable
Bonjour,
j'ai un programme à réaliser en scheme qui consiste à passer d'une notation préfixée en une notation infixée, par exemple ;
(+ (* 1 2) 3 (- 4 5)) >>> ((1 * 2 ) + 3 + (4 - 5))
et je ne sais pas quoi utiliser comme fonctions définies, un peu désorienté.
Un petit foldl ? (J'ai l'impression de répéter ça souvent ces derniers temps...)
(Ok, le foldl est pas si petit...)Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18(define (prefix2infix xs) (if (not (pair? xs)) xs (case (length xs) [(0) '()] [(1) (prefix2infix xs)] [(2) (prefix2infix (cadr xs))] [else (let ([op (list (car xs))] [start (list (prefix2infix (cadr xs)))] [rest (cddr xs)]) (foldl (lambda (x inf) (append inf op (list (prefix2infix x)))) start rest) )] ) ) )
--
Jedaï
C'est une question de devoir. Tu n'aurais pas du lui donner une solution tout de suite.Citation:
Envoyé par Jedai
Tu penses qu'il va comprendre? :)Citation:
Envoyé par Garulfo
Pas sur non.Citation:
Envoyé par GnuVince
Mais jmi risquerait de mettre ça dans son devoir quand même.
Ça serait dommage.
Pour jmi, comme pour toutes les autres questions, je te proposerais de commencer par une description de ce que tu veux faire et un algo.
Je comprends bien ton exemple, mais un exemple ce n'est qu'une description particulière. Il faut que tu en tires la généralité.
J'ai jamais donné ça en exercice mais c'est intelligent :mrgreen:
Tu as raison bien sûr mais je me suis laissé emporter... :mrgreen:Citation:
Envoyé par Garulfo
Le problème était intéressant et la solution un peu plus compliquée que je ne le pensais (il y a sans doute plus simple d'ailleurs), reste à voir ce que jmi va en faire.
--
Jedaï