Loops/For with a specified step: Difference between revisions

Content added Content deleted
(Added Perl 6.)
m (Fixed lang tags.)
Line 75: Line 75:
=={{header|C}}==
=={{header|C}}==
This prints all odd digits:
This prints all odd digits:
<lang c>
<lang c>int i;
int i;
for(i = 1; i < 10; i += 2)
for(i = 1; i < 10; i += 2)
printf("%d\n", i);
printf("%d\n", i);</lang>
⚫
</lang>


=={{header|C++}}==
=={{header|C++}}==
This prints all odd digits:
This prints all odd digits:
<lang cpp>
<lang cpp>for (int i = 1; i < 10; i += 2)
⚫
std::cout << i << std::endl;</lang>
for (int i = 1; i < 10; i += 2)
⚫
std::cout << i << std::endl;
</lang>


=={{header|Common Lisp}}==
=={{header|Common Lisp}}==
Line 95: Line 91:
=={{header|D}}==
=={{header|D}}==
Print odd numbers up to 9.
Print odd numbers up to 9.
<lang d>
<lang d>for (int i = 1; i < 10; i += 2)
⚫
std.stdio.writefln("%d\n",i);</lang>
for (int i = 1; i < 10; i += 2)
⚫
std.stdio.writefln("%d\n",i);
</lang>


=={{header|E}}==
=={{header|E}}==
Line 139: Line 133:


=={{header|FALSE}}==
=={{header|FALSE}}==
⚫
<lang false>2[$9\>][$.", "2+]#"who do we appreciate!"</lang>
<lang false>
⚫
2[$9\>][$.", "2+]#"who do we appreciate!"
</lang>


=={{header|Forth}}==
=={{header|Forth}}==
<lang forth>
<lang forth>: test
: test
9 2 do
9 2 do
i .
i .
2 +loop
2 +loop
." who do we appreciate?" cr ;
." who do we appreciate?" cr ;</lang>
</lang>


=={{header|Fortran}}==
=={{header|Fortran}}==
{{works with|Fortran|90 and later}}
{{works with|Fortran|90 and later}}
<lang fortran> do i = 1,10,2
<lang fortran>do i = 1,10,2
print *, i
print *, i
end do</lang>
end do</lang>


=={{header|Haskell}}==
=={{header|Haskell}}==
Line 163: Line 153:
putStrLn "who do we appreciate?"</lang>
putStrLn "who do we appreciate?"</lang>
=={{header|J}}==
=={{header|J}}==
<lang J> ' who do we appreciate?' ,~ ": 2 * >: i.4
<lang J> ' who do we appreciate?' ,~ ": 2 * >: i.4
2 4 6 8 who do we appreciate?
2 4 6 8 who do we appreciate?</lang>
</lang>


=={{header|Java}}==
=={{header|Java}}==
Line 181: Line 170:


=={{header|Lisaac}}==
=={{header|Lisaac}}==
<lang Lisaac>
<lang Lisaac>1.to 9 by 2 do { i : INTEGER;
1.to 9 by 2 do { i : INTEGER;
i.print;
i.print;
'\n'.print;
'\n'.print;
};
};</lang>
</lang>


=={{header|Logo}}==
=={{header|Logo}}==
⚫
<lang logo>for [i 2 8 2] [type :i type "|, |] print [who do we appreciate?]</lang>
<lang logo>
⚫
for [i 2 8 2] [type :i type "|, |] print [who do we appreciate?]
</lang>


=={{header|Modula-3}}==
=={{header|Modula-3}}==
Line 224: Line 209:


=={{header|M4}}==
=={{header|M4}}==
<lang M4>
<lang M4>define(`for',
define(`for',
`ifelse($#,0,``$0'',
`ifelse($#,0,``$0'',
`ifelse(eval($2<=$3),1,
`ifelse(eval($2<=$3),1,
Line 231: Line 215:


for(`x',`1',`5',`3',`x
for(`x',`1',`5',`3',`x
')
')</lang>
</lang>


Output:
Output:
Line 316: Line 299:
Prints numbers from 0 to 100 stepping by 5.
Prints numbers from 0 to 100 stepping by 5.


<pre style="font-family:'TI Uni'">Local i
<lang ti89b>Local i
For i, 0, 100, 5
For i, 0, 100, 5
Disp i
Disp i
EndFor</pre>
EndFor</lang>


=={{header|UNIX Shell}}==
=={{header|UNIX Shell}}==
Line 330: Line 313:
=={{header|Vedit macro language}}==
=={{header|Vedit macro language}}==
This prints all odd digits in range 1 to 9:
This prints all odd digits in range 1 to 9:
<lang vedit>
<lang vedit>for (#1 = 1; #1 < 10; #1 += 2) {
for (#1 = 1; #1 < 10; #1 += 2) {
Num_Type(#1)
Num_Type(#1)
⚫
}</lang>
}
</lang>
=={{header|Vorpal}}==
=={{header|Vorpal}}==
<lang vorpal>for(i = 2, i <= 8, i = i + 2){
<lang vorpal>for(i = 2, i <= 8, i = i + 2){
Retrieved from "https://rosettacode.org/wiki/Loops/For_with_a_specified_step"