diff options
| author | rakulius <sidereus75@gmail.com> | 2020-09-25 22:41:55 +0200 |
|---|---|---|
| committer | rakulius <sidereus75@gmail.com> | 2020-09-25 22:41:55 +0200 |
| commit | 4d46e5ff5d3f57844e735d2faa5191ff9a0310a0 (patch) | |
| tree | 746a39ef1084feadc012defcbd024f60d7f42091 | |
| parent | 9705f076c0958bf9479957cc9c8f2a4fbe0f7cf1 (diff) | |
| download | perlweeklychallenge-club-4d46e5ff5d3f57844e735d2faa5191ff9a0310a0.tar.gz perlweeklychallenge-club-4d46e5ff5d3f57844e735d2faa5191ff9a0310a0.tar.bz2 perlweeklychallenge-club-4d46e5ff5d3f57844e735d2faa5191ff9a0310a0.zip | |
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; |