diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2021-02-22 06:16:10 +0000 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2021-02-22 06:16:10 +0000 |
| commit | bc7cd7f201b47ceaf810b95bcdd9f881185152e2 (patch) | |
| tree | fdc250e0cf47858bf236cc66c934572a29c3bc98 /challenge-100/pablo-saavedra | |
| parent | a015e1f710bbdbd6e81982093b068a98ef3180c6 (diff) | |
| download | perlweeklychallenge-club-bc7cd7f201b47ceaf810b95bcdd9f881185152e2.tar.gz perlweeklychallenge-club-bc7cd7f201b47ceaf810b95bcdd9f881185152e2.tar.bz2 perlweeklychallenge-club-bc7cd7f201b47ceaf810b95bcdd9f881185152e2.zip | |
- Added solution by Pablo Saavedra.
Diffstat (limited to 'challenge-100/pablo-saavedra')
| -rw-r--r-- | challenge-100/pablo-saavedra/README | 1 | ||||
| -rw-r--r-- | challenge-100/pablo-saavedra/perl/ch-1.pl | 3 |
2 files changed, 4 insertions, 0 deletions
diff --git a/challenge-100/pablo-saavedra/README b/challenge-100/pablo-saavedra/README new file mode 100644 index 0000000000..ba587af04e --- /dev/null +++ b/challenge-100/pablo-saavedra/README @@ -0,0 +1 @@ +Solutions by Pablo Saavedra. diff --git a/challenge-100/pablo-saavedra/perl/ch-1.pl b/challenge-100/pablo-saavedra/perl/ch-1.pl new file mode 100644 index 0000000000..36a35e701f --- /dev/null +++ b/challenge-100/pablo-saavedra/perl/ch-1.pl @@ -0,0 +1,3 @@ +$var = <STDIN>; +my ($h, $m) = ($var =~ /(\d+):(\d+)/); +$' =~ /pm/ ? print (($h + 12).":$m") : ($' !~ /am/ ? ($h >= 12 ? print (($h - 12) . ":$m pm") : print "$h:$m am") : print "$h:$m"); |