Merge pull request #2442 from vinodk89/master

Solutions for challenge 02

4 files changed, 52 insertions, 0 deletions

diff --git a/challenge-002/vinod-k/README b/challenge-002/vinod-k/README
new file mode 100644
index 0000000000..d86054e10a
--- /dev/null
+++ b/challenge-002/vinod-k/README
@@ -0,0 +1 @@
+Solutions by Vinod Kumar K.
diff --git a/challenge-002/vinod-k/perl/ch-1.pl b/challenge-002/vinod-k/perl/ch-1.pl
new file mode 100644
index 0000000000..e34d7cff21
--- /dev/null
+++ b/challenge-002/vinod-k/perl/ch-1.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+while(<DATA>){
+    chomp;
+    print "$_ -> ";
+    s/^0+//;
+    print "$_\n";
+}
+
+__DATA__
+110
+001
+202
+050
diff --git a/challenge-002/vinod-k/perl/ch-2.pl b/challenge-002/vinod-k/perl/ch-2.pl
new file mode 100644
index 0000000000..856b82f44a
--- /dev/null
+++ b/challenge-002/vinod-k/perl/ch-2.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Math::Base36 ':all'; 
+
+my $number = $ARGV[0] || 10;
+
+my $b36 = encode_base36($number);
+
+print "Decimal:$number -> Base36:$b36\n";
diff --git a/challenge-080/vinod-k/perl/ch-2.pl b/challenge-080/vinod-k/perl/ch-2.pl
new file mode 100644
index 0000000000..379ce31793
--- /dev/null
+++ b/challenge-080/vinod-k/perl/ch-2.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+my @array = (1, 4, 3, 2);
+
+my $candies = scalar @array; 
+my $size    = $#array;
+
+foreach my $element (1..$size){
+    if($array[$element] > $array[$element - 1]){
+        $candies = $candies + 1;
+    }
+}
+
+foreach my $element (0..$size-1){
+    if($array[$element] > $array[$element + 1]){
+        $candies = $candies + 1;
+    }
+}
+print "Total candies: $candies\n";