Discussion :

[da_latifa]

Salut tout le monde

j'ai besoin d'un prédicat qui peut prendre une liste des listes composées
de 3 informations sur mes livres (matière, nombre , et langue )
et me retourne une nouvelle liste sans doubons, avec le total des nombres du livre concerné
et changer toutes les langues en 'fr' comme celà:


sansDoublons([[Science, 2, fr], [Math, 2, ang], [Philosophie, 4, ang], [Science, 5, fr], [Science, 1, ang]], R)

Résultat:

R= [[Science, 8, fr], [Math, 2, fr], [Philosophie, 4, fr]]


j'ai fait des essais mais je me suis bloquée


Merci

[Trap D]

Bonjour

Attention, les noms de variables en Prolog commencent par une majuscule, donc il faut des initiales minuscules pour Math, Philo et Sciences sinon ça ne fonctionne pas !

Voici une possibilité :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
% une liste vide, n'a pas de doublons
sansDoublons([], []).
 
% dans le cas général
% d'abord la langue en entrée n'a aucune importance (d'où le _ pour le troisième argument
sansDoublons([[Theme, N, _] | T], SD) :-
	% on traite la suite de la liste
	sansDoublons(T, SD1),
	% on traite l'élément courant
	(   select([Theme, N1, fr], SD1, SD2)
	->  N2 is N1+N,
	    SD = [[Theme, N2, fr] | SD2]
	;   SD = [[Theme, N, fr] | SD1]).

[da_latifa]

Merci beaucoup Trap D,
ça m'a aidé beaucoup à comprendre