diff options
| -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 |