From 4d46e5ff5d3f57844e735d2faa5191ff9a0310a0 Mon Sep 17 00:00:00 2001 From: rakulius Date: Fri, 25 Sep 2020 22:41:55 +0200 Subject: My solution for Challenge 079 - Task #1. --- challenge-079/rakulius/README | 1 + challenge-079/rakulius/raku/ch-1.p6 | 7 +++++++ 2 files changed, 8 insertions(+) create mode 100644 challenge-079/rakulius/README create mode 100644 challenge-079/rakulius/raku/ch-1.p6 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; -- cgit