Advanced Search

Question: Is there a simpler a way?

Question:Is there a simpler a way?

Jabz 433 Maple
March 01 2010
0


Hi,
I want to shift  the first two elementsof a list to the end and this is what i've coded i have to run the proc twice. Is there a simpler way of doing this??? for example

L:=[1,2,3,4,5]  => [3,4,5,1,2]

switch2:=proc(N)
local y,li:
li:=N:
for y from 1 to nops(li)-1 do
(li[y],li[y+1]):=(li[y+1],li[y])
od:
li;
end proc:

Is there another simpler way of doing this aswell??

L:=[1,2,3,4,5] => [2,1,4,5,3]

switch:=proc(odd)
local temp, k,odds:
odds:=odd:
temp:=odds[1];
odds[1]:=odds[2];
odds[2]:=temp;
temp:=odds[3];

for k from 3 to nops(odd)-1 do
odds[k] := odds[k+1];od:
odds;

odds[nops(odds)]:=temp:
print(odds);
end proc:
 
Please Wait...