Discussion :

[salah1846]

bonjour à tous,
je viens vers vous car j'ai besoin d'aide.

voilà ma demande :

Ecrire le prédicat Prolog nommé afficheSousListes d’arité 3 (Liste, indice Minimum, Indice Maximum) qui affiche tous les éléments d’une liste sous la forme d’une matrice 3*3

Exemple : afficheSousListes([1,1,1,1,1,1,1,1,1],1,3)  111
111
111


auriez-vous une idée ?

Merci bcp par avance

[Trap D]

Quels sont les essais que vous avez faits ?
Où est-ce que ça coince ?
A mon avis le résultat recherché est la liste [[1,1,1],[1,1,1],[1,1,1]].
Avez- vous cherché à utiliser append ?

[salah1846]

voilà ce que je fais pour le moment et le : sauf que j'utilise pas les arités

afficheMatrice([]).
afficheMatrice([H1,H2,H3|L]) :- format('~w ~w ~w~n',[H1,H2,H3]),afficheMatrice(L).

le résultat :

Code :

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

1
2
3
4
5
?- afficheMatrice([a,b,c,d,e,f,g,h,k]).
a b c
d e f
g h k
true.

Mon soucis c'est que dans la demande initiale, ils veulent qu'on utilises les indexs pour faire les sous listes :

Exemple :

Code :

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

1
2
3
4
?- afficheMatrice([1,1,1,1,1,1,1,1,1],1,3) .  %dont 1 c'est l'indice minimum et 3 est lindice maximum 
 111      
 111       
 111

[Trap D]

Il faut toujours séparer l'obtention du résultat et son affichage style

Code :

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

1
2
3
afficheMatrice(L) :-
    obtention_matrice(L, M),
    affichage_matrice(M).

Pour ce qui est de afficheSousListes d’arité 3 (Liste, indice Minimum, Indice Maximum) je ne comprends pas très bien ce que veut dire "Indice Minimum, Indice Maximum".
D'après l'exemple c'est un simple "split" de la liste en sous liste de longeur 3.
on peut faire ainsi

Code :

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

1
2
3
4
5
afficheSousListes([], _Longueur, []) :- !.
afficheSousListes(Liste, Longueur, [L | Out]) :-
    length(L, Longueur),
    append(L, X, Liste),
    afficheSousListes(X, Longueur, Out).

Exemple

Code :

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

1
2
 ?- afficheSousListes([a,b,c,d,e,f,g,h,i],3, L).
L = [[a,b,c],[d,e,f],[g,h,i]].

[salah1846]

Je vous remercie pour votre réactivité,
Je pense que ça répond à mon besoin, je vais juste adapter l'affichage pour que ça fasse comme ce qu'il a été demandé.

Sinon, y a pas un prédicat qui calcule et affiche une matrice/ carré à partir d'une liste ??
Pour notre exemple, c'est un carré /3, on aurait pu tomber sur une liste de 16 éléments qui nous donnera un carré/4

Merci par avance

[Trap D]

Il suffit de calculer la racine carrée de la longueur de la liste, et ça roule.

[salah1846]

Merci,

dernière question, le but final du TP est le suivant :

"Proposez une résolution du prédicat carreMagique pour n’importe quelle matrice carrée, avec génération de la somme des lignes, colonnes et diagonales".

j'ai trouvé une de vos solution qui traite le Carré magique d'ordre 4 mais la solution reste statique, je ne vois pas comment je peux généraliser cette solution pour que cette dernière résout tous les carrée magique juste en donnant la somme de chaque Ligne.

Une piste ?

Cordialement

[Trap D]

Le programme dont vous parlez peut donner les carrés magiques de n'importe quel ordre. Ça prend simplement du temps.

[salah1846]

Je ne sais pas si on parle du même programme, Dans Le programme que j'ai récupéré, on a Le prédicat carre(vars):- Vars = [A1...].
Dont vars est une liste de 16 éléments c'est tout. Donc cela traite que Le carré d'ordre 4

Si vous avez une piste, suis preneur

[Trap D]

Eh bien cherchez dans le forum Prolog, le programme que vous recherchez s'y trouve !

[salah1846]

Merci pour votre retour,
j'ai parcouru les 21 page de forum Prolog et il m'était impossible de trouver ce programme, si vous avez le lien de la discussion sous le coude, je serais vraiment reconnaissant.

Merci par avance

[salah1846]

Re
je l'ai trouvé, ça me donne des pistes pour répondre à mon besoin , en tout cas, je vous remercie pour tout.

à bientôt