Discussion :

[l1informatique]

Bonjour,

Je ne comprends pas comment résoudre ce problème.

Construire en C une liste L à quatre éléments dans le code du programme à l'aide de cons. Testez car(L), car(cdr(L), car(cdr(cdr L)), car(cdr(cdr(cdr L))), en affichant leur résultat.

La première question : le code marche bien mais dès que j'ajoute caar rien ne marche plus :s

Définir en C, à l'aide de #define, caar et cadr. Construisez une liste pour les tester et afficher leur résultat.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
# include <stdio.h>
# include <stdlib.h>
#define nil NULL
 
typedef struct node { int car ; struct node * cdr ; } node, * list ;
 
void usage(char *) ;
list cons(int car, list L);
void putlist(list L);
int car(list L);
list cdr(list L);
 
 
int main() 
 
{	list L = nil ;
	int k;
		for (k = 0 ; k < 4 ; k++)
			L = cons(k, L) ;
			putlist(L) ;
			printf("\n");
			printf("car : %d\n", car(L));
			putlist(cdr(L));
			printf("\n");
			printf("car(cdr(L) : %d\n", car(cdr(L)));
			printf("car(cdr(cdr L)) : %d\n",car(cdr(cdr (L))));
			printf("car(cdr(cdr(cdr L))) : %d\n",car(cdr(cdr(cdr (L)))));
 
	return 0 ; }
 
list cons(int car, list L)
{	list new = malloc(sizeof(node)) ;
	if (! new) usage("cons : manque de RAM") ; 
		new -> car = car ;
		new -> cdr = L ;
	return new ; }
 
void putlist(list L)
{	if (! L) return ; 
	printf("%d ", L -> car) ;
	putlist(L -> cdr) ; }
 
 
int car(list L)
{
return L -> car ;
}
 
list cdr(list L)
{
	return L -> cdr;
 
}
 
 
 
void usage(char * P) { printf("Usage : %s erreur", P), exit(1) ; }

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
langgg.c: In function ‘main’:
langgg.c:31:4: warning: passing argument 1 of ‘car’ makes pointer from integer without a cast [enabled by default]
    putlist(caar(L));
    ^
langgg.c:10:5: note: expected ‘list’ but argument is of type ‘int’
 int car(list L);
     ^
langgg.c:31:4: warning: passing argument 1 of ‘putlist’ makes pointer from integer without a cast [enabled by default]
    putlist(caar(L));
    ^
langgg.c:9:6: note: expected ‘list’ but argument is of type ‘int’
 void putlist(list L);

Merci de m'aider

[LittleWhite]

Bonjour,

Le compilateur vous indique que la fonction putlist() n'accepte en argument qu'une liste.
Vous, vous avez déclaré la fonction car() retournant un int. Du coup, lorsque vous faites :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

putlist(caar(L));

(D'ailleurs pourquoi caar avec deux 'a' ?)
Le compilateur n'aime pas, car car() retourne un int et putlist() accepte uniquement une liste.

C'est exactement ce qui est dit ici :

langgg.c: In function ‘main’:
langgg.c:31:4: warning: passing argument 1 of ‘car’ makes pointer from integer without a cast [enabled by default]
putlist(caar(L));
^
langgg.c:10:5: note: expected ‘list’ but argument is of type ‘int’
int car(list L);
^
langgg.c:31:4: warning: passing argument 1 of ‘putlist’ makes pointer from integer without a cast [enabled by default]
putlist(caar(L));
^
langgg.c:9:6: note: expected ‘list’ but argument is of type ‘int’
void putlist(list L);

[Obsidian]

J'ajoute qu'à la base, la gestion de listes avec « cons », « car », « cdr », « caar » et « cadr », ce n'est pas du C mais du LISP.

(D'ailleurs pourquoi caar avec deux 'a' ?)

Parce qu'en LISP, « (caar) » est équivalent à « (car (car liste)) » (soit « car(car(liste)) » en syntaxe C). C'est d'ailleurs pour cela que son professeur lui demande de faire cela avec des #define : on écrit d'abord les fonctions fondamentales, et on implémente les autres avec des macros.

[l1informatique]

J'ai déclaré define caar. mais j'ai toujours le meme probleme de cast

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
# include <stdio.h>
# include <stdlib.h>
#define nil NULL
 
typedef struct node { int car ; struct node * cdr ; } node, * list ;
 
void usage(char *) ;
list cons(int car, list L);
void putlist(list L);
int car(list L);
list cdr(list L);
 
#define caar(x) car(car(x)) 
#define cadr(x) car(cdr(x))
 
int main() 
 
{	list L = nil ;
	int k;
		for (k = 0 ; k < 4 ; k++)
			L = cons(k, L) ;
			putlist(L) ;
			printf("\n");
			printf("car(L) : %d\n", car(L));
			putlist(cdr(L));
			printf("\n");
			printf("car(cdr(L) : %d\n", car(cdr(L)));
			printf("car(cdr(cdr L)) : %d\n",car(cdr(cdr (L))));
			printf("car(cdr(cdr(cdr L))) : %d\n",car(cdr(cdr(cdr (L)))));
			printf("cadr(L) : %d\n", cadr(L));
			putlist(caar(L));
			//printf("caar(L) : %d\n", caar(L));
	return 0 ; }
 
list cons(int* car, list L)
{	list new = malloc(sizeof(node)) ;
	if (! new) usage("cons : manque de RAM") ; 
		new -> car = car ;
		new -> cdr = L ;
	return new ; }
 
void putlist(list L)
{	if (! L) return ; 
	printf("%d ", L -> car) ;
	putlist(L -> cdr) ; }
 
 
int car(list L)
{
return L -> car ;
}
 
list cdr(list L)
{
	return L -> cdr;
 
}
 
 
 
void usage(char * P) { printf("Usage : %s erreur", P), exit(1) ; }

[Obsidian]

C'est tout-à-fait normal, et le problème est d'ailleurs le même en LISP quand on n'a pas l'habitude :

Code LISP :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
(car '(1 2 3 4 5))
1
Break 3 [4]> (caar '(1 2 3 4 5))
 
*** - CAAR: 1 is not a list

… seulement, sa résolution va être un tout petit plus subtile que prévu si tu n'as pas mis le doigt sur la cause exacte.
Question préliminaire : as-tu déjà fait un peu de LISP ou t'a-t-on donné ce projet brut de décoffrage sans un minimum d'explications au préalable ?

[CodeurPlusPlus]

Il y a un problème dans l'exercice à faire lui-même... caar (l) n'a aucun sens si l est une liste d'entiers.