Loops/While: Difference between revisions
Added Perl 6 and slightly edited Perl 5.
(PowerShell) |
Underscore (talk | contribs) (Added Perl 6 and slightly edited Perl 5.) |
||
Line 418:
=={{header|Perl}}==
<lang perl>my $n = 1024;
while ($n
print "$n\n";
$n
}</lang>
<lang perl>my $n = 1024;
until ($n <= 0) {
print "$n\n";
$n
}</lang>
=={{header|Perl 6}}==
{{works with|Rakudo|#21 "Seattle"}}
<lang perl6>my Int $n = 2 * 1024;
while $n = $n div 2 {
say $n;
}
</lang>
<code>until ''condition''</code> is equivalent to <code>while not ''condition''</code>.
<lang perl6>my Int $n = 2 * 1024;
until ($n = $n div 2) <= 0 {
say $n;
}</lang>
| |||