Merge pull request #8344 from E7-87-83/newt

Week 224 Task 2

1 files changed, 33 insertions, 0 deletions

diff --git a/challenge-224/cheok-yin-fung/perl/ch-2.pl b/challenge-224/cheok-yin-fung/perl/ch-2.pl
new file mode 100644
index 0000000000..d82a13a50d
--- /dev/null
+++ b/challenge-224/cheok-yin-fung/perl/ch-2.pl
@@ -0,0 +1,33 @@
+use v5.30.0;
+use warnings;
+use List::Util qw/max/;
+
+sub an {
+    my $n = $_[0];
+    for my $first (1..length($n)/2) {
+        for my $second (1..length($n)/2) {
+            my $x = substr($n, 0, $first);
+            my $y = substr($n, $first, $second);
+            my $sum = $first + $second;
+            my @arr = ($x, $y);
+            while ($sum < length $n) {
+                my $z = $x+$y;
+                push @arr, $z;
+                $sum += length($z);
+                $x = $y;
+                $y = $z;
+            }
+            return 1 if ($n eq join "", @arr) && $#arr > 1;
+        }
+    }
+    return 0;
+}
+
+
+use Test::More tests=>5;
+ok an(112358);
+ok !an(12345);
+ok an(199100199);
+ok an(199100199299);
+ok !an(1564898);
+