From 4c80e0ff6334dc4049c40bf0182c7b5f93144212 Mon Sep 17 00:00:00 2001 From: Adam Russell Date: Sun, 11 Aug 2024 12:28:21 -0400 Subject: minor fix to regex --- challenge-281/adam-russell/perl/ch-2.pl | 16 ++++++++-------- 1 file 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/; -- cgit