Loops/While: Difference between revisions
→{{header|Perl}}: devision by 2 on positive values will not lead to negative values
(→{{header|C++}}: bit shift operator) |
(→{{header|Perl}}: devision by 2 on positive values will not lead to negative values) |
||
Line 1,514:
=={{header|Perl}}==
<lang perl>my $n = 1024;
while
print "$n\n";
$n = int $n / 2;
Line 1,521:
or written as a for-loop and using the bit-shift operator
<lang perl>for(my $n = 1024; $n > 0; $n >>= 1){
print "$n\n";
}</lang>
Line 1,528:
<lang perl>my $n = 1024;
until
print "$n\n";
$n = int $n / 2;
| |||