diff options
| author | CY Fung <fungcheokyin@gmail.com> | 2022-09-11 22:29:34 +0800 |
|---|---|---|
| committer | CY Fung <fungcheokyin@gmail.com> | 2022-09-11 22:29:34 +0800 |
| commit | 20f74e0dccc5c996dfee674f0efa307bfe49d8f3 (patch) | |
| tree | 3e4cddc64f8b6a5219b28d1b808cdae46f267012 | |
| parent | 54fb7864a82497043094da5d6f72ecf830da8db8 (diff) | |
| download | perlweeklychallenge-club-20f74e0dccc5c996dfee674f0efa307bfe49d8f3.tar.gz perlweeklychallenge-club-20f74e0dccc5c996dfee674f0efa307bfe49d8f3.tar.bz2 perlweeklychallenge-club-20f74e0dccc5c996dfee674f0efa307bfe49d8f3.zip | |
Week 181: Task 2
| -rw-r--r-- | challenge-181/cheok-yin-fung/perl/ch-2.pl | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/challenge-181/cheok-yin-fung/perl/ch-2.pl b/challenge-181/cheok-yin-fung/perl/ch-2.pl new file mode 100644 index 0000000000..ee37684add --- /dev/null +++ b/challenge-181/cheok-yin-fung/perl/ch-2.pl @@ -0,0 +1,24 @@ +# The Weekly Challenge 181 +# Task 2 Hot Day +# Usage: ch-2.pl < temperature.txt +use v5.30.0; +use warnings; +use Date::Simple qw/:all/; + +my $base_d = date('1900-01-01'); + +my %dt; +my @ans; + +while (<>) { + chomp; + $_ =~ /(\d\d\d\d-\d\d-\d\d)\W+([.\d]+)/; + $dt{date($1)-$base_d} = $2; +} + +for (sort {$a<=>$b} keys %dt) { + push @ans, $base_d+$_ if defined($dt{$_-1}) && $dt{$_-1} < $dt{$_}; +} + +say join "\n", @ans; + |