Discussion :

[simnitch]

Re-bonjour,

j'ai une liste L de 3 sous-listes,
j'ai un prédicat modifie\4(Liste, Indice, Element, Liste_modifiée) qui modifie l'élément de Liste d'indice Indice,
un prédicat nieme_elt(Liste, Nieme, Niemeelement),
un prédical longueur(Liste, Taille),
et j'aimerais modifier les sous-listes de la liste L qui n'ont qu'un seul élément par disons 9999.

J'ai écrit ceci :

Code :

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

1
2
3
4
5
6
7
8
9
 
modifie_uniques(L, LM) :-
    modifie_uniques_aux(L, LM, 3).
 
modifie_uniques_aux(_, _, 0) :- !.
modifie_uniques_aux(L, LM, K) :-
    nieme_elt(L, K, Sous_liste), longueur(Sous_liste, Taille), Taille == 1,
    !, modifie(L, K, 9999, LM), K1 is K-1, modifie_uniques_aux(L, LM, K1).
modifie_uniques_aux(L, L, _).

Ca me retourne False dès qu'une sous-liste à une taille de 1 et la liste L quand rien est à modifier (ça c'est normal).
Je ne comprends pas, et là cette fois je bloque vraiment...
Merci d'avance.

[Trap D]

Bonjour

Je ne sais pas quel Prolog tu utilises mais avec SWI-Prolog, on peut utiliser un prédicat d'inspiration "fonctionnelle" maplist :

Code :

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

1
2
3
4
5
6
7
modifie_uniques(L, LM) :-
	maplist(modifie, L, LM).
 
modifie(Old, New) :-
	length(Old, 1)
	-> New = 9999
	; New = Old.

Résultat :

?- L = [[1,2,3], [1], [1,2]],modifie_uniques(L, LM).
L = [[1,2,3],[1],[1,2]],
LM = [[1,2,3],9999,[1,2]].

[simnitch]

Bonjour,
ok merci, mais le problème c'est que je veux recommencer du début de la liste à chaque fois qu'il y a une modification. Il faudrait mettre un flag qui passe de 0 à 1 quand quelque chose a été modifié, je vais essayer ça, si je n'y arrive pas je reviens poster ici, merci encore pour ta réponse.

Edit : c'est bon, encore merci pour le temps que tu as passé à m'aider!