Merge pull request #1216 from Cris-HD/branch-for-challenge-046

Added two solutions

2 files changed, 92 insertions, 0 deletions

diff --git a/challenge-046/cristian-heredia/perl/ch-1.pl b/challenge-046/cristian-heredia/perl/ch-1.pl
new file mode 100644
index 0000000000..38762ea171
--- /dev/null
+++ b/challenge-046/cristian-heredia/perl/ch-1.pl
@@ -0,0 +1,47 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+#First, we write the message into arrays:
+my @array1 = ('P',  '+',  '2',  'l',  '!',  'a',  't',  'o' );
+my @array2 = ('1',  'e',  '8',  '0',  'R',  '$',  '4',  'u' );
+my @array3 = ('5',  '-',  'r',  ']',  '+',  'a',  '>',  '/' );
+my @array4 = ('P',  'x',  'w',  'l',  'b',  '3',  'k',  '\\' );
+my @array5 = ('2',  'e',  '3',  '5',  'R',  '8',  'y',  'u' );
+my @array6 = ('<',  '!',  'r',  '^',  '(',  ')',  'k',  '0' );
+
+my @arrayCharacter;
+
+print "The message is: ";
+foreach (my $i = 0; $i < @array1; $i++) {
+
+	@arrayCharacter = ();
+	push(@arrayCharacter, @array1[$i]);
+	push(@arrayCharacter, @array2[$i]);
+	push(@arrayCharacter, @array3[$i]);
+	push(@arrayCharacter, @array4[$i]);
+	push(@arrayCharacter, @array5[$i]);
+	push(@arrayCharacter, @array6[$i]);
+	
+	my %count;
+	$count{$_}++ foreach @arrayCharacter;
+
+	#removing the lonely strings
+	while (my ($key, $value) = each(%count)) {
+		if ($value == 1) {
+			delete($count{$key});
+		}
+	}
+
+	#output the counts
+	while (my ($key, $value) = each(%count)) {
+		print "$key";
+	}
+}
+
+
+
+
+
+
diff --git a/challenge-046/cristian-heredia/perl/ch-2.pl b/challenge-046/cristian-heredia/perl/ch-2.pl
new file mode 100644
index 0000000000..3ddb12a79d
--- /dev/null
+++ b/challenge-046/cristian-heredia/perl/ch-2.pl
@@ -0,0 +1,45 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+my @rooms;
+my $number;
+my $size = 500;
+#0 is closed
+#1 is opened
+foreach (my $i = 0; $i < $size; $i++) {
+	@rooms[$i] = 0;
+}
+
+foreach (my $j = 0; $j < $size; $j++) {
+	
+	foreach (my $k = $j; $k < $size; $k = $j + $k +1) {
+		#If closed
+		if (@rooms[$k] == 0) {
+			@rooms[$k] = 1;
+		}
+		else {
+			@rooms[$k] = 0;
+		}		
+	}	
+}
+
+print "The followings rooms are still open:\n";
+
+foreach (my $x = 0; $x < $size; $x++) {
+	$number = $x +1;
+	if (@rooms[$x] == 1) {
+		print "The room $number\n";
+	}	
+}
+
+
+
+
+
+
+
+
+
+