function Shift ( vector, i,j) if ij then return vector end if store vector [i] for 0k(ij1) do vector [ik] vector [ik1] end for vector [j] store return vector end function Shift ( vector, 3,1) Shift (vector, 5,3)