From 55ab3ed96c4ba4c9b34e411bd6c6cc83dfad096e Mon Sep 17 00:00:00 2001
From: 冯昶 <fengchang@novel-supertv.com>
Date: Tue, 6 Dec 2022 16:16:46 +0800
Subject: challenge 194, raku solutions

---
 challenge-194/feng-chang/raku/ch-1.raku | 8 ++++++++
 challenge-194/feng-chang/raku/ch-2.raku | 8 ++++++++
 2 files changed, 16 insertions(+)
 create mode 100755 challenge-194/feng-chang/raku/ch-1.raku
 create mode 100755 challenge-194/feng-chang/raku/ch-2.raku

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);
-- 
cgit