Loops/Continue: Difference between revisions
Content added Content deleted
(Added Elixir) |
PatGarrett (talk | contribs) (→{{header|360 Assembly}}: Section added) |
||
Line 9: | Line 9: | ||
Try to achieve the result by forcing the next iteration within the loop |
Try to achieve the result by forcing the next iteration within the loop |
||
upon a specific condition, if your language allows it. |
upon a specific condition, if your language allows it. |
||
=={{header|360 Assembly}}== |
|||
<lang 360asm> |
|||
* Loops/Continue 12/08/2015 |
|||
LOOPCONT CSECT |
|||
USING LOOPCONT,R12 |
|||
LR R12,R15 |
|||
BEGIN LA R8,0 |
|||
SR R5,R3 |
|||
LA R6,1 |
|||
LA R7,10 |
|||
LOOPI BXH R5,R6,ELOOPI for i=1 to 10 |
|||
LA R3,MVC(R8) |
|||
XDECO R5,XDEC |
|||
MVC 0(4,R3),XDEC+8 |
|||
LA R8,4(R8) |
|||
LR R10,R5 |
|||
LA R1,5 |
|||
SRDA R10,32 |
|||
DR R10,R1 |
|||
LTR R10,R10 |
|||
BNZ COMMA |
|||
XPRNT MVC,80 |
|||
LA R8,0 |
|||
B NEXTI |
|||
COMMA LA R3,MVC(R8) |
|||
MVC 0(2,R3),=C', ' |
|||
LA R8,2(R8) |
|||
NEXTI B LOOPI next i |
|||
ELOOPI XR R15,R15 |
|||
BR R14 |
|||
MVC DC CL80' ' |
|||
XDEC DS CL16 |
|||
YREGS |
|||
END LOOPCONT |
|||
</lang> |
|||
{{out}} |
|||
<pre> |
|||
1, 2, 3, 4, 5 |
|||
6, 7, 8, 9, 10 |
|||
</pre> |
|||
=={{header|Ada}}== |
=={{header|Ada}}== |