diff options
| author | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-02-16 08:18:02 -0700 |
|---|---|---|
| committer | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-02-16 08:18:02 -0700 |
| commit | 199ce9e768b33b95e6f721867e6f582bc5236e34 (patch) | |
| tree | 4d2c5c721ecf75f2559ade4d4662a42da95b5b03 | |
| parent | fb3e826100dc7388e6d6cd04ac61555db881d02b (diff) | |
| download | perlweeklychallenge-club-199ce9e768b33b95e6f721867e6f582bc5236e34.tar.gz perlweeklychallenge-club-199ce9e768b33b95e6f721867e6f582bc5236e34.tar.bz2 perlweeklychallenge-club-199ce9e768b33b95e6f721867e6f582bc5236e34.zip | |
initial ch-1.raku
| -rw-r--r-- | challenge-100/mark-anderson/raku/ch-1.raku | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/challenge-100/mark-anderson/raku/ch-1.raku b/challenge-100/mark-anderson/raku/ch-1.raku new file mode 100644 index 0000000000..d3d24e28c9 --- /dev/null +++ b/challenge-100/mark-anderson/raku/ch-1.raku @@ -0,0 +1,26 @@ +use DateTime::Format; +use Time::Piece:from<Perl5>; +use Test; +plan 10; + +is fun-time("00:45"), "12:45 AM"; +is fun-time("01:45"), "01:45 AM"; +is fun-time("03:15"), "03:15 AM"; +is fun-time("13:45"), "01:45 PM"; +is fun-time("18:45"), "06:45 PM"; + +is fun-time("12:45 AM"), "00:45"; +is fun-time("01:45 AM"), "01:45"; +is fun-time("03:15 AM"), "03:15"; +is fun-time("01:45 PM"), "13:45"; +is fun-time("06:45 PM"), "18:45"; + +multi fun-time($T) +{ + strftime("%I:%M %p", DateTime.new("1970-01-01T$T:00Z")); +} + +multi fun-time($T where .ends-with("am"|"pm", :i)) +{ + Time::Piece.strptime("$T", "%r").strftime("%R"); +} |