Select Code to Download

perl -e "print eval join '+',grep{((scalar @{[((sprintf '%b',$_)=~/1/g
+)]}))%2==0} 0..$ARGV[0];" 10

33

perl -e "print eval join '+',grep{(0.5*(4*$_+1-(-1)**scalar @{[((sprin
+tf '%b',$_)=~/1/g)]}))%2==0} 0..$ARGV[0];" 10

33

use strict;
use warnings;
...

}