diff options
| author | Fourand <4randrofficial@gmail.com> | 2019-10-17 23:36:47 +0500 |
|---|---|---|
| committer | Fourand <4randrofficial@gmail.com> | 2019-10-17 23:36:47 +0500 |
| commit | 2dc8ef9b84a1b6724ae22ecf290b73190c1aa695 (patch) | |
| tree | 580eccb418b2d8ed4cf9fad1bf279526ab99013c | |
| parent | b48632bbbc3aaf4aa76b5104d8e53443e41fb326 (diff) | |
| download | perlweeklychallenge-club-2dc8ef9b84a1b6724ae22ecf290b73190c1aa695.tar.gz perlweeklychallenge-club-2dc8ef9b84a1b6724ae22ecf290b73190c1aa695.tar.bz2 perlweeklychallenge-club-2dc8ef9b84a1b6724ae22ecf290b73190c1aa695.zip | |
add ch-1.pl
| -rw-r--r-- | challenge-030/vyacheslav-volgarev/perl5/ch-1.pl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/challenge-030/vyacheslav-volgarev/perl5/ch-1.pl b/challenge-030/vyacheslav-volgarev/perl5/ch-1.pl new file mode 100644 index 0000000000..c677a4a685 --- /dev/null +++ b/challenge-030/vyacheslav-volgarev/perl5/ch-1.pl @@ -0,0 +1,14 @@ +use strict; +use warnings; +use v5.10; + +use constant { + Sunday => 0, + Wednesday => 3 +}; + +my $day = Wednesday; + +for ( 2020.. 2100 ) { + say "25 Dec $_ is Sunday" if ( $day += $_ % 4 != 0 || ($_ % 100 == 0 && $_ % 400 != 0) ? 1 : 2 ) % 7 == Sunday; +} |