diff options
| author | James Smith <js5@sanger.ac.uk> | 2022-12-05 08:23:46 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-12-05 08:23:46 +0000 |
| commit | 70bc4f29beb9c6975ef65840c9bf99c43f893347 (patch) | |
| tree | 5a94d0ef22891038383851afc6b3d8bc043e0669 | |
| parent | 0d29be3c9b1a5c01572f9ee22796c3dd45acd952 (diff) | |
| download | perlweeklychallenge-club-70bc4f29beb9c6975ef65840c9bf99c43f893347.tar.gz perlweeklychallenge-club-70bc4f29beb9c6975ef65840c9bf99c43f893347.tar.bz2 perlweeklychallenge-club-70bc4f29beb9c6975ef65840c9bf99c43f893347.zip | |
Update ch-1.pl
| -rw-r--r-- | challenge-194/james-smith/perl/ch-1.pl | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/challenge-194/james-smith/perl/ch-1.pl b/challenge-194/james-smith/perl/ch-1.pl index c0583712de..35d08c6689 100644 --- a/challenge-194/james-smith/perl/ch-1.pl +++ b/challenge-194/james-smith/perl/ch-1.pl @@ -23,14 +23,16 @@ sub digit_2359 { sub { $_[0] eq '?' ? ( $_[1]<4 ? 2 : 1 ) : $_[1] eq '?' ? ( $_[0]<2 ? 9 : 3 ) - : $_[3] eq '?' ? 5 : 9 + : $_[3] eq '?' ? 5 + : 9 }->( split //, $_[0] ); } sub digit_2400 { sub { - $_[0] eq '?' ? ( $_[1]==4 && $_[3]==0 && $_[4]==0 || $_[1]<4 ? 2 : 1 ) - : $_[1] eq '?' ? ( $_[0]<2 ? 9 : $_[3]==0 && $_[4]==0 ? 4 : 3 ) - : $_[3] eq '?' ? 5 : 9 + $_[0] eq '?' ? ( $_[1]<4 ? 2 : $_[1]==4 && $_[3]==0 && $_[4]==0 ? 2 : 1 ) + : $_[1] eq '?' ? ( $_[0]<2 ? 9 : $_[3]==0 && $_[4]==0 ? 4 : 3 ) + : $_[3] eq '?' ? 5 + : 9 }->( split //, $_[0] ); } |