aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMohammad S Anwar <Mohammad.Anwar@yahoo.com>2021-06-21 12:30:43 +0100
committerGitHub <noreply@github.com>2021-06-21 12:30:43 +0100
commita25953b2f5080a8ad8c3d89f5cc377459147dbe7 (patch)
treea78553f7e84142c7dbfcb3d9a0fe8d6429ae7f8d
parent006d2cf488bb38276c58a3f49a0432988fdc6541 (diff)
parent4d06eeb48ecd9a6cbbc9722397a6c9c215811735 (diff)
downloadperlweeklychallenge-club-a25953b2f5080a8ad8c3d89f5cc377459147dbe7.tar.gz
perlweeklychallenge-club-a25953b2f5080a8ad8c3d89f5cc377459147dbe7.tar.bz2
perlweeklychallenge-club-a25953b2f5080a8ad8c3d89f5cc377459147dbe7.zip
Merge pull request #4304 from Abigail/abigail/week-117
Links to blogs.
-rw-r--r--challenge-117/abigail/blog.txt1
-rw-r--r--challenge-117/abigail/blog1.txt1
-rw-r--r--challenge-117/abigail/perl/ch-1.pl2
-rw-r--r--challenge-117/abigail/perl/ch-2.pl2
4 files changed, 6 insertions, 0 deletions
diff --git a/challenge-117/abigail/blog.txt b/challenge-117/abigail/blog.txt
new file mode 100644
index 0000000000..1be7ff6d8b
--- /dev/null
+++ b/challenge-117/abigail/blog.txt
@@ -0,0 +1 @@
+https://abigail.github.io/HTML/Perl-Weekly-Challenge/week-117-1.html
diff --git a/challenge-117/abigail/blog1.txt b/challenge-117/abigail/blog1.txt
new file mode 100644
index 0000000000..472e30c72a
--- /dev/null
+++ b/challenge-117/abigail/blog1.txt
@@ -0,0 +1 @@
+https://abigail.github.io/HTML/Perl-Weekly-Challenge/week-117-2.html
diff --git a/challenge-117/abigail/perl/ch-1.pl b/challenge-117/abigail/perl/ch-1.pl
index 3c805b2d36..8904a5b0fe 100644
--- a/challenge-117/abigail/perl/ch-1.pl
+++ b/challenge-117/abigail/perl/ch-1.pl
@@ -23,6 +23,8 @@ use experimental 'lexical_subs';
# beginning of the string looks like a number (and to use the value of
# that number). Warnings need to be surpressed though.
#
+# See also: https://abigail.github.io/HTML/Perl-Weekly-Challenge/week-117-1.html
+#
use List::Util qw [sum];
diff --git a/challenge-117/abigail/perl/ch-2.pl b/challenge-117/abigail/perl/ch-2.pl
index cac9bfe888..ba628a87ee 100644
--- a/challenge-117/abigail/perl/ch-2.pl
+++ b/challenge-117/abigail/perl/ch-2.pl
@@ -45,6 +45,8 @@ use experimental 'lexical_subs';
#
# We will be reading a single line of input ($N)
#
+# See also: https://abigail.github.io/HTML/Perl-Weekly-Challenge/week-117-2.html
+#
sub steps ($x, $y, $path) {
say $path if $x == $y == 0;