diff options
| author | drbaggy <js5@sanger.ac.uk> | 2021-03-08 22:31:55 +0000 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2021-03-08 22:31:55 +0000 |
| commit | 95e0573aefdda6ef20eaee55a5d23ebcd5ba3bbe (patch) | |
| tree | 2fd27eb680dd9921736974ad3044a26e9faf3741 | |
| parent | a827fbf106f43dec6390f447474411685bd75dc6 (diff) | |
| download | perlweeklychallenge-club-95e0573aefdda6ef20eaee55a5d23ebcd5ba3bbe.tar.gz perlweeklychallenge-club-95e0573aefdda6ef20eaee55a5d23ebcd5ba3bbe.tar.bz2 perlweeklychallenge-club-95e0573aefdda6ef20eaee55a5d23ebcd5ba3bbe.zip | |
white space
| -rw-r--r-- | challenge-100/james-smith/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-100/james-smith/perl/ch-1.pl b/challenge-100/james-smith/perl/ch-1.pl index cce37c7bd6..9ff8b14021 100644 --- a/challenge-100/james-smith/perl/ch-1.pl +++ b/challenge-100/james-smith/perl/ch-1.pl @@ -42,7 +42,7 @@ done_testing(); ## 113 bytes total - 105 inside the curly braces.. sub ft{pop=~s/(.+)(:..)\s*(.m|)/sprintf'%02d%s%s', -($1%12||(12*!$3))+12*('pm'eq$3),$2,$3?'':$1%24<12?'am':'pm'/re} + ($1%12||(12*!$3))+12*('pm'eq$3),$2,$3?'':$1%24<12?'am':'pm'/re} ## This is more readable version with notes... sub fun_time { |