Shift list elements to left by 3: Difference between revisions
Content added Content deleted
(Added Algol W) |
(→{{header|ALGOL W}}: Tweak) |
||
Line 157: | Line 157: | ||
integer array shifted ( 1 :: n ); |
integer array shifted ( 1 :: n ); |
||
integer aPos; |
integer aPos; |
||
for i := 0 until n - 1 do shifted( i ) := a( lb + i ); |
|||
for i := 1 until n do shifted( i ) := a( inc( aPos ) ); |
|||
for i := lb until ub - n do a( i ) := a( i + n ); |
for i := lb until ub - n do a( i ) := a( i + n ); |
||
aPos := ub - n; |
aPos := ub - n; |
||
for i := |
for i := 0 until n - 1 do a( inc( aPos ) ) := shifted( i ); |
||
end rotateLeft ; |
end rotateLeft ; |
||
% prints the elements of v from lb to ub % |
% prints the elements of v from lb to ub % |