diff options
| author | Adam Russell <ac.russell@live.com> | 2019-09-01 17:18:50 -0400 |
|---|---|---|
| committer | Adam Russell <ac.russell@live.com> | 2019-09-01 17:18:50 -0400 |
| commit | 21cb1d0b225e6dc81a30d810c3f4063b7570bd1a (patch) | |
| tree | 6b2b15508f91f45c80c7d44ca21bd43a374f8af4 | |
| parent | 5a0df47ac7abb69a2612891332c9b1594b308428 (diff) | |
| download | perlweeklychallenge-club-21cb1d0b225e6dc81a30d810c3f4063b7570bd1a.tar.gz perlweeklychallenge-club-21cb1d0b225e6dc81a30d810c3f4063b7570bd1a.tar.bz2 perlweeklychallenge-club-21cb1d0b225e6dc81a30d810c3f4063b7570bd1a.zip | |
solutions for challenge 023
| -rw-r--r-- | challenge-023/adam-russell/perl5/ch-1.pl | 4 | ||||
| -rw-r--r-- | challenge-023/adam-russell/perl5/ch-2.pl | 15 | ||||
| -rw-r--r-- | challenge-023/adam-russell/perl5/ch-3.pl | 0 |
3 files changed, 10 insertions, 9 deletions
diff --git a/challenge-023/adam-russell/perl5/ch-1.pl b/challenge-023/adam-russell/perl5/ch-1.pl index 8823af7154..77e4f5ffaf 100644 --- a/challenge-023/adam-russell/perl5/ch-1.pl +++ b/challenge-023/adam-russell/perl5/ch-1.pl @@ -3,8 +3,6 @@ use warnings; ## # Create a script that prints nth order forward difference series. ## -use Data::Dump q/pp/; - sub forward_difference{ my($order, $numbers) = @_; if(!$order || @{$numbers} == 1){ @@ -27,5 +25,5 @@ MAIN:{ my $order = $ARGV[0]; my @numbers = @ARGV[1 .. (@ARGV - 1)]; my $reduced = forward_difference($order, \@numbers); - print pp $reduced; + print join(", ", @{$reduced}) . "\n"; } diff --git a/challenge-023/adam-russell/perl5/ch-2.pl b/challenge-023/adam-russell/perl5/ch-2.pl index e384e411e3..75c5561781 100644 --- a/challenge-023/adam-russell/perl5/ch-2.pl +++ b/challenge-023/adam-russell/perl5/ch-2.pl @@ -1,5 +1,8 @@ -use Data::Dump q/pp/; - +use strict; +use warnings; +## +# Create a script that prints Prime Decomposition of a given number. +## sub prime_factor{ my $x = shift(@_); my @factors; @@ -12,7 +15,7 @@ sub prime_factor{ return @factors; } -print pp prime_factor(228); -print pp prime_factor(100); -print pp prime_factor(110); - +MAIN:{ + my $n = $ARGV[0]; + print join(", ", prime_factor($n)) . "\n"; +} diff --git a/challenge-023/adam-russell/perl5/ch-3.pl b/challenge-023/adam-russell/perl5/ch-3.pl deleted file mode 100644 index e69de29bb2..0000000000 --- a/challenge-023/adam-russell/perl5/ch-3.pl +++ /dev/null |