From 8a4ca153cebf203e1849bddd21beef4711474d70 Mon Sep 17 00:00:00 2001
From: 冯昶 <fengchang@novel-supertv.com>
Date: Mon, 24 Jun 2024 17:35:50 +0800
Subject: challenge 275, raku solutions

---
 challenge-275/feng-chang/raku/ch-1.raku |  6 ++++++
 challenge-275/feng-chang/raku/ch-2.raku | 10 ++++++++++
 challenge-275/feng-chang/raku/test.raku | 26 ++++++++++++++++++++++++++
 3 files changed, 42 insertions(+)
 create mode 100755 challenge-275/feng-chang/raku/ch-1.raku
 create mode 100755 challenge-275/feng-chang/raku/ch-2.raku
 create mode 100755 challenge-275/feng-chang/raku/test.raku

(limited to 'challenge-275')

diff --git a/challenge-275/feng-chang/raku/ch-1.raku b/challenge-275/feng-chang/raku/ch-1.raku
new file mode 100755
index 0000000000..9dd4df3d57
--- /dev/null
+++ b/challenge-275/feng-chang/raku/ch-1.raku
@@ -0,0 +1,6 @@
+#!/bin/env raku
+
+unit sub MAIN(*@words);
+
+my @broken = @words.tail.lc.comb;
+put +@words.grep(*.lc.comb.any ne @broken.any);
diff --git a/challenge-275/feng-chang/raku/ch-2.raku b/challenge-275/feng-chang/raku/ch-2.raku
new file mode 100755
index 0000000000..ef35e4272f
--- /dev/null
+++ b/challenge-275/feng-chang/raku/ch-2.raku
@@ -0,0 +1,10 @@
+#!/bin/env raku
+
+unit sub MAIN(Str:D $s);
+
+my $c;
+for $s.comb {
+    when 0..9 { print ($c.ord + $_).chr }
+    default   { $c = $_; .print         }
+}
+put '';
diff --git a/challenge-275/feng-chang/raku/test.raku b/challenge-275/feng-chang/raku/test.raku
new file mode 100755
index 0000000000..8d88f59ff9
--- /dev/null
+++ b/challenge-275/feng-chang/raku/test.raku
@@ -0,0 +1,26 @@
+#!/bin/env raku
+
+# The Weekly Challenge 275
+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, Broken Keys
+pwc-test './ch-1.raku', <Perl Weekly Challenge>,    'la', 0, 'Broken Keys: "Perl Weekly Challenge",    <l a> => 0';
+pwc-test './ch-1.raku', <Perl and Raku>,            'a',  1, 'Broken Keys: "Perl and Raku",            <a>   => 1';
+pwc-test './ch-1.raku', <Well done Team PWC>,       'lo', 2, 'Broken Keys: "Well done Team PWC",       <l o> => 2';
+pwc-test './ch-1.raku', <The joys of polyglottism>, 'T',  2, 'Broken Keys: "The joys of polyglottism", <T>   => 2';
+
+# Task 2, Replace Digits
+pwc-test './ch-2.raku', 'a1c1e1',   'abcdef',   'Replace Digits: "a1c1e1"   => "abcdef"';
+pwc-test './ch-2.raku', 'a1b2c3d4', 'abbdcfdh', 'Replace Digits: "a1b2c3d4" => "abbdcfdh"';
+pwc-test './ch-2.raku', 'b2b',      'bdb',      'Replace Digits: "b2b"      => "bdb"';
+pwc-test './ch-2.raku', 'a16z',     'abgz',     'Replace Digits: "a16z"     => "abgz"';
-- 
cgit