From 646831c810b88ebca1ae9100232da81ad1e3fe2c Mon Sep 17 00:00:00 2001 From: "Markus \"Holli\" Holzer" Date: Mon, 21 Sep 2020 11:30:33 +0200 Subject: initial --- challenge-079/markus-holzer/raku/ch-1.raku | 8 ++++++++ 1 file changed, 8 insertions(+) create mode 100644 challenge-079/markus-holzer/raku/ch-1.raku diff --git a/challenge-079/markus-holzer/raku/ch-1.raku b/challenge-079/markus-holzer/raku/ch-1.raku new file mode 100644 index 0000000000..8bf2ac453b --- /dev/null +++ b/challenge-079/markus-holzer/raku/ch-1.raku @@ -0,0 +1,8 @@ +use experimental :cached; + +unit sub MAIN( Int $N ); + +sub bits( $n ) is cached { + $n !%% 2 + bits( $n div 2 ) if $n > 0 || 0 } + +say ($N...1).map( &bits ).sum % 1000000007; \ No newline at end of file -- cgit