Challenge 037 LK

2 files changed, 95 insertions, 0 deletions

diff --git a/challenge-037/lubos-kolouch/perl5/ch-1.pl b/challenge-037/lubos-kolouch/perl5/ch-1.pl
new file mode 100644
index 0000000000..c7749480a1
--- /dev/null
+++ b/challenge-037/lubos-kolouch/perl5/ch-1.pl
@@ -0,0 +1,44 @@
+## Please see file perltidy.ERR
+#!/usr/bin/perl 
+#===============================================================================
+#
+#         FILE: ch-1.pl
+#
+#        USAGE: ./ch-1.pl
+#
+#  DESCRIPTION: https://perlweeklychallenge.org/blog/perl-weekly-challenge-037/
+#
+#
+#      OPTIONS: ---
+# REQUIREMENTS: ---
+#         BUGS: ---
+#        NOTES: ---
+#       AUTHOR: Lubos Kolouch
+# ORGANIZATION:
+#      VERSION: 1.0
+#      CREATED: 20.10.2019
+#     REVISION: ---
+#===============================================================================
+
+use strict;
+use warnings;
+use feature qw/say/;
+use DateTime;
+use Data::Dumper;
+
+my $dt = DateTime->new(
+    year  => 2019,
+    month => 1,
+    day   => 1
+);
+
+
+my %month;
+
+while ($dt->year == 2019) {
+   $month{$dt->month}++ if ($dt->day_of_week < 6);
+
+   $dt->add(days => 1);
+}
+
+warn Dumper \%month;
diff --git a/challenge-037/lubos-kolouch/perl5/ch-2.pl b/challenge-037/lubos-kolouch/perl5/ch-2.pl
new file mode 100644
index 0000000000..12dc063e92
--- /dev/null
+++ b/challenge-037/lubos-kolouch/perl5/ch-2.pl
@@ -0,0 +1,51 @@
+## Please see file perltidy.ERR
+#!/usr/bin/perl 
+#===============================================================================
+#
+#         FILE: ch-2.pl
+#
+#        USAGE: ./ch-2.pl
+#
+#  DESCRIPTION: Perl weekly challenge 37 task 2
+#
+#      OPTIONS: ---
+# REQUIREMENTS: ---
+#         BUGS: ---
+#        NOTES: ---
+#       AUTHOR: YOUR NAME (),
+# ORGANIZATION:
+#      VERSION: 1.0
+#      CREATED: 12/06/2019 04:49:02 PM
+#     REVISION: ---
+#===============================================================================
+
+use strict;
+use warnings;
+use feature qw/say/;
+use DateTime::Event::Sunrise;
+
+my $sun_London = DateTime::Event::Sunrise->new( longitude => -0.118092, latitude => +51.509865 );
+
+my $diff;
+
+for my $day ( 1 .. 30 ) {
+    # there is no 31.11...
+     my $dt_nov = DateTime->new(year      => 2019,
+                                 month     =>    11,
+                                 day       =>   $day,
+                                 time_zone => 'Europe/London');
+
+     my $dt_dec = DateTime->new(year      => 2019,
+                                 month     =>    12,
+                                 day       =>   $day,
+                                 time_zone => 'Europe/London');
+
+	my $daylight_nov =  $sun_London->sunset_datetime ($dt_nov)->epoch - $sun_London->sunrise_datetime($dt_nov)->epoch;
+
+   	my $daylight_dec =  $sun_London->sunset_datetime ($dt_dec)->epoch - $sun_London->sunrise_datetime($dt_dec)->epoch;                                
+	
+	$diff += ($daylight_dec-$daylight_nov)/3600;
+
+}
+
+say "$diff hours";