diff options
| -rw-r--r-- | challenge-273/bob-lied/perl/ch-2.pl | 31 |
1 files changed, 28 insertions, 3 deletions
diff --git a/challenge-273/bob-lied/perl/ch-2.pl b/challenge-273/bob-lied/perl/ch-2.pl index 817a23bef8..7132fa848a 100644 --- a/challenge-273/bob-lied/perl/ch-2.pl +++ b/challenge-273/bob-lied/perl/ch-2.pl @@ -17,11 +17,12 @@ use v5.40; use Getopt::Long; -my $Verbose = 0; -my $DoTest = 0; +my $DoTest = false; +my $Benchmark = 0; -GetOptions("test" => \$DoTest, "verbose" => \$Verbose); +GetOptions("test" => \$DoTest, "benchmark:i" => \$Benchmark); exit(!runTest()) if $DoTest; +exit( runBenchmark($Benchmark) ) if $Benchmark; say ( bAfterA($_) ? "true" : "false" ) for @ARGV; @@ -31,6 +32,11 @@ sub bAfterA($str) return $w >= 0 && index($str, "a", $w) < 0; } +sub bAfterA_RE($str) +{ + $str =~ m/^[^b]*b[^a]*$/ +} + sub runTest { use Test2::V0; @@ -40,5 +46,24 @@ sub runTest is (bAfterA("aaa" ), false, "Example 3"); is (bAfterA("bbb" ), true, "Example 4"); + is (bAfterA_RE("aabb"), true, "Example 1 RE"); + is (bAfterA_RE("abab"), false, "Example 2 RE"); + is (bAfterA_RE("aaa" ), false, "Example 3 RE"); + is (bAfterA_RE("bbb" ), true, "Example 4 RE"); + done_testing; } + +sub runBenchmark($repeat) +{ + use Benchmark qw/cmpthese/; + + cmpthese( $repeat, { + index => sub{ + bAfterA("aabb"), bAfterA("abab"), bAfterA("aaaa"), bAfterA("bbbb"), + }, + regex => sub{ + bAfterA_RE("aabb"), bAfterA_RE("abab"), bAfterA_RE("aaaa"), bAfterA_RE("bbbb"), + }, + }); +} |