RosettaCodeData/Task/Loops-While/Perl/loops-while-2.pl
2018-06-22 20:57:24 +00:00

3 lines
57 B
Perl

for(my $n = 1024; $n > 0; $n >>= 1){
print "$n\n";
}