Merge pull request #5303 from akarelas/pr-alex

alexander karelas's solution to challenge 141 #2

1 files changed, 29 insertions, 0 deletions

diff --git a/challenge-141/alexander-karelas/ch-2.pl b/challenge-141/alexander-karelas/ch-2.pl
new file mode 100755
index 0000000000..37bd52afe9
--- /dev/null
+++ b/challenge-141/alexander-karelas/ch-2.pl
@@ -0,0 +1,29 @@
+#!/usr/bin/env perl
+
+use v5.32;
+use warnings;
+
+use List::Util 'any';
+
+use experimental 'signatures';
+
+sub find_like ($m, $n) {
+    my @digits = split //, $m;
+    my $length = @digits;
+    my @return;
+
+    for (my $i = 1; $i <= 2 ** $length - 2; $i++) {
+        my @onoff = split //, sprintf("%0${length}b", $i);
+        my $idx = 0;
+        my $candidate = join '', map {
+            my $digit = $digits[$_];
+            my $onoff = $onoff[$_];
+            $onoff ? ($digit) : ();
+        } (0 .. $length-1);
+        push @return, $candidate if $candidate % $n == 0;
+    }
+
+    return sort {$a <=> $b} @return;
+}
+
+say foreach find_like(@ARGV);