From 406fc651258b8962652ff140c4cc1f166a34557e Mon Sep 17 00:00:00 2001 From: Adam Russell Date: Tue, 23 Apr 2019 13:03:03 -0400 Subject: initial commit for challenge 005 --- challenge-005/adam-russell/blog.txt | 0 challenge-005/adam-russell/perl5/ch-1.pl | 12 ++++++++++++ challenge-005/adam-russell/perl5/ch-2.pl | 0 3 files changed, 12 insertions(+) create mode 100644 challenge-005/adam-russell/blog.txt create mode 100644 challenge-005/adam-russell/perl5/ch-1.pl create mode 100644 challenge-005/adam-russell/perl5/ch-2.pl diff --git a/challenge-005/adam-russell/blog.txt b/challenge-005/adam-russell/blog.txt new file mode 100644 index 0000000000..e69de29bb2 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 -- cgit