Select Code to Download

sub most_significant_ix {
    my $n = shift;
    return if $_[0] == 0;
    return int(log($_[0])/log(2));
}

sub most_significant_ix {
    my $n = shift;
...
        return $bits if (2**$bits) & $n;
    }
}