Loops/Continue
< Loops
You are encouraged to solve this task according to the task description, using any language you may know.
Show the following output using one loop.
1, 2, 3, 4, 5 6, 7, 8, 9, 10
Ada
Ada has no continue reserved word, nor does it need one. The continue reserved word is only syntactic sugar for operations that can be achieved without it as in the following example.
<ada> with Ada.Text_Io; use Ada.Text_Io;
procedure Loop_Continue is begin
for I in 1..10 loop
Put(Integer'Image(I));
if I mod 5 = 0 then
New_Line;
else
Put(",");
end if;
end loop;
end Loop_Continue; </ada>
C
<c>for(int i = 1;i <= 10; i++){
printf("%d", i);
if(i % 5 == 0){
printf("\n");
continue;
}
printf(", ");
}</c>
C++
<cpp>for(int i = 1;i <= 10; i++){
cout << i;
if(i % 5 == 0){
cout << endl;
continue;
}
cout << ", ";
}</cpp>
D
<d>for(int i = 1;i <= 10; i++){
writef(i);
if(i % 5 == 0){
writefln();
continue;
}
writef(", ");
}</d>
Fortran
DO i = 1, 10
IF (i == 5) THEN
WRITE(*, "(I1)") i
ELSE IF (i == 10) THEN
WRITE(*, "(I2)") i
ELSE
WRITE(*, "(I1,A)", ADVANCE="NO") i, ", "
ENDIF
END DO
Java
<java>for(int i = 1;i <= 10; i++){
System.out.print(i);
if(i % 5 == 0){
System.out.println();
continue;
}
System.out.print(", ");
}</java>
MAXScript
for i in 1 to 10 do
(
format "%" i
if mod i 5 == 0 then
(
format "\n"
continue
) continue
format ", "
)
Perl
<perl>foreach (1..10) {
print $_;
if ($_ % 5 == 0) {
print "\n";
next;
}
print ', ';
}</perl>
Pop11
lvars i;
for i from 1 to 10 do
printf(i, '%p');
if i rem 5 = 0 then
printf('\n');
nextloop;
endif;
printf(', ')
endfor;
Python
<python>line = "" for i in xrange(1,11):
line += str(i)
if i % 5 == 0:
print line
line = ""
continue
line += ", "</python>
UnixPipes
yes \ | cat -n | head -n 10 | xargs -n 5 echo | tr ' ' ,