Shift list elements to left by 3: Difference between revisions
Added XPL0 example.
(Shift list elements to left by 3 in various BASIC dialents) |
(Added XPL0 example.) |
||
Line 1,428:
Original list : [1, 2, 3, 4, 5, 6, 7, 8, 9]
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>
| |||