diff options
| author | E7-87-83 <fungcheokyin@gmail.com> | 2021-06-13 22:40:11 +0800 |
|---|---|---|
| committer | E7-87-83 <fungcheokyin@gmail.com> | 2021-06-13 22:40:11 +0800 |
| commit | 8d70c5ccf601afe31d60120a3b8e1e317a097e52 (patch) | |
| tree | 7604c7fc515c559bf3a8756864867ea97c1fc577 | |
| parent | db0a146c35cdd246bc5317bd6f30c84339a00b3f (diff) | |
| download | perlweeklychallenge-club-8d70c5ccf601afe31d60120a3b8e1e317a097e52.tar.gz perlweeklychallenge-club-8d70c5ccf601afe31d60120a3b8e1e317a097e52.tar.bz2 perlweeklychallenge-club-8d70c5ccf601afe31d60120a3b8e1e317a097e52.zip | |
modify ch-1.pl
| -rw-r--r-- | challenge-116/cheok-yin-fung/perl/ch-1.pl | 26 |
1 files changed, 16 insertions, 10 deletions
diff --git a/challenge-116/cheok-yin-fung/perl/ch-1.pl b/challenge-116/cheok-yin-fung/perl/ch-1.pl index 3ca3cd58f6..95ee621b35 100644 --- a/challenge-116/cheok-yin-fung/perl/ch-1.pl +++ b/challenge-116/cheok-yin-fung/perl/ch-1.pl @@ -15,6 +15,12 @@ print "Impossible to split.\n" unless (determine($N)); +# I found that I had misunderstood the meaning of "consecutive" +# after the first commit. +# Removing some of the pound signs below, we can find +# numbers which can be split into "integer seq diff by 1" + + sub determine { my $num = $_[0]; $num =~ s/^0+//; @@ -24,21 +30,22 @@ sub determine { $yN = $num; my $bool_next = 1; my $bool_next_i = undef; - my $bool_next_d = undef; +# my $bool_next_d = undef; my $f = substr($yN , 0, $k); my $f_i; - my $f_d; +# my $f_d; my @arr; while ($bool_next && $yN ne "") { $yN =~ s/^$f//; push @arr, $f; $f_i = $f+1; - $f_d = $f-1; +# $f_d = $f-1; $bool_next_i = $yN =~ /^$f_i/; - $bool_next_d = $yN =~ /^$f_d/; - $bool_next = $bool_next_i || $bool_next_d; +# $bool_next_d = $yN =~ /^$f_d/; +## $bool_next = $bool_next_i || $bool_next_d; + $bool_next = $bool_next_i; $f = $f_i if $bool_next_i; - $f = $f_d if $bool_next_d; +# $f = $f_d if $bool_next_d; } if ($yN eq "") { print join ",", @arr; @@ -49,13 +56,12 @@ sub determine { return 0; } - =pod -ok determine(10) == 1, "N = 10"; +ok determine(10) == 0, "N = 10"; ok determine(1234) == 1, "example 1"; ok determine(91011) == 1, "example 2"; ok determine(10203) == 0, "example 3"; -ok determine(104103) == 1, "N = 104103"; -ok determine(12123456789101110) == 1, "a large N"; +ok determine(103104) == 1, "N = 103104"; +ok determine(123456789101112) == 1, "a large N"; ok determine(5405) == 0, "N = 5405"; =cut |