不好意思， 我是数的。 过程如下。

$count = 0;
$countEqu = 0;
$countLess = 0;
foreach (1..2006) {
$b= dec2bin($_);
@a = split("", $b);
$count1 = 0;
$count0 = 0;
for ($i = 0; $i <= $#a; $i++) {
$count1 += $a[$i], if $a[$i];
$count0++, unless $a[$i];
}
$count +=1, if ($count1 > $count0);
$countEqu +=1, if ($count1 eq $count0);
$countLess +=1, if ($count1 < $count0);
}
print "$count\n";
print "$countEqu\n";
print "$countLess\n";
sub dec2bin($) { return sprintf("%b", $_[0]) }