diff options
| author | Adam Russell <ac.russell@live.com> | 2019-04-23 13:03:03 -0400 |
|---|---|---|
| committer | Adam Russell <ac.russell@live.com> | 2019-04-23 13:03:03 -0400 |
| commit | 406fc651258b8962652ff140c4cc1f166a34557e (patch) | |
| tree | 1e7537fb3f11d9b2fb54cd1a7567a5e166f10bcd | |
| parent | 5be2e50c200ff7b0a81ab24bd825e374cc7f231c (diff) | |
| download | perlweeklychallenge-club-406fc651258b8962652ff140c4cc1f166a34557e.tar.gz perlweeklychallenge-club-406fc651258b8962652ff140c4cc1f166a34557e.tar.bz2 perlweeklychallenge-club-406fc651258b8962652ff140c4cc1f166a34557e.zip | |
initial commit for challenge 005
| -rw-r--r-- | challenge-005/adam-russell/blog.txt | 0 | ||||
| -rw-r--r-- | challenge-005/adam-russell/perl5/ch-1.pl | 12 | ||||
| -rw-r--r-- | challenge-005/adam-russell/perl5/ch-2.pl | 0 |
3 files changed, 12 insertions, 0 deletions
diff --git a/challenge-005/adam-russell/blog.txt b/challenge-005/adam-russell/blog.txt new file mode 100644 index 0000000000..e69de29bb2 --- /dev/null +++ b/challenge-005/adam-russell/blog.txt diff --git a/challenge-005/adam-russell/perl5/ch-1.pl b/challenge-005/adam-russell/perl5/ch-1.pl new file mode 100644 index 0000000000..dfc66d51de --- /dev/null +++ b/challenge-005/adam-russell/perl5/ch-1.pl @@ -0,0 +1,12 @@ +use strict; +use warnings; + +my $x = shift; # some number argument + +for ( my $y = 2; $y <= $x; $y++ ) { + next if $x % $y; + $x /= $y; + print $y, "\n"; + redo; +} + diff --git a/challenge-005/adam-russell/perl5/ch-2.pl b/challenge-005/adam-russell/perl5/ch-2.pl new file mode 100644 index 0000000000..e69de29bb2 --- /dev/null +++ b/challenge-005/adam-russell/perl5/ch-2.pl |