Loops/Continue: Difference between revisions

From Rosetta Code
Content added Content deleted
(+D)
m (Added ColdFusion implementation.)
Line 43: Line 43:
cout << ", ";
cout << ", ";
}</cpp>
}</cpp>

=={{header|ColdFusion}}==
Remove the leading space from the line break.
<cfscript>
for( i = 1; i <= 10; i++ )
{
writeOutput( i );
if( 0 == i % 5 )
{
writeOutput( "< br />" );
continue;
}
writeOutput( "," );
}
</cfscript>

=={{header|D}}==
=={{header|D}}==
<d>for(int i = 1;i <= 10; i++){
<d>for(int i = 1;i <= 10; i++){

Revision as of 21:23, 29 July 2008

Task
Loops/Continue
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

Translation of: C++

<c>for(int i = 1;i <= 10; i++){

  printf("%d", i);
  if(i % 5 == 0){
     printf("\n");
     continue;
  }
  printf(", ");

}</c>

C++

Translation of: Java

<cpp>for(int i = 1;i <= 10; i++){

  cout << i;
  if(i % 5 == 0){
     cout << endl;
     continue;
  }
  cout << ", ";

}</cpp>

ColdFusion

Remove the leading space from the line break.

<cfscript>
  for( i = 1; i <= 10; i++ )
  {
    writeOutput( i );
    if( 0 == i % 5 )
    {
      writeOutput( "< br />" );
      continue;
    }
    writeOutput( "," );
  }
</cfscript>

D

<d>for(int i = 1;i <= 10; i++){

 writef(i);
 if(i % 5 == 0){
   writefln();
   continue;
 }
 writef(", ");

}</d>

Fortran

Works with: Fortran version 90 and later
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 ' ' ,