[b]Código para deslocamento das peças[/b][br]SetValue[Q,P_8][br]If[Distance[Q,V]==1,SetValue[P_8,V]][br]If[Distance[Q,V]==1,SetValue[V,Q]][br][br][b]Código para embaralhamento das peças[/b][br]SetValue[A,P_2][br]SetValue[P_2,P_1][br]SetValue[P_1,P_7][br]SetValue[P_7,P_5][br]SetValue[P_5,P_3][br]SetValue[P_3,A][br]SetValue[B,P_8][br]SetValue[P_8,P_4][br]SetValue[P_4,P_6][br]SetValue[P_6,B][br][br][b]Condição para exibir mensagem e peça remanescente: [/b][br]P_1 ≟ (0, 2) ∧ P_2 ≟ (1, 2) ∧ P_3 ≟ (2, 2) ∧ P_4 ≟ (0, 1) ∧ P_5 ≟ (1, 1) ∧ P_6 ≟ (2, 1) ∧ P_7 ≟ (0, 0) ∧ P_8 ≟ (1, 0)