règles sur des listes à 2 dimensions [Résolu]

[jfv.work]

Bonjour, je rencontre un problème concernant des listes à 2 dimensions:

Je récupère une liste à partir d'une requete SQL:

Code :

1
2
3
4
odbc_connect('MYèODBC_LINK',_,[user(root),password(''),alias(db),open(once)]),
findall(L, odbc_query(db,"SELECT * FROM maTable",L),List),
maplist(writeln,List),
odbc_disconnect(db).

cela me retourne donc une liste à 2 dimensions contenant les données issues de la table lue.

maTable contient une colonne id et une colonne label, je reçois donc dans prolog une liste de cette forme.
à présent, je souhaite ajouter des règles du type: SI colonne label="AZERTY" Alors 1 Sinon 0
et ajouter ce résultat en fin de liste, cad obtenir:
[[id1,label1,0],[id1,azerty,1],....... ]

Je prend toute idée.

d'avance merci,

cdt,

jfv

[Trap D]

Un simple maplist devrait suffire ,

Code :

1
2
3
4
5
6
maplist(modif, List, L1),
writeln(L1).

modif([A, azerty], [A, azerty,1]).

modif([A, B], [A, B, 0]).

[jfv.work]

bonjour et merci de ta réponse,

je comprend bien la logique, mais à la mise en oeuvre avec:

Code :

1
2
3
4
test(List) :- maplist(modif,List,L1), write(L1).

modif([A,azerty],[A,azerty,1]).
modif([A,B],[A,B,0]).

et avec un appel

Code :

test([aaa,azerty]).

ou

Code :

test([aaa,zzzzz]).

la réponse est

Code :

false

, je pense que ça ne doit pas etre loin.

merci pour vos suggestions,

cdt,

jfv.work

[Trap D]

Oui, la liste d'appel à modif est de la forme [[...], [..], ..], donc pour un élément c'est test([[aaa,azerty]]).

[jfv.work]

effectivement, c'est donc que odbc ne me fournit probablement pas une liste à 2 dimensions

[Trap D]

La question est donc "que te fournit odbc ? " : quel est le résultat de maplist(writeln,List) ?

[jfv.work]

ça affiche un row(champ1,champ2,.....)

ce sont bien des ( ) et pas des []

[Trap D]

Ok. pour récuperer la liste des champs il suffit de faire

Code :

row(Champ1,Champ2...) =.. [A|B].

Par exemple

?- row(Champ1,Champ2) =.. [A|B].
A = row,
B = [Champ1,Champ2].

[jfv.work]

reprennons, on a :
odbc_connect('MYèODBC_LINK',_,[user(root),password(''),alias(db),open(once)]),
findall(L, odbc_query(db,"SELECT * FROM maTable",L),List),
maplist(writeln,List),
odbc_disconnect(db).
qui affiche row(champ1,champ2)

on a :
row(Champ1,Champ2) =.. [A|B].,
qui à partir de row(Champ1,Champ2) nous donne [Champ1,Champ2]

on a :
maplist(modif, List, L1),
writeln(L1).
modif([A, azerty], [A, azerty,1]).
modif([A, B], [A, B, 0]). .
qui va ajouter un champ en fin de ligne tel que si le 2nd champ vaut azerty alors 1 sinon 0 et afficher le résultat.

maintenant il faut emboiter tout ça, et je comprend pas comment dans la partie

odbc_connect('MYèODBC_LINK',_,[user(root),password(''),alias(db),open(once)]),
findall(L, odbc_query(db,"SELECT * FROM maTable",L),List),
maplist(writeln,List),
odbc_disconnect(db).

forcer ce que qualifirai de "conversion" par l'appel de row(Champ1,Champ2) =.. [A|B].

la suite consistant à appeler modif via un maplist est ok

[Trap D]

Première chose , ça évite les lignes de couleur !
Deuxièmement, si j'ai bien compris ton code donne :

Code :

1
2
3
4
5
6
7
odbc_connect('MYèODBC_LINK',_,[user(root),password(''),alias(db),open(once)]),
findall(L, odbc_query(db,"SELECT * FROM maTable",L),List),
% on ferme tout de suite la base de donnee
odbc_disconnect(db).
% maplist(writeln,List), <== inutile
maplist(modif, List, L1),
maplist(writeln, L1).

avec

Code :

1
2
3
4
5
6
modif(In, Out) :-
  In =.. [_|A], % <== on n'a pas besoin du nom du foncteur
  modifie(A, Out).

modifie([A, azerty], [A, azerty,1]).
modifie([A, B], [A, B, 0]). .

Je peux pas tester mais ça doit fonctionner.

[jfv.work]

super, ça marche très bien,

encore merci