diff options
| author | Anton Fedotov <tosha.fedotov.2000@gmail.com> | 2020-09-27 21:14:51 +0500 |
|---|---|---|
| committer | Anton Fedotov <tosha.fedotov.2000@gmail.com> | 2020-09-27 21:14:51 +0500 |
| commit | 6dd73d07d202dc77a1a060c6c824750b566c7d70 (patch) | |
| tree | 05111c8b14b3ca21379ffcca2ac4f8ec434f03a7 | |
| parent | ea02e89c6b72f106f5476901e05baa5a3984f33f (diff) | |
| download | perlweeklychallenge-club-6dd73d07d202dc77a1a060c6c824750b566c7d70.tar.gz perlweeklychallenge-club-6dd73d07d202dc77a1a060c6c824750b566c7d70.tar.bz2 perlweeklychallenge-club-6dd73d07d202dc77a1a060c6c824750b566c7d70.zip | |
ch#079-1
| -rwxr-xr-x | challenge-079/anton-fedotov/perl/ch-1.pl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/challenge-079/anton-fedotov/perl/ch-1.pl b/challenge-079/anton-fedotov/perl/ch-1.pl new file mode 100755 index 0000000000..72942791f3 --- /dev/null +++ b/challenge-079/anton-fedotov/perl/ch-1.pl @@ -0,0 +1,12 @@ +#!/usr/bin/env perl + +use strict; +use warnings; +use v5.30; + +my $N = shift // 4; + +my $sum = 0; +$sum += length(sprintf('%b', $_) =~ y/0//dr) for (0..$N); + +say "$sum % 1000000007 = ", $sum % 1000000007; |