diff options
| -rw-r--r-- | challenge-141/alexander-pankoff/perl/ch-2.pl | 13 |
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( |