Help for this page

Select Code to Download


  1. or download this
    my %lookup = map { $_ => 1 << (ord($_) - ord('A')) } 'A'..'Z';

...

print('A'..'Z', "\n");
print(scalar(reverse(sprintf("%26b", $bitmap))), "\n");
  2. or download this
    ABCDEFGHIJKLMNOPQRSTUVWXYZ
111000011
  3. or download this
    my @powers = map { 1 << $_ } 0..25;

...

print('A'..'Z', "\n");
print(scalar(reverse(sprintf("%26b", $bitmap))), "\n");