diff options
| -rw-r--r-- | challenge-145/abigail/blog.txt | 1 | ||||
| -rw-r--r-- | challenge-145/abigail/blog1.txt | 1 | ||||
| -rw-r--r-- | challenge-145/abigail/perl/ch-2.pl | 7 |
3 files changed, 8 insertions, 1 deletions
diff --git a/challenge-145/abigail/blog.txt b/challenge-145/abigail/blog.txt new file mode 100644 index 0000000000..41c0279150 --- /dev/null +++ b/challenge-145/abigail/blog.txt @@ -0,0 +1 @@ +https://abigail.github.io/HTML/Perl-Weekly-Challenge/week-145-1.html diff --git a/challenge-145/abigail/blog1.txt b/challenge-145/abigail/blog1.txt new file mode 100644 index 0000000000..cc86949203 --- /dev/null +++ b/challenge-145/abigail/blog1.txt @@ -0,0 +1 @@ +https://abigail.github.io/HTML/Perl-Weekly-Challenge/week-145-2.html diff --git a/challenge-145/abigail/perl/ch-2.pl b/challenge-145/abigail/perl/ch-2.pl index e8452b84e0..c19e8727ce 100644 --- a/challenge-145/abigail/perl/ch-2.pl +++ b/challenge-145/abigail/perl/ch-2.pl @@ -48,6 +48,12 @@ use experimental 'lexical_subs'; # We'll be doing the "do as I do" option. # +# +# Please see the section "Unicode and Combining Characters" at +# https://abigail.github.io/HTML/Perl-Weekly-Challenge/week-145-2.html +# to see how we interpret a palindrome. +# + local $, = $"; while (<>) { my %seen; @@ -64,4 +70,3 @@ while (<>) { # say keys %seen; } - |