diff options
| author | Ryan Thompson <i@ry.ca> | 2020-01-23 07:59:20 -0600 |
|---|---|---|
| committer | Ryan Thompson <i@ry.ca> | 2020-01-23 07:59:20 -0600 |
| commit | 1cf543657d49a75a787cfec9924e44b9d5b9d917 (patch) | |
| tree | b6e5da47933b69f93f5193d5550e7befe34eb222 /challenge-043 | |
| parent | 87a6af9725acf75343b1d590e224d9cfbd5f0cd8 (diff) | |
| download | perlweeklychallenge-club-1cf543657d49a75a787cfec9924e44b9d5b9d917.tar.gz perlweeklychallenge-club-1cf543657d49a75a787cfec9924e44b9d5b9d917.tar.bz2 perlweeklychallenge-club-1cf543657d49a75a787cfec9924e44b9d5b9d917.zip | |
Rename blog1 -> blog, blog2 -> blog1, fix typo
Diffstat (limited to 'challenge-043')
| -rw-r--r-- | challenge-043/ryan-thompson/blog.txt | 1 | ||||
| -rw-r--r-- | challenge-043/ryan-thompson/blog1.txt | 2 | ||||
| -rw-r--r-- | challenge-043/ryan-thompson/blog2.txt | 1 | ||||
| -rwxr-xr-x | challenge-043/ryan-thompson/perl/ch-1.pl | 2 |
4 files changed, 3 insertions, 3 deletions
diff --git a/challenge-043/ryan-thompson/blog.txt b/challenge-043/ryan-thompson/blog.txt new file mode 100644 index 0000000000..457a80fd2c --- /dev/null +++ b/challenge-043/ryan-thompson/blog.txt @@ -0,0 +1 @@ +http://www.ry.ca/2020/01/olympic-rings/ diff --git a/challenge-043/ryan-thompson/blog1.txt b/challenge-043/ryan-thompson/blog1.txt index 457a80fd2c..0f3ba6ca57 100644 --- a/challenge-043/ryan-thompson/blog1.txt +++ b/challenge-043/ryan-thompson/blog1.txt @@ -1 +1 @@ -http://www.ry.ca/2020/01/olympic-rings/ +http://www.ry.ca/2020/01/self-descriptive-numbers/ diff --git a/challenge-043/ryan-thompson/blog2.txt b/challenge-043/ryan-thompson/blog2.txt deleted file mode 100644 index 0f3ba6ca57..0000000000 --- a/challenge-043/ryan-thompson/blog2.txt +++ /dev/null @@ -1 +0,0 @@ -http://www.ry.ca/2020/01/self-descriptive-numbers/ diff --git a/challenge-043/ryan-thompson/perl/ch-1.pl b/challenge-043/ryan-thompson/perl/ch-1.pl index 13c9180427..0f9941cf6f 100755 --- a/challenge-043/ryan-thompson/perl/ch-1.pl +++ b/challenge-043/ryan-thompson/perl/ch-1.pl @@ -106,7 +106,7 @@ sub check_sol { my @sums = map { sum map { $sol->{$_} || $given{$_} || -100; - } split '+'; + } split /\+/; } qw<r+rg rg+g+gk gk+k+ky ky+y+yb yb+b>; return (all { $_ == 11 } @sums) ? 'solved' |