Loops/While: Difference between revisions
→{{header|Perl}}: + for-loop
(add verbexx example) |
(→{{header|Perl}}: + for-loop) |
||
Line 1,505:
print "$n\n";
$n = int $n / 2;
}</lang>
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>
| |||