From 84675e41ffaaa804f00c7f35ddbd0a7e37ea2dce Mon Sep 17 00:00:00 2001
From: CY Fung <fungcheokyin@gmail.com>
Date: Sun, 5 Feb 2023 22:51:02 +0800
Subject: Week 202 Task 1

---
 challenge-202/cheok-yin-fung/perl/ch-1.pl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 challenge-202/cheok-yin-fung/perl/ch-1.pl

diff --git a/challenge-202/cheok-yin-fung/perl/ch-1.pl b/challenge-202/cheok-yin-fung/perl/ch-1.pl
new file mode 100644
index 0000000000..5f3fea5a16
--- /dev/null
+++ b/challenge-202/cheok-yin-fung/perl/ch-1.pl
@@ -0,0 +1,16 @@
+# The Weekly Challenge 202
+# Task 1 Consecutive Odds
+use v5.30.0;
+use warnings;
+
+sub co {
+    my @array = @_;
+    $_ = join "", map {$_ % 2} @array;
+    return /111/ ? 1 : 0;
+}
+
+use Test::More tests => 4;
+ok co(1,5,3,6) == 1;
+ok co(2,6,3,5) == 0;
+ok co(1,2,3,4) == 0;
+ok co(2,3,5,7) == 1;
-- 
cgit