Week 176

4 files changed, 48 insertions, 0 deletions

diff --git a/challenge-176/cheok-yin-fung/blog.txt b/challenge-176/cheok-yin-fung/blog.txt
new file mode 100644
index 0000000000..6d6f0d1a3d
--- /dev/null
+++ b/challenge-176/cheok-yin-fung/blog.txt
@@ -0,0 +1 @@
+https://e7-87-83.github.io/coding/challenge_176.html
diff --git a/challenge-176/cheok-yin-fung/perl/ch-1.pl b/challenge-176/cheok-yin-fung/perl/ch-1.pl
new file mode 100644
index 0000000000..f3f5654654
--- /dev/null
+++ b/challenge-176/cheok-yin-fung/perl/ch-1.pl
@@ -0,0 +1,34 @@
+use v5.30.0;
+use warnings;
+
+my $t = 0;
+my $k = 1;
+while ($t < 1) {
+    $k++;
+    if ($k =~ /[6789]/) {
+        if (check_good("1".$k, [2,3,4,5,6])) {
+            $t++;
+            say "1".$k;
+        }
+    }
+}
+
+sub check_good {
+    my $i = $_[0];
+    my @arr = $_[1]->@*;
+    my $count = 0;
+    my $dc = arrange($i);
+    for (@arr) {
+        if ( arrange($_*$i) eq $dc ) {
+            $count++;
+        }
+        else {
+            last;
+        }
+    }
+    return $count == scalar @arr;
+}
+
+sub arrange {
+    return join "", sort {$a<=>$b} split "", $_[0];
+}
diff --git a/challenge-176/cheok-yin-fung/perl/ch-2.pl b/challenge-176/cheok-yin-fung/perl/ch-2.pl
new file mode 100644
index 0000000000..5f5e694248
--- /dev/null
+++ b/challenge-176/cheok-yin-fung/perl/ch-2.pl
@@ -0,0 +1,13 @@
+# The Weekly Challenge 176
+# Task 2 Reversible Numbers
+
+use v5.30.0;
+use warnings;
+
+my @arr;
+for (1..99) {
+    push @arr, $_ if ($_ + (scalar reverse $_) ) =~ /^[13579]+$/ ;
+}
+
+say join ", ", @arr;
+
diff --git a/data/dictionary.txt b/data/dictionary.txt
index 1f915f2975..1f915f2975 100755..100644
--- a/data/dictionary.txt
+++ b/data/dictionary.txt