diff options
| author | Fung Cheok Yin <61836418+E7-87-83@users.noreply.github.com> | 2020-09-20 08:58:33 +0800 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-09-20 08:58:33 +0800 |
| commit | 11c0ddb899dbc90db9351755ce31bcdb797ef89d (patch) | |
| tree | 3be971ecce1eff6aa422adebdf7d512207fde171 | |
| parent | 211fa8fa3233e581f40f5ba09f44b4a052497873 (diff) | |
| download | perlweeklychallenge-club-11c0ddb899dbc90db9351755ce31bcdb797ef89d.tar.gz perlweeklychallenge-club-11c0ddb899dbc90db9351755ce31bcdb797ef89d.tar.bz2 perlweeklychallenge-club-11c0ddb899dbc90db9351755ce31bcdb797ef89d.zip | |
Update ch-2.pl
| -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; } |