diff options
| author | Fung Cheok Yin <61836418+E7-87-83@users.noreply.github.com> | 2020-09-20 09:00:56 +0800 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-09-20 09:00:56 +0800 |
| commit | 1e2ff386d92c21b960af3134341453fbd910f277 (patch) | |
| tree | 85e393a90945de08d99aaf6460fe970208794644 | |
| parent | f3c34e2167e042358f6827fde3d760f8c9655ff0 (diff) | |
| parent | 11c0ddb899dbc90db9351755ce31bcdb797ef89d (diff) | |
| download | perlweeklychallenge-club-1e2ff386d92c21b960af3134341453fbd910f277.tar.gz perlweeklychallenge-club-1e2ff386d92c21b960af3134341453fbd910f277.tar.bz2 perlweeklychallenge-club-1e2ff386d92c21b960af3134341453fbd910f277.zip | |
Merge pull request #1 from E7-87-83/patch-1
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; } |