diff options
| author | James Smith <js5@sanger.ac.uk> | 2022-12-05 08:21:24 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-12-05 08:21:24 +0000 |
| commit | 0d29be3c9b1a5c01572f9ee22796c3dd45acd952 (patch) | |
| tree | a22c6a2d07e9284832efe5e6e1904089b723a7b8 | |
| parent | 9e183fb259a4f5cbd51796fe06a9b15b42195757 (diff) | |
| download | perlweeklychallenge-club-0d29be3c9b1a5c01572f9ee22796c3dd45acd952.tar.gz perlweeklychallenge-club-0d29be3c9b1a5c01572f9ee22796c3dd45acd952.tar.bz2 perlweeklychallenge-club-0d29be3c9b1a5c01572f9ee22796c3dd45acd952.zip | |
Update ch-2.pl
| -rw-r--r-- | challenge-194/james-smith/perl/ch-2.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-194/james-smith/perl/ch-2.pl b/challenge-194/james-smith/perl/ch-2.pl index 167860f910..c99ad2db52 100644 --- a/challenge-194/james-smith/perl/ch-2.pl +++ b/challenge-194/james-smith/perl/ch-2.pl @@ -13,6 +13,6 @@ is( check( $_->[0] ), $_->[1] ) for @TESTS; done_testing(); sub check { - my %sc; $sc{$_} ++ for split //,$_[0]; - sub { @_>2 && $_[0]==$_[1]+1 && $_[-1]==$_[1] ? 1 : 0 }->(sort {$b<=>$a} values %sc); + my %f; $f{$_} ++ for split //, $_[0]; + sub { @_>2 && $_[0]==$_[1]+1 && $_[-1]==$_[1] }->( sort {$b<=>$a} values %f ) || 0; } |