Apprendre Maple

[tontonkilleur]

Bonjour ,
Je suis en train de travailler sur la création d'une procédure pour résoudre des puzzles coulissants(comme le taquin :http://fr.wikipedia.org/wiki/Taquin) . J'ai chercher sur le net pour trouver des informations sur le sujet mais le problème est que tous les algorithmes propose sur le net sont en C+ ou autre.
Pour le moment j'ai écrit sa :
> puzzle:=proc(M1,M2,n)
> local i,j,k,l,e:
> for i from 1 to n do
> for j from 1 to n do
> for k from 1 to n do
> for l from 1 to n do
> if M1[i,j]-M2[k,l]=0 then e[i,j]:=abs(i-k)+abs(j-l):fi:od:od:od:od:
> end:
M1 et M2 étant des matrices , M1 la position initiale du puzzle et M2 la position attendue .
Ex :
M1= matrix(3,3,[o,b,h,d,e,f,c,b,a]), M2:=matrix(3,3,[a,b,c,d,e,f,g,h,o]
e calcule "l'erreur" de chaque cases de la matrice , pour pouvoir bouger la case avec la plus grande erreur .
Mon problème est comment repérer la case vide (représenter par un o dans l'exemple) et savoir quels sont les cases adjacente a la case vide pour pouvoir ensuite les déplacer .
Merci

[ALS]

Bonjour, déjà on peut commencer à récupérer les valeurs des erreurs dans une matrice e: