Week 273

2 files changed, 40 insertions, 0 deletions

diff --git a/challenge-273/cheok-yin-fung/perl/ch-1.pl b/challenge-273/cheok-yin-fung/perl/ch-1.pl
new file mode 100644
index 0000000000..6e76a2eecf
--- /dev/null
+++ b/challenge-273/cheok-yin-fung/perl/ch-1.pl
@@ -0,0 +1,20 @@
+# The Weekly Challenge 273
+# Task 1 Percentage of Character
+use v5.30.0;
+use warnings;
+use Math::Round qw/round/;
+
+sub sc {
+    my $str = $_[0];
+    my $char = $_[1];
+    my $per = (grep {$_ eq $char} split "", $str) / length $str;
+    return round(100*$per);
+}
+
+use Test::More tests=>6;
+ok sc("perl", "e") == 25;
+ok sc("java", "a") == 50;
+ok sc("python", "m") == 0;
+ok sc("ada", "a") == 67;
+ok sc("ballerina", "l") == 22;
+ok sc("analitik", "k") == 13;
diff --git a/challenge-273/cheok-yin-fung/perl/ch-2.pl b/challenge-273/cheok-yin-fung/perl/ch-2.pl
new file mode 100644
index 0000000000..8bb8f81ef9
--- /dev/null
+++ b/challenge-273/cheok-yin-fung/perl/ch-2.pl
@@ -0,0 +1,20 @@
+# The Weekly Challenge 273
+# Task 2 B After A
+use v5.30.0;
+use warnings;
+
+sub ab {
+    my $str = $_[0];
+    my $ind = index($str, "b");
+    my $ans = $ind >= 0 ? 1 : 0;
+    my $ind_a = index($str, "a", $ind);
+    $ans = $ans && ($ind_a >= 0 ? 0 : 1);
+    return $ans;
+}
+
+use Test::More tests=>5;
+ok ab("aabb");
+ok !ab("abab");
+ok !ab("aaa");
+ok ab("bbb");
+ok !ab("ccc");