diff options
| author | James Smith <js5@sanger.ac.uk> | 2022-12-06 12:08:27 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-12-06 12:08:27 +0000 |
| commit | e0dd4b5e72551ca1412554f0b9d11c62a3b08af0 (patch) | |
| tree | 512f47f9a989180807a44e9c02184450973d7401 | |
| parent | a9ea6c43fba6620b202e52edb5616c14337962bf (diff) | |
| download | perlweeklychallenge-club-e0dd4b5e72551ca1412554f0b9d11c62a3b08af0.tar.gz perlweeklychallenge-club-e0dd4b5e72551ca1412554f0b9d11c62a3b08af0.tar.bz2 perlweeklychallenge-club-e0dd4b5e72551ca1412554f0b9d11c62a3b08af0.zip | |
Update ch-2.pl
| -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; } |