diff options
| author | Adam Russell <ac.russell@live.com> | 2024-08-11 12:28:21 -0400 |
|---|---|---|
| committer | Adam Russell <ac.russell@live.com> | 2024-08-11 12:28:21 -0400 |
| commit | 4c80e0ff6334dc4049c40bf0182c7b5f93144212 (patch) | |
| tree | d7ad3dcf626adfeb2e6f226349fac5891722221f | |
| parent | 6a9d0f47b6d0ce9f85ab113f7ee8973f15dc8c15 (diff) | |
| download | perlweeklychallenge-club-4c80e0ff6334dc4049c40bf0182c7b5f93144212.tar.gz perlweeklychallenge-club-4c80e0ff6334dc4049c40bf0182c7b5f93144212.tar.bz2 perlweeklychallenge-club-4c80e0ff6334dc4049c40bf0182c7b5f93144212.zip | |
minor fix to regex
| -rw-r--r-- | challenge-281/adam-russell/perl/ch-2.pl | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/challenge-281/adam-russell/perl/ch-2.pl b/challenge-281/adam-russell/perl/ch-2.pl index a31a0146b8..60a0dfbd64 100644 --- a/challenge-281/adam-russell/perl/ch-2.pl +++ b/challenge-281/adam-russell/perl/ch-2.pl @@ -19,13 +19,13 @@ sub build_graph{ $graph->add_edge(qq/$c$r/, qq/$t$s/) if $s >= 1 && $s <= 8 && - $t =~ m/[a-z]/; + $t =~ m/[a-h]/; $t = chr(ord(qq/$c/) + 1); $graph->add_edge(qq/$c$r/, qq/$t$s/) if $s >= 1 && $s <= 8 && - $t =~ m/[a-z]/; + $t =~ m/[a-h]/; ## # down @@ -35,13 +35,13 @@ sub build_graph{ $graph->add_edge(qq/$c$r/, qq/$t$s/) if $s >= 1 && $s <= 8 && - $t =~ m/[a-z]/; + $t =~ m/[a-h]/; $t = chr(ord(qq/$c/) + 1); $graph->add_edge(qq/$c$r/, qq/$t$s/) if $s >= 1 && $s <= 8 && - $t =~ m/[a-z]/; + $t =~ m/[a-h]/; ## # left @@ -51,13 +51,13 @@ sub build_graph{ $graph->add_edge(qq/$c$r/, qq/$t$s/) if $s >= 1 && $s <= 8 && - $t =~ m/[a-z]/; + $t =~ m/[a-h]/; $s = $r + 1; $graph->add_edge(qq/$c$r/, qq/$t$s/) if $s >= 1 && $s <= 8 && - $t =~ m/[a-z]/; + $t =~ m/[a-h]/; ## # right @@ -67,13 +67,13 @@ sub build_graph{ $graph->add_edge(qq/$c$r/, qq/$t$s/) if $s >= 1 && $s <= 8 && - $t =~ m/[a-z]/; + $t =~ m/[a-h]/; $s = $r + 1; $graph->add_edge(qq/$c$r/, qq/$t$s/) if $s >= 1 && $s <= 8 && - $t =~ m/[a-z]/; + $t =~ m/[a-h]/; } for 1 .. 8; } for q/a/ .. q/h/; |