[Lisp][Débutant] Erreur incompréhensible "expected procedure"

Version imprimable

(Re)Bonjour,
Encore un problème

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
( define (addr ltc) 
   (cond ( (null? (cdr ltc) )  ltc)
         (else( 
               (addr (
                      append (            
                       cons            
                       (                        
                        cons                                      
                        ( + ( car (car ltc) ) (car (car (cdr ltc) ) ) )                                              
                        (cons (+ (car (cdr (car ltc) ) ) ( car (cdr (car (cdr ltc) ) ) ) ) ())                                                     
                       )                                            
                       ()                                       
                       )                                       
                      (cdr (cdr ltc) )                                  
                      ) 
              ) ) ) ) <- probleme)

Je suis désolé pour l'indentation , j'ai vraiment du mal à en trouver une claire pour ce langage.

Ce programme fait l'addition des termes d'une A-liste et retourne une a-liste d'un seul terme
Exemple :
(addr '( ( 2 3)(3 6)(5 6)))
retourne :
((10 15))

Le programme s'exécute pas trop mal (il crée la liste finale) mais impossible de la retourner ! Le debugueur m'indique une erreur à la parenthèse indiquée.

Dr Sheme indique :

Citation:

procedure application: expected procedure, given: ((10 15)) (no arguments)

Merci à vous !

Une parenthèse de trop ici

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
( define (addr ltc) 
   (cond ( (null? (cdr ltc) )  ltc)
         (else(  <=== ici parenthèse en trop la supprimer ainsi qu'une autre en bas
               (addr (
                      append (            
                       cons            
                       (                        
                        cons                                      
                        ( + ( car (car ltc) ) (car (car (cdr ltc) ) ) )                                              
                        (cons (+ (car (cdr (car ltc) ) ) ( car (cdr (car (cdr ltc) ) ) ) ) ())                                                     
                       )                                            
                       ()                                       
                       )                                       
                      (cdr (cdr ltc) )                                  
                      ) 
              ) ) ) ) <- probleme)

Merci !

J ai vraiment bcp de problemes avec ces parenthese

Maitnenant j aimerai ajouter un bout de code au precedent programme mais tjrs la meme erreur, je ne comprends vraiment aps comment place ces parenthses pourtt je vois bien le principe du langage

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
(define (add p ltc lto lrc lro)
  (cond ( ( or (null? (cdr ltc) ) (>  ( + ( car (car ltc) ) (car (car (cdr ltc) ) ) ) p ) )   
         ( (cond ( (> (car ( cdr (car ltc) ) ) ( car( cdr (car lrc) ) ) ) lto) 
                (else lro ) ) ) )  
         (else
                 ( add p (
                       append (
                               cons
                                   (
                                    cons
                                       ( + ( car (car ltc) ) (car (car (cdr ltc) ) ) )
                                       (cons (+ (car (cdr (car ltc) ) ) ( car (cdr (car (cdr ltc) ) ) ) ) () ) 
                                   )
                                  ()
                              ) 
                              (cdr (cdr ltc) ) 
                       ) lto lrc lro )  ) ) )

27/11/2006, 14h53
Trap D

Tu pourrais donner un exemple de lancement pour pouvoir tester ?

Citation:

(add ? ? ? ? ?)
27/11/2006, 14h57
Treuze

Bien sur, desole j aurai du le faire tt de suite

(add '15 '((12 3)(3 5)) '((12 3)(3 5)) '((13 3)) '(22 22))

Ton erreur est ici :
Code:

1 2 3 4 (define (add p ltc lto lrc lro) (cond ( ( or (null? (cdr ltc) ) (> ( + ( car (car ltc) ) (car (car (cdr ltc) ) ) ) p ) ) ( (cond ( (> (car ( cdr (car ltc) ) ) ( car( cdr (car lrc) ) ) ) lto) (else lro ) ) ) ) <== parenthèse en trop, elle clot le premier cond.
Utilises-tu DrScheme, son éditeur est bien pratique, il permet de voir la portée du parenthésage.

Par contre, une fois corrigé, ta fonction ne donne rien, tu as une erreur d'ecriture de la fonction, qu'est-elle censée faire ?

27/11/2006, 16h01
Treuze

Oui j utilises Dr Sheme mais je n ai pas vu que ma parenthese portait trop loin ...

Le programme est cense retourner une liste lto ou lro

Le programme fait l addition des termes d une liste, les compares avec la valeur calculée lors d un precedent appel et retourne celle qui a la plus grande valeur ( 2 terme de chaque a-liste)

ltc = liste "additionnée" en cours d evaluation
lto = liste d origine en cours d evaluation
lrc = liste additionnée lors d un precedent appel qui ,pour l instant, a la plus grande valeur
lro = liste d origine qui a la plus grande valeur

J'ai oublie de te demander : Quel est le résultat attendu de
(add '15 '((12 3)(3 5)) '((12 3)(3 5)) '((13 3)) '(22 22)) ?

Avec ce code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
(define (add p ltc lto lrc lro)
  (cond ((or (null? (cdr ltc)) 
             (>  (+ (car (car ltc)) (car (car (cdr ltc)))) p))   
         (cond ((> (car (cdr (car ltc))) (car(cdr (car lrc)))) lto) 
               (else lro )))  
        (else (add p 
                   (append (cons (cons (+ ( car (car ltc) ) (car (car (cdr ltc))))
                                       (cons (+ (car (cdr (car ltc))) (car (cdr (car (cdr ltc))))) ()) 
                                       )()) 
                           (cdr (cdr ltc)))
                   lto lrc lro))))
 
(add '15 '((12 3)(3 5)) '((12 3)(3 5)) '((13 3)) '(22 22))

J'obtiens ((12 3) (3 5))

27/11/2006, 19h10
Trap D

Pour obtenir une indentation correcte tu peux faire Scheme/Réindenter !
30/11/2006, 10h11
Treuze

Merci pour la petite astuce avec DrSheme :D

Citation:

J'ai oublie de te demander : Quel est le résultat attendu de
(add '15 '((12 3)(3 5)) '((12 3)(3 5)) '((13 3)) '(22 22)) ?

Le resultat attendu est ( (12 3)(3 5) ), je ne sais plus si c'était ce résultat qui ressortait mais en tt cas ca m a permis d'avancer et le résultat est bon maintenant

Merci et a tt de suite pour un nouveau problème :? !