From 1d14ced6b6ce2dd1bfc09326f43411c8d779b255 Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Mon, 21 Sep 2020 22:05:00 +0100
Subject: - Added solution by Vinod Kumar K.

---
 challenge-079/vinod-k/ch-1.pl      | 31 -------------------------------
 challenge-079/vinod-k/perl/ch-1.pl | 31 +++++++++++++++++++++++++++++++
 2 files changed, 31 insertions(+), 31 deletions(-)
 delete mode 100644 challenge-079/vinod-k/ch-1.pl
 create mode 100644 challenge-079/vinod-k/perl/ch-1.pl

(limited to 'challenge-079')

diff --git a/challenge-079/vinod-k/ch-1.pl b/challenge-079/vinod-k/ch-1.pl
deleted file mode 100644
index 5e844a17dc..0000000000
--- a/challenge-079/vinod-k/ch-1.pl
+++ /dev/null
@@ -1,31 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-my $N = $ARGV[0] || 4;
-my $bit_count;
-
-foreach my $i( 1..$N ){
-
-    $bit_count += getSetBit($i);
-}
-
-print "For $N Set Bits are: $bit_count\n";
-print "`$bit_count` as `$bit_count % 1000000007` = ".$bit_count % 1000000007;
-print "\n";
-
-sub getSetBit {
-    my $n = shift;
-
-    my $bin = sprintf ("%b", $n);
-
-    my @bits = split(//, $bin);
-
-    my $count = 0;
-    foreach my $each_n( @bits ){
-        $count++ if( $each_n == 1);
-    }
-    return $count;
-}
-
diff --git a/challenge-079/vinod-k/perl/ch-1.pl b/challenge-079/vinod-k/perl/ch-1.pl
new file mode 100644
index 0000000000..5e844a17dc
--- /dev/null
+++ b/challenge-079/vinod-k/perl/ch-1.pl
@@ -0,0 +1,31 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+my $N = $ARGV[0] || 4;
+my $bit_count;
+
+foreach my $i( 1..$N ){
+
+    $bit_count += getSetBit($i);
+}
+
+print "For $N Set Bits are: $bit_count\n";
+print "`$bit_count` as `$bit_count % 1000000007` = ".$bit_count % 1000000007;
+print "\n";
+
+sub getSetBit {
+    my $n = shift;
+
+    my $bin = sprintf ("%b", $n);
+
+    my @bits = split(//, $bin);
+
+    my $count = 0;
+    foreach my $each_n( @bits ){
+        $count++ if( $each_n == 1);
+    }
+    return $count;
+}
+
-- 
cgit