diff options
| -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; |