From 96011889bc56ef0c3185cbbbdea4d55fadcb7191 Mon Sep 17 00:00:00 2001
From: 冯昶 <fengchang@novel-supertv.com>
Date: Mon, 12 Aug 2024 17:11:35 +0800
Subject: challenge 282, raku solutions

---
 challenge-282/feng-chang/raku/ch-1.raku  |  6 ++++++
 challenge-282/feng-chang/raku/ch-2.raku  |  5 +++++
 challenge-282/feng-chang/raku/ch-2a.raku |  7 +++++++
 challenge-282/feng-chang/raku/test.raku  | 27 +++++++++++++++++++++++++++
 4 files changed, 45 insertions(+)
 create mode 100755 challenge-282/feng-chang/raku/ch-1.raku
 create mode 100755 challenge-282/feng-chang/raku/ch-2.raku
 create mode 100755 challenge-282/feng-chang/raku/ch-2a.raku
 create mode 100755 challenge-282/feng-chang/raku/test.raku

diff --git a/challenge-282/feng-chang/raku/ch-1.raku b/challenge-282/feng-chang/raku/ch-1.raku
new file mode 100755
index 0000000000..b93cdd694a
--- /dev/null
+++ b/challenge-282/feng-chang/raku/ch-1.raku
@@ -0,0 +1,6 @@
+#!/bin/env raku
+
+unit sub MAIN(UInt:D $int);
+
+my token Seq { (<[0..9]>) $0 $0+ }
+put $int.match(/<Seq>/, :g).grep(*.chars == 3).first // -1;
diff --git a/challenge-282/feng-chang/raku/ch-2.raku b/challenge-282/feng-chang/raku/ch-2.raku
new file mode 100755
index 0000000000..19bd7e4012
--- /dev/null
+++ b/challenge-282/feng-chang/raku/ch-2.raku
@@ -0,0 +1,5 @@
+#!/bin/env raku
+
+unit sub MAIN(Str:D $str);
+
+put $str.lc.comb.squish.elems - 1;
diff --git a/challenge-282/feng-chang/raku/ch-2a.raku b/challenge-282/feng-chang/raku/ch-2a.raku
new file mode 100755
index 0000000000..f38b42d8d2
--- /dev/null
+++ b/challenge-282/feng-chang/raku/ch-2a.raku
@@ -0,0 +1,7 @@
+#!/bin/env raku
+
+unit sub MAIN(Str:D $str is copy);
+
+$str .= lc;
+$str ~~ s:g/$<c>=(<[a..z]>) $<c>+/$<c>/;
+put $str.chars - 1;
diff --git a/challenge-282/feng-chang/raku/test.raku b/challenge-282/feng-chang/raku/test.raku
new file mode 100755
index 0000000000..c03f25effd
--- /dev/null
+++ b/challenge-282/feng-chang/raku/test.raku
@@ -0,0 +1,27 @@
+#!/bin/env raku
+
+# The Weekly Challenge 282
+use Test;
+
+sub pwc-test(Str:D $script, Bool :$deeply? = False, *@input) {
+    my ($expect, $assertion) = @input.splice(*-2, 2);
+    my $p = run $script, |@input, :out;
+    if $deeply {
+        is-deeply $p.out.slurp(:close).chomp.words.Bag, $expect, $assertion;
+    } else {
+        is $p.out.slurp(:close).chomp, $expect, $assertion;
+    }
+}
+
+# Task 1, Good Integer
+pwc-test './ch-1.raku', 12344456, 444,   'Good Integer: 12344456 => 444';
+pwc-test './ch-1.raku', 1233334,  -1,    'Good Integer: 1233334  => -1';
+pwc-test './ch-1.raku', 10020003, '000', 'Good Integer: 10020003 => 000';
+
+# Task 2, Changing Keys
+pwc-test './ch-2.raku',  'pPeERrLl', 3, "Changing Keys: pPeERrLl => 3";
+pwc-test './ch-2.raku',  'rRr',      0, "Changing Keys: rRr      => 0";
+pwc-test './ch-2.raku',  'GoO',      1, "Changing Keys: GoO      => 1";
+pwc-test './ch-2a.raku', 'pPeERrLl', 3, "Changing Keys: pPeERrLl => 3";
+pwc-test './ch-2a.raku', 'rRr',      0, "Changing Keys: rRr      => 0";
+pwc-test './ch-2a.raku', 'GoO',      1, "Changing Keys: GoO      => 1";
-- 
cgit