diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-09-26 00:43:11 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-09-26 00:43:11 +0100 |
| commit | 9a9980ef59316bef7fc99205e3c6c4fdc074fa5f (patch) | |
| tree | 2a2f029e2cece0478a04a8e18a56f667fc719045 | |
| parent | 06da11b1253cb302dc451ecf36b5d74201b74a67 (diff) | |
| parent | 4d46e5ff5d3f57844e735d2faa5191ff9a0310a0 (diff) | |
| download | perlweeklychallenge-club-9a9980ef59316bef7fc99205e3c6c4fdc074fa5f.tar.gz perlweeklychallenge-club-9a9980ef59316bef7fc99205e3c6c4fdc074fa5f.tar.bz2 perlweeklychallenge-club-9a9980ef59316bef7fc99205e3c6c4fdc074fa5f.zip | |
Merge pull request #2376 from rakulius/new-branch
My solution for Challenge 079 - Task #1.
| -rw-r--r-- | challenge-079/rakulius/README | 1 | ||||
| -rw-r--r-- | challenge-079/rakulius/raku/ch-1.p6 | 7 |
2 files changed, 8 insertions, 0 deletions
diff --git a/challenge-079/rakulius/README b/challenge-079/rakulius/README new file mode 100644 index 0000000000..18a79afa2c --- /dev/null +++ b/challenge-079/rakulius/README @@ -0,0 +1 @@ +Solution by rakulius. diff --git a/challenge-079/rakulius/raku/ch-1.p6 b/challenge-079/rakulius/raku/ch-1.p6 new file mode 100644 index 0000000000..22068595a9 --- /dev/null +++ b/challenge-079/rakulius/raku/ch-1.p6 @@ -0,0 +1,7 @@ +my $N = prompt 'Enter $N : '; + +my $total_count_set_bit=0; +for 1..$N {$total_count_set_bit += [+] $_.base(2).comb}; + +print "The total number of set bits is : "; +say $total_count_set_bit % 1000000007; |