diff options
| -rwxr-xr-x | challenge-194/feng-chang/raku/ch-1.raku | 8 | ||||
| -rwxr-xr-x | challenge-194/feng-chang/raku/ch-2.raku | 8 |
2 files changed, 16 insertions, 0 deletions
diff --git a/challenge-194/feng-chang/raku/ch-1.raku b/challenge-194/feng-chang/raku/ch-1.raku new file mode 100755 index 0000000000..65d8ef5558 --- /dev/null +++ b/challenge-194/feng-chang/raku/ch-1.raku @@ -0,0 +1,8 @@ +#!/bin/env raku + +unit sub MAIN(Str:D \tms); + +put (9...0).first({ + try { "2022-02-22T{ tms.trans('?' => ~$_) }:00Z".DateTime } + $_ unless $! +}); diff --git a/challenge-194/feng-chang/raku/ch-2.raku b/challenge-194/feng-chang/raku/ch-2.raku new file mode 100755 index 0000000000..37483971cb --- /dev/null +++ b/challenge-194/feng-chang/raku/ch-2.raku @@ -0,0 +1,8 @@ +#!/bin/env raku + +unit sub MAIN(Str:D \str); + +my @freq = str.comb.Bag.values; +my @u = @freq.unique; + +put +(+@u == 2 and abs([-] @u) == 1 and @freq.grep(@freq.max) == 1); |