diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2019-04-09 14:32:33 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-04-09 14:32:33 +0100 |
| commit | 51fdf3add92b0bd722958e593614ba533e7dfbad (patch) | |
| tree | ffd75cfe9a86f9224b40c465bb87621100659970 | |
| parent | 7bf69d63a90e6351a2666d831cec406461ec8943 (diff) | |
| parent | 094aab5236b5e74d1860362f7de3b6f7267a4825 (diff) | |
| download | perlweeklychallenge-club-51fdf3add92b0bd722958e593614ba533e7dfbad.tar.gz perlweeklychallenge-club-51fdf3add92b0bd722958e593614ba533e7dfbad.tar.bz2 perlweeklychallenge-club-51fdf3add92b0bd722958e593614ba533e7dfbad.zip | |
Merge pull request #37 from sergiotarxz/master
These are my solutions.
| -rw-r--r-- | challenge-003/sergiotarxz/perl5/ch-1.pl | 9 | ||||
| -rw-r--r-- | challenge-003/sergiotarxz/perl5/ch-2.pl | 10 |
2 files changed, 19 insertions, 0 deletions
diff --git a/challenge-003/sergiotarxz/perl5/ch-1.pl b/challenge-003/sergiotarxz/perl5/ch-1.pl new file mode 100644 index 0000000000..d4dedb814f --- /dev/null +++ b/challenge-003/sergiotarxz/perl5/ch-1.pl @@ -0,0 +1,9 @@ +use v5.28; +my @a = (2,3,5); +for (my $i=1; $i<$ARGV[0]; $i++) { + my $a = $i; + for (@a) { + $a/=$_ until $a%$_; + } + $a==1 and say $i; +} diff --git a/challenge-003/sergiotarxz/perl5/ch-2.pl b/challenge-003/sergiotarxz/perl5/ch-2.pl new file mode 100644 index 0000000000..e08c0b10d5 --- /dev/null +++ b/challenge-003/sergiotarxz/perl5/ch-2.pl @@ -0,0 +1,10 @@ +$ARGV[0] > 2 or die "This program requires at least 3 rows to work"; +for (my $i = 1; $i<=$ARGV[0]; $i++) { + my $c = 1; + print " "x($ARGV[0]-$i); + for (my $e = 1; $e<=$i; $e++) { + print "$c "; + $c = int($c*($i-$e)/$e); + } + print "\n"; +} |