From cef503dd4490f0574763a57cb4827e02a44b89fa Mon Sep 17 00:00:00 2001
From: CY Fung <fungcheokyin@gmail.com>
Date: Mon, 30 Oct 2023 04:11:28 +0800
Subject: Week 240

---
 challenge-240/cheok-yin-fung/perl/ch-1.pl | 15 +++++++++++++++
 challenge-240/cheok-yin-fung/perl/ch-2.pl | 16 ++++++++++++++++
 2 files changed, 31 insertions(+)
 create mode 100644 challenge-240/cheok-yin-fung/perl/ch-1.pl
 create mode 100644 challenge-240/cheok-yin-fung/perl/ch-2.pl

diff --git a/challenge-240/cheok-yin-fung/perl/ch-1.pl b/challenge-240/cheok-yin-fung/perl/ch-1.pl
new file mode 100644
index 0000000000..9c81edc391
--- /dev/null
+++ b/challenge-240/cheok-yin-fung/perl/ch-1.pl
@@ -0,0 +1,15 @@
+# The Weekly Challenge 240
+# Task 1 Acronym
+use v5.30.0;
+use warnings;
+
+sub ac {
+    my @str = $_[0]->@*;
+    my $chk = $_[1];
+    return (join "", map { lc substr($_, 0, 1) } @str) eq lc $chk;
+}
+
+use Test::More tests=>3;
+ok ac(["Perl", "Python", "Pascal"], "ppp");
+ok !ac(["Perl", "Raku"], "rp");
+ok ac(["Oracle", "Awk", "C"], "oac");
diff --git a/challenge-240/cheok-yin-fung/perl/ch-2.pl b/challenge-240/cheok-yin-fung/perl/ch-2.pl
new file mode 100644
index 0000000000..0da5624712
--- /dev/null
+++ b/challenge-240/cheok-yin-fung/perl/ch-2.pl
@@ -0,0 +1,16 @@
+# The Weekly Challenge 240
+# Task 2 Build Array
+use v5.30.0;
+use warnings;
+
+sub ba {
+    my @int = @_;
+    my @new = map {$int[$int[$_]]} (0..$#int);
+    return [@new];
+}
+
+use Test::More tests=>2;
+use Test::Deep;
+
+cmp_deeply ba(0, 2, 1, 5, 3, 4), [0, 1, 2, 4, 5, 3];
+cmp_deeply ba(5, 0, 1, 2, 3, 4), [4, 5, 0, 1, 2, 3];
-- 
cgit