Week 281

2 files changed, 16 insertions, 0 deletions

diff --git a/challenge-281/cheok-yin-fung/blog.txt b/challenge-281/cheok-yin-fung/blog.txt
new file mode 100644
index 0000000000..35d7beadc1
--- /dev/null
+++ b/challenge-281/cheok-yin-fung/blog.txt
@@ -0,0 +1 @@
+https://cylivesstem.wordpress.com/2024/08/10/where-is-the-chess-piece-going-to/
diff --git a/challenge-281/cheok-yin-fung/perl/ch-1.pl b/challenge-281/cheok-yin-fung/perl/ch-1.pl
new file mode 100644
index 0000000000..f957379a1a
--- /dev/null
+++ b/challenge-281/cheok-yin-fung/perl/ch-1.pl
@@ -0,0 +1,15 @@
+# The Weekly Challenge 281
+# Task 1 Check Color
+use v5.30;
+use warnings;
+
+sub cc {
+    my $coord = $_[0];
+    my $pos = [ord(substr($coord,0,1))-ord("a"), substr($coord,1,2)-1];
+    return ($pos->[0]-$pos->[1]) % 2;
+}
+
+use Test::More tests=>3;
+ok cc("d3");
+ok !cc("g5");
+ok cc("e6");