|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
f[{a1_, a2_, a3_, a4_, a5_, a6_, a7_, a8_, a9_, a10_}] :=
{a1, a6, a2, a7, a3, a8, a4, a9, a5, a10}
s = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10} ;
Do[Print[s]; s = f[s], {7}]
g[{a1_,a2_,a3_,a4_,a5_,a6_,a7_,a8_,a9_,a10_,a11_,a12_}] :=
{a1, a7, a2, a8, a3, a9, a4, a10, a5, a11, a6, a12}
s = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12} ;
Do[Print[{i, s}]; s = g[s], {i, 1, 11}]
|
![]() |
|





