From 6dd73d07d202dc77a1a060c6c824750b566c7d70 Mon Sep 17 00:00:00 2001
From: Anton Fedotov <tosha.fedotov.2000@gmail.com>
Date: Sun, 27 Sep 2020 21:14:51 +0500
Subject: ch#079-1

---
 challenge-079/anton-fedotov/perl/ch-1.pl | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100755 challenge-079/anton-fedotov/perl/ch-1.pl

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;
-- 
cgit