ビット構成を表示する

明解Ｃ言語 入門編 > 7. 基本型 >

ビット構成を表示する

Perl

sub count_bits
{
    my ($x) = @_;
    $count = 0;
    while ($x)
    {
        $count++ if ($x & 1) ;
        $x >>= 1;
    }
    return $count;
}

sub int_bits
{
    return &count_bits(~0);
}

sub print_bits
{
    my ($x) = @_;
    for ($i = &int_bits - 1; $i >= 0; $i--)
    {
        print ((($x >> $i) & 1) ? '1' : '0');
    }

    print "\n";
}
$x = 10000;
&print_bits($x);

実行結果

L:\>perl lesson_07_055.pl

00000000000000000010011100010000