# Challenge 079

## Table of Contents

## Task 1 - Count Set Bits

You are given a positive number $N.

Write a script to count the total numbrer of set bits of the binary
representations of all numbers from 1 to $N and return
`$total_count_set_bit % 1000000007`

.

### Perl

- Program: perl/ch-1.pl

We loop from `1 ... $input`

, convert each `$num`

to binary & count the set
bits & add them to `$set_bits`

.

my $input = shift @ARGV; my $set_bits; foreach my $num (1 ... $input) { my $binary = sprintf "%b", $num; my $count = $binary =~ tr/1//; $set_bits += $count; } print $set_bits % 1000000007, "\n";