Add debug/explain mode to challenge 141 task 02

1 files changed, 13 insertions, 0 deletions

diff --git a/challenge-141/alexander-pankoff/perl/ch-2.pl b/challenge-141/alexander-pankoff/perl/ch-2.pl
index a2d1d0bea6..188ca57823 100644
--- a/challenge-141/alexander-pankoff/perl/ch-2.pl
+++ b/challenge-141/alexander-pankoff/perl/ch-2.pl
@@ -15,9 +15,22 @@ sub run() {
 
     my @possible_integers = numbers_from_digits($m);
     my @divisible_by_n    = grep { $_ % $n == 0 } @possible_integers;
+
+    explain( $m, $n, \@possible_integers, \@divisible_by_n ) if DEBUG;
     say scalar @divisible_by_n;
 }
 
+sub explain ( $m, $n, $possible_integers, $divisible_by_n ) {
+
+    say "Possible integers created using the digits of $m are:";
+    say join( ', ', sort { $a <=> $b } @$possible_integers );
+
+    say "There are "
+      . scalar(@$divisible_by_n)
+      . " integers divisible by $n such as:";
+    say join( ', ', sort { $a <=> $b } @$divisible_by_n );
+}
+
 sub numbers_from_digits($x) {
     my @digits  = split( '', $x );
     my $numbers = reduce(