diff options
| -rw-r--r-- | challenge-047/cristian-heredia/perl/ch-2.pl | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/challenge-047/cristian-heredia/perl/ch-2.pl b/challenge-047/cristian-heredia/perl/ch-2.pl new file mode 100644 index 0000000000..3fcab7d918 --- /dev/null +++ b/challenge-047/cristian-heredia/perl/ch-2.pl @@ -0,0 +1,25 @@ +use strict; +use warnings; + +#Gapful Number +#Write a script to print first 20 Gapful Numbers greater than or equal to 100. Please check out the page for more information about Gapful Numbers. + +my $max = 20; +my $counter = 0; +my @divided; +my @solution; + +for (my $number = 100; $counter < $max; $number++) { + my $newNumber; + @divided = split(/d?/, $number); + $newNumber = @divided[0].@divided[@divided-1]; + if (($number % $newNumber) == 0) { + push(@solution, $number); + $counter++; + } +} +print "The first $max Gapful Numbers are:\n"; + +for (my $i = 0; $i < @solution; $i++) { + print "@solution[$i]\n"; +}
\ No newline at end of file |