diff options
| -rw-r--r-- | challenge-077/cheok-yin-fung/perl/ch-2.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/challenge-077/cheok-yin-fung/perl/ch-2.pl b/challenge-077/cheok-yin-fung/perl/ch-2.pl index e5b4026bed..69b9ee0cf3 100644 --- a/challenge-077/cheok-yin-fung/perl/ch-2.pl +++ b/challenge-077/cheok-yin-fung/perl/ch-2.pl @@ -50,9 +50,10 @@ print_matrix(\@matrix); sub detect { my $segment = join "", @_; + $segment =~ s/XX/II/g; $segment =~ s/XI/II/g; $segment =~ s/IX/II/g; - $segment =~ s/XX/II/g; +# $segment =~ s/XX/II/g; modify after deadline return split //, $segment; } |