Select Code to Download

use constant MEGABYTE => 2 ** 20;
my $vector = '';
# 5,000 bits. Set every 100th bit between 15 million and 20 million. 
...
    }
}
printf "%0.1fM\n", length( $vector ) / MEGABYTE;

use constant KILOBYTE => 2 ** 10;
use Judy::1 qw( Set MemUsed );
my $vec;
...
    }
}
printf "%0.1fK\n", MemUsed( $judy ) / KILOBYTE;