Shift list elements to left by 3: Difference between revisions
Added Euler
Puppydrum64 (talk | contribs) m (→Zilog Z80) |
(Added Euler) |
||
Line 930:
<pre>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|Euler}}==
<syntaxhighlight lang="euler">
begin
new shl; new shl3;
shl <- ` formal ls;
if length ls < 2 then ls
else begin
new L;
L <- ls;
tail L & ( L[ 1 ] )
end
';
shl3 <- ` formal ls; shl( shl( shl( ls ) ) ) ';
out shl3( ( 1, 2, 3, 4, 5, 6, 7, 8 ) )
end
$
</syntaxhighlight>
=={{header|Excel}}==
| |||