Wieviel Bit braucht eine integer Zahl

[Struppi]

Moin.

» ~~~perl

sub bitcount{

» [...]
» }

>   
> Das geht einfacher (ungetestet):  
  
Oder:  
~~~perl
sub bitcount {  
        my $n = shift || return 0;  
        my $msb = 1;  
        ++$msb while($n >>= 1);  
        return $msb;  
}

Struppi.