Select Code to Download

#! perl -slw
use strict;
...
## now invert them and count again. (85)
#print bcount( ~$bits );
print Rmpz_popcount($ALLONES ^ $bits);