diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2021-02-23 21:31:59 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-02-23 21:31:59 +0000 |
| commit | 40e0a7c430b58c1ad9ce4920d21853616451fe5b (patch) | |
| tree | 6a19d26d4da86f9e503534c9fabab6f9d30a7540 | |
| parent | c00890ea8bce31f6abf451dae20b1f0b7716380a (diff) | |
| parent | 06c14615c629c0e68c2cd600bf0f888671278cd6 (diff) | |
| download | perlweeklychallenge-club-40e0a7c430b58c1ad9ce4920d21853616451fe5b.tar.gz perlweeklychallenge-club-40e0a7c430b58c1ad9ce4920d21853616451fe5b.tar.bz2 perlweeklychallenge-club-40e0a7c430b58c1ad9ce4920d21853616451fe5b.zip | |
Merge pull request #3610 from pablos123/new-branch
adding the true one-liner
| -rw-r--r-- | challenge-100/pablo-saavedra/perl/ch-1.sh | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/challenge-100/pablo-saavedra/perl/ch-1.sh b/challenge-100/pablo-saavedra/perl/ch-1.sh new file mode 100644 index 0000000000..a341b21dc9 --- /dev/null +++ b/challenge-100/pablo-saavedra/perl/ch-1.sh @@ -0,0 +1 @@ +(($h, $m) = ($ARGV[0] =~ /(\d+?):(\d+)/)) ? $' =~ /pm/ ? printf "%02d:%02d", $h + 12 , $m : ($' !~ /am/ ? ($h >= 12 ? printf "%02d:%02d pm", $h - 12 , $m : printf "%02d:%02d am", $h, $m) : printf "%02d:%02d pm", $h, $m) : print ":("; |