From e5043e278b4081462aee2f9b636c436ceaa75817 Mon Sep 17 00:00:00 2001
From: Leo Manfredi <manfredi@cpan.org>
Date: Sat, 26 Sep 2020 12:07:42 +0200
Subject: Perl solution for task #1

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

diff --git a/challenge-079/manfredi/perl/ch-1.pl b/challenge-079/manfredi/perl/ch-1.pl
new file mode 100755
index 0000000000..3b1c77a9a1
--- /dev/null
+++ b/challenge-079/manfredi/perl/ch-1.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+my $N = $ARGV[0] || 5;
+my $one = 0;
+
+print "Input: \$N = $N\n";
+
+for my $n (1..$N) {
+	$_ = sprintf("%b", $n);
+	my $bit = tr/1//d;
+	printf "\tDecimal: %d\n\tBinary: 0b%08b\n\tSet Bit Count: %d\n\n", $n, $n, $bit;
+	$one += $bit;
+}
+
+my $z = $one % 1000000007;
+print "Total set bit count: ($one % 1000000007) = $z\n";
-- 
cgit