Aide:Petit Algo en Maple

[invitedc3dbc26]

Bonsoir à Tous,
Je cherche à faire un algorithme qui renvoie une Liste donnée mais dans l'ordre inverse...Si vous pouvez m'aider à le finir:

S:=[2,3,6,9];
l:=nops(S);
...

Merci beaucoup
-----

[invitedc3dbc26]

En fait il faidrait qu sa me renvoit :
[9,6,3,2]

[invite14e03d2a]

Salut!

Un truc du genre devrait marcher:
inverse:=proc(lis)
local n,sil;
n:=nops(lis);
sil:=[seq(op(n+1-k,lis),k=1..n)];
return sil;
end proc;

Cordialement,

PS: peut-être existe-t-il déjà une fonction dans Maple pour réaliser cette inversion mais je ne la connait pas.

[invite551c2897]

Bonjour.
Un exemple en utilisant une matrice :

uni:=array([[0,0,1],[0,1,0],[1,0,0]]);L:=[1,2,3];
> p:=evalm(L&*uni);

[A voir en vidéo sur Futura]

[invite551c2897]

Bonjour.
Pour permuter les diagonales de la matrice unité :

restart:with(LinearAlgebra):n:=6;
> delta:=(i,j)->if i+j-1=n then 1 else 0 fi;
> m:=n->matrix(n,n,(i,j)->delta(i,j));m[n]=m(n);