diff options
| author | Leoltron <leoole5@gmail.com> | 2019-10-20 21:17:48 +0500 |
|---|---|---|
| committer | Leoltron <leoole5@gmail.com> | 2019-10-20 21:17:48 +0500 |
| commit | bde47a59ad165a93384a7fe0f5c3c7c00fabb626 (patch) | |
| tree | d968f6ca0938cf8632adce3ff881d22f84c0f432 /challenge-030 | |
| parent | 45beb0d934d241d1f90e7c9c5ebe1a6baf7e05c1 (diff) | |
| download | perlweeklychallenge-club-bde47a59ad165a93384a7fe0f5c3c7c00fabb626.tar.gz perlweeklychallenge-club-bde47a59ad165a93384a7fe0f5c3c7c00fabb626.tar.bz2 perlweeklychallenge-club-bde47a59ad165a93384a7fe0f5c3c7c00fabb626.zip | |
Solved task 1
Diffstat (limited to 'challenge-030')
| -rw-r--r-- | challenge-030/Leoltron/README | 1 | ||||
| -rw-r--r-- | challenge-030/Leoltron/perl5/ch-1.pl | 11 |
2 files changed, 12 insertions, 0 deletions
diff --git a/challenge-030/Leoltron/README b/challenge-030/Leoltron/README new file mode 100644 index 0000000000..28aeaf66ae --- /dev/null +++ b/challenge-030/Leoltron/README @@ -0,0 +1 @@ +Solution by Leoltron diff --git a/challenge-030/Leoltron/perl5/ch-1.pl b/challenge-030/Leoltron/perl5/ch-1.pl new file mode 100644 index 0000000000..9b23635d2f --- /dev/null +++ b/challenge-030/Leoltron/perl5/ch-1.pl @@ -0,0 +1,11 @@ +#!/usr/bin/perl + +use strict; +use warnings; +use 5.010; + +my $week_day = 2; +for (2019 .. 2099) { + $week_day = ($week_day + ($_ % 4 == 0 ? 2 : 1)) % 7; + say $_ if $week_day == 0; +} |