Loops/While: Difference between revisions
Content added Content deleted
m (→{{header|Perl}}: migrate content from Loop Structures) |
|||
| Line 391: | Line 391: | ||
=={{header|Perl}}== |
=={{header|Perl}}== |
||
<lang perl>$n = 1024; |
<lang perl>my $n = 1024; |
||
while ($n > 0) { |
while ($n > 0) { |
||
print "$n\n"; |
print "$n\n"; |
||
$n >>= 1; # also acceptable: use integer; $n /= 2; |
$n >>= 1; # also acceptable: use integer; $n /= 2; |
||
}</lang> |
|||
The <tt>until</tt> loop is equivalent to <tt>while (<i>not</i> condition)</tt> |
|||
<lang perl>my $n = 1024; |
|||
until ($n <= 0) { |
|||
print "$n\n"; |
|||
$n /= 2; |
|||
}</lang> |
}</lang> |
||