From 7bce92dafd4a464bed211045fbeba33130f60dd8 Mon Sep 17 00:00:00 2001
From: 冯昶 <fengchang@novel-supertv.com>
Date: Mon, 10 Jul 2023 18:13:14 +0800
Subject: challenge #225, raku solutions

---
 challenge-225/feng-chang/raku/ch-1.raku |  5 +++++
 challenge-225/feng-chang/raku/ch-2.raku |  8 ++++++++
 challenge-225/feng-chang/raku/test.raku | 31 +++++++++++++++++++++++++++++++
 3 files changed, 44 insertions(+)
 create mode 100755 challenge-225/feng-chang/raku/ch-1.raku
 create mode 100755 challenge-225/feng-chang/raku/ch-2.raku
 create mode 100755 challenge-225/feng-chang/raku/test.raku

diff --git a/challenge-225/feng-chang/raku/ch-1.raku b/challenge-225/feng-chang/raku/ch-1.raku
new file mode 100755
index 0000000000..10c62be03c
--- /dev/null
+++ b/challenge-225/feng-chang/raku/ch-1.raku
@@ -0,0 +1,5 @@
+#!/bin/env raku
+
+unit sub MAIN(*@sentences);
+
+put @sentences».words».elems.max;
diff --git a/challenge-225/feng-chang/raku/ch-2.raku b/challenge-225/feng-chang/raku/ch-2.raku
new file mode 100755
index 0000000000..37f7d73e32
--- /dev/null
+++ b/challenge-225/feng-chang/raku/ch-2.raku
@@ -0,0 +1,8 @@
+#!/bin/env raku
+
+unit sub MAIN(*@N);
+
+my @left  = 0, |([\+] @N.head(*-1));
+my @right = (0, |([\+] @N.reverse.head(*-1))).reverse;
+
+put (^+@N).map({ abs(@left[$_] - @right[$_]) }).join(', ');
diff --git a/challenge-225/feng-chang/raku/test.raku b/challenge-225/feng-chang/raku/test.raku
new file mode 100755
index 0000000000..6429f14314
--- /dev/null
+++ b/challenge-225/feng-chang/raku/test.raku
@@ -0,0 +1,31 @@
+#!/bin/env raku
+
+# The Weekly Challenge 225
+use Test;
+
+sub pwc-test(Str:D $script, *@input) {
+    my ($expect, $assertion) = @input.splice(*-2, 2);
+    my $p = run $script, |@input, :out;
+    is $p.out.slurp(:close).chomp, $expect, $assertion;
+}
+
+# Task 1, Max Words
+pwc-test './ch-1.raku',
+    "Perl and Raku belong to the same family.",
+    "I love Perl.",
+    "The Perl and Raku Conference.",
+    8,
+    'Max Words: example 1, output: 8';
+pwc-test './ch-1.raku',
+    "The Weekly Challenge.",
+    "Python is the most popular guest language.",
+    "Team PWC has over 300 members.",
+    7,
+    'Max Words: example 2, output: 7';
+
+# Task 2, Left Right Sum Diff
+pwc-test './ch-2.raku', |<10 4 8 3>,  '15, 1, 11, 22',    'Left Right Sum Diff: (10, 4, 8, 3) => (15, 1, 11, 22)';
+pwc-test './ch-2.raku', 0,            '0',                'Left Right Sum Diff: (0) => (0)';
+pwc-test './ch-2.raku', |<1 2 3 4 5>, '14, 11, 6, 1, 10', 'Left Right Sum Diff: (1, 2, 3, 4, 5) => (14, 11, 6, 1, 10)';
+
+done-testing;
-- 
cgit