Loops/Continue: Difference between revisions
Rename Perl 6 -> Raku, alphabetize, minor clean-up
Langurmonkey (talk | contribs) |
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
||
Line 370:
}
printf(", ");
}</lang>▼
=={{header|C++}}==▼
{{trans|Java}}▼
<lang cpp>for(int i = 1;i <= 10; i++){▼
cout << i;▼
if(i % 5 == 0){▼
cout << endl;▼
continue;▼
}▼
cout << ", ";▼
}</lang>
Line 400 ⟶ 389:
}
}
▲}</lang>
▲=={{header|C++}}==
▲{{trans|Java}}
▲<lang cpp>for(int i = 1;i <= 10; i++){
▲ cout << i;
▲ if(i % 5 == 0){
▲ cout << endl;
▲ continue;
▲ }
▲ cout << ", ";
}</lang>
Line 1,573:
MYLABEL:
}</lang>
=={{header|Perl 6}}==▼
{{trans|Perl}}▼
{{works with|Rakudo Star|2010.08}}▼
<lang perl6>for 1 .. 10 {▼
.print;▼
if $_ %% 5 {▼
print "\n";▼
next;▼
}▼
print ', ';▼
}</lang>▼
or without using a loop:▼
<lang perl6>$_.join(", ").say for [1..5], [6..10];</lang>▼
=={{header|Phix}}==
Line 1,703 ⟶ 1,687:
(printf "~a, " i))
</lang>
(formerly Perl 6)
▲{{trans|Perl}}
▲{{works with|Rakudo Star|2010.08}}
▲<lang perl6>for 1 .. 10 {
▲ .print;
▲ if $_ %% 5 {
▲ print "\n";
▲ next;
▲ }
▲ print ', ';
▲}</lang>
▲or without using a loop:
▲<lang perl6>$_.join(", ").say for [1..5], [6..10];</lang>
=={{header|REBOL}}==
Line 2,057 ⟶ 2,058:
6, 7, 8, 9, 10
</pre>
=={{header|Tcl}}==▼
<lang tcl>for {set i 1} {$i <= 10} {incr i} {▼
puts -nonewline $i▼
if {$i % 5 == 0} {▼
puts ""▼
continue▼
}▼
puts -nonewline ", "▼
}</lang>▼
=={{header|Transact-SQL}}==
Line 2,076 ⟶ 2,087:
END;
</lang>
▲=={{header|Tcl}}==
▲<lang tcl>for {set i 1} {$i <= 10} {incr i} {
▲ puts -nonewline $i
▲ if {$i % 5 == 0} {
▲ puts ""
▲ continue
▲ }
▲ puts -nonewline ", "
▲}</lang>
=={{header|TUSCRIPT}}==
Line 2,104 ⟶ 2,105:
6, 7, 8, 9, 10
</pre>
=={{header|UnixPipes}}==▼
<lang bash>yes \ | cat -n | head -n 10 | xargs -n 5 echo | tr ' ' ,</lang>▼
=={{header|UNIX Shell}}==
Line 2,129 ⟶ 2,127:
echo -n ", "
done</lang>
▲=={{header|UnixPipes}}==
▲<lang bash>yes \ | cat -n | head -n 10 | xargs -n 5 echo | tr ' ' ,</lang>
=={{header|Ursa}}==
| |||