ビットカウント

【C言語】
int bit_count( __WORD x)
{
int i;

for ( i = 0; x != 0; x &= x-1 ) {
++i;
}

return i;
}


【perl】
#!/usr/bin/perl

use strict;
use warnings;

chomp(my $line = <STDIN>);

my $count;
for($count=0; $line!=0; $line &= $line-1) {
++$count;
}

print $count, "\n";

同じ。