diff options
| -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; + |