Shift list elements to left by 3: Difference between revisions
Content added Content deleted
(Shift list elements to left by 3 in various BASIC dialents) |
(Added XPL0 example.) |
||
Line 1,428: | Line 1,428: | ||
Original list : [1, 2, 3, 4, 5, 6, 7, 8, 9] |
Original list : [1, 2, 3, 4, 5, 6, 7, 8, 9] |
||
Shifted left by 3 : [4, 5, 6, 7, 8, 9, 1, 2, 3] |
Shifted left by 3 : [4, 5, 6, 7, 8, 9, 1, 2, 3] |
||
</pre> |
|||
=={{header|XPL0}}== |
|||
<lang XPL0>int A, N, T, I; |
|||
[A:= [1, 2, 3, 4, 5, 6, 7, 8, 9]; |
|||
for N:= 1 to 3 do \rotate A left 3 places |
|||
[T:= A(0); |
|||
for I:= 0 to 9-2 do A(I):= A(I+1); |
|||
A(I):= T]; |
|||
for I:= 0 to 9-2 do |
|||
[IntOut(0, A(I)); Text(0, ", ")]; |
|||
IntOut(0, A(I)); |
|||
]</lang> |
|||
{{out}} |
|||
<pre> |
|||
4, 5, 6, 7, 8, 9, 1, 2, 3 |
|||
</pre> |
</pre> |