From 9b0d62f010c7cbfaadbad2358b208acb9af7dd56 Mon Sep 17 00:00:00 2001 From: robbie-hatley Date: Mon, 10 Jun 2024 21:50:00 -0700 Subject: Corrected error in 273-2. --- challenge-273/robbie-hatley/perl/ch-2.pl | 4 ++-- 1 file 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]*$/ -- cgit