diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-02-16 21:12:20 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-02-16 21:12:20 +0000 |
| commit | 777c7bfff40145aeef304304b7eedff4dad9daf3 (patch) | |
| tree | 33417e3dc36ff2d36aacf60aa9043aa2e7db9138 /challenge-047 | |
| parent | a67cb147226498c80507c7cf6de4fdfeb9252cf9 (diff) | |
| parent | 9c1aaa40ba91b86aa1a3b9d189f711e0b534e3b4 (diff) | |
| download | perlweeklychallenge-club-777c7bfff40145aeef304304b7eedff4dad9daf3.tar.gz perlweeklychallenge-club-777c7bfff40145aeef304304b7eedff4dad9daf3.tar.bz2 perlweeklychallenge-club-777c7bfff40145aeef304304b7eedff4dad9daf3.zip | |
Merge pull request #1261 from Cris-HD/branch-for-challenge-047
Added second challenge
Diffstat (limited to 'challenge-047')
| -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 |