diff options
| author | robbie-hatley <Robbie.Hatley@gmail.com> | 2024-06-10 21:50:00 -0700 |
|---|---|---|
| committer | robbie-hatley <Robbie.Hatley@gmail.com> | 2024-06-10 21:50:00 -0700 |
| commit | 9b0d62f010c7cbfaadbad2358b208acb9af7dd56 (patch) | |
| tree | 946f928f77ac3901fff406af07c680b1ab2ffdf7 | |
| parent | 05d2c21673b4d4ff46129c10cf1a91259a294ac2 (diff) | |
| download | perlweeklychallenge-club-9b0d62f010c7cbfaadbad2358b208acb9af7dd56.tar.gz perlweeklychallenge-club-9b0d62f010c7cbfaadbad2358b208acb9af7dd56.tar.bz2 perlweeklychallenge-club-9b0d62f010c7cbfaadbad2358b208acb9af7dd56.zip | |
Corrected error in 273-2.
| -rwxr-xr-x | challenge-273/robbie-hatley/perl/ch-2.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-273/robbie-hatley/perl/ch-2.pl b/challenge-273/robbie-hatley/perl/ch-2.pl index 647f237d95..636b4c20c2 100755 --- a/challenge-273/robbie-hatley/perl/ch-2.pl +++ b/challenge-273/robbie-hatley/perl/ch-2.pl @@ -32,8 +32,8 @@ Output: true -------------------------------------------------------------------------------------------------------------- PROBLEM NOTES: -A regular expression will solve this. What we're looking for is "b followed by non-a characters to end -of string". The regular expression for that is "^[^b]*b[^a]*$": +A regular expression will solve this. What we're looking for is "initial b followed by non-a characters +to end of string". The regular expression for that is "^[^b]*b[^a]*$": sub b_after_a ($str) { $str =~ m/^[^b]*b[^a]*$/ |