new

3 files changed, 48 insertions, 0 deletions

diff --git a/challenge-030/izifresh/Perl 5/christmas b/challenge-030/izifresh/Perl 5/christmas
new file mode 100644
index 0000000000..4e6650f021
--- /dev/null
+++ b/challenge-030/izifresh/Perl 5/christmas
@@ -0,0 +1,27 @@
+#!/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");
+    $year++;
+     if ($i == 4) {
+      $i = 1;
+      $x += 2;
+}
+     else { 
+      $x += 1;
+      $i++;
+}
+  if ($x == 7) { $x = 0; }
+  if ($x == 8) { $x = 1; }
+}
+ print ("25 December of 2100 - $day[$x] \n"); 
+END
\ No newline at end of file
diff --git a/challenge-030/izifresh/Perl 5/numbers b/challenge-030/izifresh/Perl 5/numbers
new file mode 100644
index 0000000000..9c737c11b7
--- /dev/null
+++ b/challenge-030/izifresh/Perl 5/numbers
@@ -0,0 +1,20 @@
+#!/usr/bin/env perl
+package Numbers; 
+
+use strict; 
+use warnings;
+use v5.10;
+ for my $i (0..10) {
+   for my $j (0..10) {
+     for my $k (0..10) { 
+       if (($i+$j+$k) == 12) {
+         if ( $i % 2 == 0 or $j % 2 == 0 or $k % 2 == 0 ) {
+           my @m = ($i,$j,$k);
+           @m = sort { $a <=> $b } @m;    
+           print ("@m\n");
+}
+}
+}
+}
+}
+END 
\ No newline at end of file
diff --git a/challenge-030/izifresh/README b/challenge-030/izifresh/README
new file mode 100644
index 0000000000..aedce7c408
--- /dev/null
+++ b/challenge-030/izifresh/README
@@ -0,0 +1 @@
+Solution by izifresh
\ No newline at end of file