Repeter élément liste

Bonjour,

je bloque sur un prédicat qui pour une liste L, on répète N fois chaque élément de la liste & donne une liste résultat Lr : repeter([a,b,c], 3, Lr). -> Lr = [a,a,a,b,b,b,c,c,c].

Pour commencer j'y vais par étape en faisant un prédicat qui répète un élément X, N fois & on met le résultat dans une liste : test(2, 3, Lr). -> Lr = [2,2,2].

J'ai donc ça pour le moment:

Code:

---

1 2 3 4 5 6 7

test(_,0,[]). test(X, N, ):- N>0, Lr = [X], Tmp is N-1, test(X, Tmp, ).

---

Merci d'avance pour votre aide :aie:

EDIT
Bon j'en suis arrivé à là:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

test(_,_,[]). test(X, N, [X|Lr]):- N>0, Tmp is N-1, test(X, Tmp, Lr).   repete([], _, []). repete([T|Q], N, Lr):- test(T, N, Lr), repete(Q, N, Lr).

---

& là je séche un peu :calim2:

EDIT FINAL

Bon j'ai finalement réussi, je post ça ici si besoin :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

repeteElement(_,_,[]). repeteElement(X, N, [X|Lr]):- N>0, Tmp is N-1, repeteElement(X, Tmp, Lr). //Exemple: repeteElement(a, 3, Lr). -> Lr = [a,a,a]. repeter([], _, []). repeter([T|Q], N, Lfinal):- repeteElement(T, N, Lintermediaire), append(Lintermediaire, Lresultat, Lfinal), repeter(Q, N, Lresultat). // Exemple: repeter([a,b,c], 3, Lr). -> Lr = [a,a,a,b,b,b,c,c,c].

---

Je clos, bonne soirée.

Bonjour et bravo, tu as résolu ton problème toi même !
Je voudrais simplement montrer des possibilités de Prolog très intéressantes :
Sur le fait de dupliquer un terme pour obtenir la liste, ce que tu as fait fonctionne, mais je vais te montrer la puissance de Prolog en utilisant la bibliothèque clpfd
On écrit alors

Code:

---

1 2 3 4 5 6 7 8

:- use_module(library(clpfd)).   repeter_un_element(Elem, N, [Elem | R1]):- N #> 0, N1 #= N - 1, repeter_un_element(Elem, N1, R1).   repeter_un_element(_Elem, 0, []).

---

Voici ce qu'on peut obtenir :

Code:

---

1 2 3 4 5 6 7 8

?- repeter_un_element(a, 3, L). L = [a, a, a] ; false.   ?- repeter_un_element(X, Y, [a,a]). X = a, Y = 2 ; false.

---

A partir du résultat recherché, tu peux obtenir les arguments d'appel, peu de langages sont capables de faire ça !

Une autre manière de coder répéter est d'utiliser un style "fonctionnel" avec foldl puisque tu travailles successivement sur chaque élément de la liste:

Code:

---

1 2 3 4 5 6

:- use_module(library(lambda)).   repeter(In, N, Out) :- foldl(N +\X^Y^Z^(repeter_un_element(X, N, T), append(Y, T, Z)), In, [], Out).

---

Bon courage pour Prolog, c'est un langage passionnant !