diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2019-09-23 00:34:04 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-09-23 00:34:04 +0100 |
| commit | b311b14cbd3cdfd093af99a36e1d7de1213d6e82 (patch) | |
| tree | f29b701204d11611020b096f38e6cbb0afe8923c | |
| parent | 1e065895d6c5e7e37d176df858fa63abfdf61968 (diff) | |
| parent | 060f39f0c1709690ebc447928dcc188be341d1d8 (diff) | |
| download | perlweeklychallenge-club-b311b14cbd3cdfd093af99a36e1d7de1213d6e82.tar.gz perlweeklychallenge-club-b311b14cbd3cdfd093af99a36e1d7de1213d6e82.tar.bz2 perlweeklychallenge-club-b311b14cbd3cdfd093af99a36e1d7de1213d6e82.zip | |
Merge pull request #659 from choroba/ech26-2
Ech26 2
| -rw-r--r-- | challenge-026/e-choroba/blog.txt | 1 | ||||
| -rwxr-xr-x | challenge-026/e-choroba/perl5/ch-1.pl | 4 |
2 files changed, 3 insertions, 2 deletions
diff --git a/challenge-026/e-choroba/blog.txt b/challenge-026/e-choroba/blog.txt new file mode 100644 index 0000000000..0430c2f2ef --- /dev/null +++ b/challenge-026/e-choroba/blog.txt @@ -0,0 +1 @@ +http://blogs.perl.org/users/e_choroba/2019/09/perl-weekly-challenge-026-stones-and-jewels-mean-of-angles.html diff --git a/challenge-026/e-choroba/perl5/ch-1.pl b/challenge-026/e-choroba/perl5/ch-1.pl index 221d562b1c..a09275265b 100755 --- a/challenge-026/e-choroba/perl5/ch-1.pl +++ b/challenge-026/e-choroba/perl5/ch-1.pl @@ -7,8 +7,8 @@ use List::Util qw{ uniq }; sub count { my %args = @_; my $count = 0; - $count += () = $args{jewels} =~ /$_/g for uniq(split //, $args{stones}); - $count + $count += () = $args{jewels} =~ /[$args{stones}]/g; + return $count } use Test::More tests => 6; |