Shift list elements to left by 3: Difference between revisions

Line 126:
BEGIN
print( ( "[" ) );
BOOLIF needLWB commav :<= FALSE;UPB v THEN
FOR i FROM print( ( whole( v[ LWB v TO], UPB0 v) ) DO);
print(FOR (i IFFROM needLWB commav THEN+ ","1 ELSETO "" FI, whole(UPB v[ i ], 0 ) ) );DO
need comma := TRUE print( ( "," , whole( v[ i ], 0 ) ) )
OD;
FI;
print( ( "]" ) )
END # PRINT # ;
Line 144 ⟶ 145:
[1,2,3,4,5,6,7,8,9] -> [4,5,6,7,8,9,1,2,3]
</pre>
 
=={{header|AppleScript}}==
===Functional===
3,038

edits