Discussion :

[holdup37]

bonjour voila mon probleme:
je veux compter le nombre total d'element Element dans la liste de liste Grille et la placer dans Total. voici mon code

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
 
evaluation(Element,Grille,L,Compteur,Total):-
         Total=0,
         nth1(_,Grille,L),        %extrait les ligne de Grille
         compte(Element,L,Compteur).
 
compte(_,[],0).
compte(E,[T|L],C):-
         compte(E,L,R),
         (E=T
         ->
         C is R+1
         ;
         C is R
         ).

ce que j'obtient:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
602 ?- evaluation(v,[[v,p,v],[p,v,p]],L,C,T).
 
L = [v, p, v],
C = 2,
T = 0 ;
 
L = [p, v, p],
C = 1,
T = 0 ;
 
No
603 ?-

...et moi je voudrai avoir le total des occurence C

Code :

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

1
2
3
4
5
6
7
8
9
10
 
602 ?- evaluation(v,[[v,p,v],[p,v,p]],L,C,T).
 
L = [v, p, v],
C = 2,
T = 2 ;
 
L = [p, v, p],
C = 1,
T = 3 ;

si quelqu'un peut m'aider

[gorgonite]

je verrais plutot ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
evaluation(Element, [], 0).
evaluation(Element, [L|Q], Compteur) :-
   evaluation(Element, Q, CompteurQ),
   compte(E, L, C),
   Compteur is CompteurQ + C.
 
 
compte(_,[],0).
compte(E,[E|L],C) :-
  compte(E,L,R),
  C is R+1.
compte(E,[_|L],C) :-
  compte(E,L,C).

[holdup37]

merci de m'avoir repondu aussi vite
ca marche