examples/powers

   1 #!/usr/bin/perl
   2
   3 use Term::ProgressBar 2.00;
   4
   5 use constant MAX => 100_000;
   6
   7 my $max = int($ARGV[0]+0) || MAX;
   8 my $progress = Term::ProgressBar->new($max);
   9
  10 for (0..$max) {
  11   my $is_power = 0;
  12   for(my $i = 0; 2**$i <= $_; $i++) {
  13     $is_power = 1
  14       if 2**$i == $_;
  15   }
  16
  17   if ( $is_power ) {
  18     $progress->update($_);
  19   }
  20 }