diff options
| author | James Smith <js5@sanger.ac.uk> | 2022-12-05 08:24:09 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-12-05 08:24:09 +0000 |
| commit | a9ea6c43fba6620b202e52edb5616c14337962bf (patch) | |
| tree | 3339ce114924681c8f333be15fc8ab347cce6669 | |
| parent | 70bc4f29beb9c6975ef65840c9bf99c43f893347 (diff) | |
| download | perlweeklychallenge-club-a9ea6c43fba6620b202e52edb5616c14337962bf.tar.gz perlweeklychallenge-club-a9ea6c43fba6620b202e52edb5616c14337962bf.tar.bz2 perlweeklychallenge-club-a9ea6c43fba6620b202e52edb5616c14337962bf.zip | |
Update README.md
| -rw-r--r-- | challenge-194/james-smith/README.md | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-194/james-smith/README.md b/challenge-194/james-smith/README.md index 579581f98f..50abcdd7c8 100644 --- a/challenge-194/james-smith/README.md +++ b/challenge-194/james-smith/README.md @@ -44,8 +44,8 @@ My original code allowed `24:00` as a valid value - this gave a slightly more co ```perl 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 ) + $_[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] ); |