diff options
| author | root <root@i5.localdomain> | 2019-10-18 16:34:12 +0500 |
|---|---|---|
| committer | root <root@i5.localdomain> | 2019-10-18 16:34:12 +0500 |
| commit | 6a45affb0d70677a38cba6a5b92d3576e39223eb (patch) | |
| tree | e0fdbc8603880498d39f01c2a35b84c3e00065f0 /challenge-030 | |
| parent | 60ca17975aa3a01ad4e80b0d04f53edad0826a3a (diff) | |
| download | perlweeklychallenge-club-6a45affb0d70677a38cba6a5b92d3576e39223eb.tar.gz perlweeklychallenge-club-6a45affb0d70677a38cba6a5b92d3576e39223eb.tar.bz2 perlweeklychallenge-club-6a45affb0d70677a38cba6a5b92d3576e39223eb.zip | |
challenge-030
Diffstat (limited to 'challenge-030')
| -rw-r--r-- | challenge-030/testerR59/README | 1 | ||||
| -rw-r--r-- | challenge-030/testerR59/perl5/ch-1.pl | 9 | ||||
| -rw-r--r-- | challenge-030/testerR59/perl5/ch-2.pl | 10 |
3 files changed, 20 insertions, 0 deletions
diff --git a/challenge-030/testerR59/README b/challenge-030/testerR59/README new file mode 100644 index 0000000000..805ac61d1d --- /dev/null +++ b/challenge-030/testerR59/README @@ -0,0 +1 @@ +Solution by testerR59 diff --git a/challenge-030/testerR59/perl5/ch-1.pl b/challenge-030/testerR59/perl5/ch-1.pl new file mode 100644 index 0000000000..d416a76dfe --- /dev/null +++ b/challenge-030/testerR59/perl5/ch-1.pl @@ -0,0 +1,9 @@ +use strict; +use warnings; + +use Time::Local qw(timelocal_modern); + +for(2019..2100){ + my $wday = (localtime timelocal_modern 0, 0, 0, 25, 11, $_)[6]; + print "25 Dec $_\n" if $wday == 0 +} diff --git a/challenge-030/testerR59/perl5/ch-2.pl b/challenge-030/testerR59/perl5/ch-2.pl new file mode 100644 index 0000000000..4803ced8fc --- /dev/null +++ b/challenge-030/testerR59/perl5/ch-2.pl @@ -0,0 +1,10 @@ +use strict; +use warnings; + +for my $x(1..10){ + for my $y(1..10){ + for my $z(1..10){ + print "$x, $y, $z\n" if $x + $y + $z == 12 + } + } +} |