- Tidied up solutions by Izifresh.

4 files changed, 25 insertions, 72 deletions

diff --git a/challenge-030/izifresh/perl5/ch-1.pl b/challenge-030/izifresh/perl5/ch-1.pl
index 4e6650f021..17fc00863b 100644
--- a/challenge-030/izifresh/perl5/ch-1.pl
+++ b/challenge-030/izifresh/perl5/ch-1.pl
@@ -1,27 +1,32 @@
 #!/usr/bin/env perl
-package Christmas; 
-
 use strict; 
 use warnings;
 use v5.10;
-
- my $year = 2019;
- my $i = 3;
- my $x = 2;
- my @day = qw(Monday Tuesday Wednesday Thursday Friday Saturday Sunday);
-  for ($year .. 2099 ) {
-    print ( "25 December of $year - $day[$x] \n");
+use constant {
+ACTUALYEAR => 2019,
+ACTUALDAY => 3,
+ACTUALORDER => 3,
+};
+my $year = ACTUALYEAR;
+my $order = ACTUALORDER;
+my $day = ACTUALDAY;
+  for ( $year .. 2099 ) {
+    if ( $day == 7 ) {
+      if ( $order != 4) {
+      print "25 December of $year - Sunday \n";
+}
+}
     $year++;
-     if ($i == 4) {
-      $i = 1;
-      $x += 2;
+    if ( $order == 4 ) {
+      $order = 1;
+      $day += 2;
 }
-     else { 
-      $x += 1;
-      $i++;
+    else { 
+      $day += 1;
+      $order++;
 }
-  if ($x == 7) { $x = 0; }
-  if ($x == 8) { $x = 1; }
+    $day = 1 if $day == 8;
+    $day = 2 if $day == 9;
 }
- print ("25 December of 2100 - $day[$x] \n"); 
+print "25 December of 2100 - Sunday \n"; 
 END
\ No newline at end of file
diff --git a/challenge-030/izifresh/perl5/ch-2.pl b/challenge-030/izifresh/perl5/ch-2.pl
index aac6b66a6c..444afec249 100644
--- a/challenge-030/izifresh/perl5/ch-2.pl
+++ b/challenge-030/izifresh/perl5/ch-2.pl
@@ -1,6 +1,4 @@
 #!/usr/bin/env perl
-package Numbers; 
-
 use strict; 
 use warnings;
 use v5.10;
@@ -8,10 +6,10 @@ use v5.10;
    for my $j (1..10) {
      for my $k (1..10) { 
        if (($i+$j+$k) == 12) {
-         if ( $i % 2 == 0 or $j % 2 == 0 or $k % 2 == 0 ) {
+         if ( grep { $_ % 2 == 0 } $i, $j, $k ) {
            my @m = ($i,$j,$k);
            @m = sort { $a <=> $b } @m;    
-           print ("@m\n");
+           print "@m\n";
 }
 }
 }
diff --git a/challenge-030/izifresh/perl5/christmas.pl b/challenge-030/izifresh/perl5/christmas.pl
deleted file mode 100644
index 17fc00863b..0000000000
--- a/challenge-030/izifresh/perl5/christmas.pl
+++ /dev/null
@@ -1,32 +0,0 @@
-#!/usr/bin/env perl
-use strict; 
-use warnings;
-use v5.10;
-use constant {
-ACTUALYEAR => 2019,
-ACTUALDAY => 3,
-ACTUALORDER => 3,
-};
-my $year = ACTUALYEAR;
-my $order = ACTUALORDER;
-my $day = ACTUALDAY;
-  for ( $year .. 2099 ) {
-    if ( $day == 7 ) {
-      if ( $order != 4) {
-      print "25 December of $year - Sunday \n";
-}
-}
-    $year++;
-    if ( $order == 4 ) {
-      $order = 1;
-      $day += 2;
-}
-    else { 
-      $day += 1;
-      $order++;
-}
-    $day = 1 if $day == 8;
-    $day = 2 if $day == 9;
-}
-print "25 December of 2100 - Sunday \n"; 
-END
\ No newline at end of file
diff --git a/challenge-030/izifresh/perl5/numbers.pl b/challenge-030/izifresh/perl5/numbers.pl
deleted file mode 100644
index 444afec249..0000000000
--- a/challenge-030/izifresh/perl5/numbers.pl
+++ /dev/null
@@ -1,18 +0,0 @@
-#!/usr/bin/env perl
-use strict; 
-use warnings;
-use v5.10;
- for my $i (1..10) {
-   for my $j (1..10) {
-     for my $k (1..10) { 
-       if (($i+$j+$k) == 12) {
-         if ( grep { $_ % 2 == 0 } $i, $j, $k ) {
-           my @m = ($i,$j,$k);
-           @m = sort { $a <=> $b } @m;    
-           print "@m\n";
-}
-}
-}
-}
-}
-END 
\ No newline at end of file