From 6a45affb0d70677a38cba6a5b92d3576e39223eb Mon Sep 17 00:00:00 2001 From: root Date: Fri, 18 Oct 2019 16:34:12 +0500 Subject: challenge-030 --- challenge-030/testerR59/README | 1 + challenge-030/testerR59/perl5/ch-1.pl | 9 +++++++++ challenge-030/testerR59/perl5/ch-2.pl | 10 ++++++++++ 3 files changed, 20 insertions(+) create mode 100644 challenge-030/testerR59/README create mode 100644 challenge-030/testerR59/perl5/ch-1.pl create mode 100644 challenge-030/testerR59/perl5/ch-2.pl 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 + } + } +} -- cgit