Week 200

2 files changed, 75 insertions, 0 deletions

diff --git a/challenge-200/cheok-yin-fung/perl/ch-1.pl b/challenge-200/cheok-yin-fung/perl/ch-1.pl
new file mode 100644
index 0000000000..acf84c12bc
--- /dev/null
+++ b/challenge-200/cheok-yin-fung/perl/ch-1.pl
@@ -0,0 +1,25 @@
+# The Weekly Challenge 200
+# Task 1 Arithmetic Slices
+use v5.30.0;
+use warnings;
+use Algorithm::Combinatorics qw/combinations/;
+
+my @a = @ARGV;
+@a = (1,2,3,4) if scalar @ARGV == 0;
+
+for my $i (3..1+$#a) {
+    my $iter = combinations(\@a, $i);
+    while (my $p = $iter->next) {
+        say join ",", $p->@* if verify($p);
+    }
+}
+
+sub verify {
+    my @a = $_[0]->@*;
+    return 0 if scalar @a < 3;
+    my $diff = $a[1]-$a[0];
+    for (1..$#a-1) {
+        return 0 if $diff != $a[$_+1]-$a[$_];
+    }
+    return 1;
+}
diff --git a/challenge-200/cheok-yin-fung/perl/ch-2.pl b/challenge-200/cheok-yin-fung/perl/ch-2.pl
new file mode 100644
index 0000000000..e555efe364
--- /dev/null
+++ b/challenge-200/cheok-yin-fung/perl/ch-2.pl
@@ -0,0 +1,50 @@
+# The Weekly Challenge 200
+# Task 1 Seven Segment 200
+use v5.30.0;
+use warnings;
+
+my @truth = qw<abcdef bc     abdeg abcdg   bcfg 
+               acdfg  acdefg abc   abcdefg abcfg>;
+
+draw($ARGV[0] || 200);
+
+sub draw {
+    my @arr = split "", $_[0];
+    for my $d (0..$#arr) {
+        drawA(index($truth[$arr[$d]], "a"));
+        print(($d==$#arr)?"\n":"  ");
+    }
+    for (1..2) {
+        for my $d (0..$#arr) {
+            drawFB(index($truth[$arr[$d]], "f"), index($truth[$arr[$d]], "b"));
+            print(($d==$#arr)?"\n":"  ");
+        }
+    }
+    for my $d (0..$#arr) {
+        drawA(index($truth[$arr[$d]], "g"));
+        print(($d==$#arr)?"\n":"  ");
+    }
+    for (1..2) {
+        for my $d (0..$#arr) {
+            drawFB(index($truth[$arr[$d]], "e"), index($truth[$arr[$d]], "c"));
+            print(($d==$#arr)?"\n":"  ");
+        }
+    }
+    for my $d (0..$#arr) {
+        drawA(index($truth[$arr[$d]], "d"));
+        print(($d==$#arr)?"\n":"  ");
+    }
+}
+
+
+sub drawA {
+    print "       " if $_[0] == -1;
+    print "-------" if $_[0] != -1;
+}
+
+sub drawFB {
+    print "       " if $_[0] == -1 && $_[1] == -1;
+    print "|      " if $_[0] != -1 && $_[1] == -1;
+    print "      |" if $_[0] == -1 && $_[1] != -1;
+    print "|     |" if $_[0] != -1 && $_[1] != -1;
+}