diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2022-12-10 08:39:43 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-12-10 08:39:43 +0000 |
| commit | a1f72e24e97ecd4f7bec14b76a268474c2dc8e67 (patch) | |
| tree | cb2e1c2eb8ba0c2b6bf8c24c190e918539bf96e4 | |
| parent | 2dd4070706dab84ebabf5a8802d8ee38354f10e2 (diff) | |
| parent | 0a90986281b28beb73de5b63f935dd6ee9670d73 (diff) | |
| download | perlweeklychallenge-club-a1f72e24e97ecd4f7bec14b76a268474c2dc8e67.tar.gz perlweeklychallenge-club-a1f72e24e97ecd4f7bec14b76a268474c2dc8e67.tar.bz2 perlweeklychallenge-club-a1f72e24e97ecd4f7bec14b76a268474c2dc8e67.zip | |
Merge pull request #7229 from drbaggy/master
Fixed logic
| -rw-r--r-- | challenge-194/james-smith/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-194/james-smith/perl/ch-2.pl b/challenge-194/james-smith/perl/ch-2.pl index c99ad2db52..0097971ae6 100644 --- a/challenge-194/james-smith/perl/ch-2.pl +++ b/challenge-194/james-smith/perl/ch-2.pl @@ -14,5 +14,5 @@ done_testing(); sub check { my %f; $f{$_} ++ for split //, $_[0]; - sub { @_>2 && $_[0]==$_[1]+1 && $_[-1]==$_[1] }->( sort {$b<=>$a} values %f ) || 0; + sub { @_<2 || $_[0]==$_[1]+1 && $_[-1]==$_[1] }->( sort {$b<=>$a} values %f ) || 0; } |