Solutions for challenges 001-005

5 files changed, 52 insertions, 0 deletions

diff --git a/challenge-001/ryan-thompson/README b/challenge-001/ryan-thompson/README
new file mode 100644
index 0000000000..53b1e7cfa0
--- /dev/null
+++ b/challenge-001/ryan-thompson/README
@@ -0,0 +1 @@
+Solutions by Ryan Thompson.
diff --git a/challenge-001/ryan-thompson/perl5/ch-1.pl b/challenge-001/ryan-thompson/perl5/ch-1.pl
new file mode 100755
index 0000000000..43570e88a1
--- /dev/null
+++ b/challenge-001/ryan-thompson/perl5/ch-1.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/env perl
+#
+# ch-1.pl - s/e/E/g
+#
+# 2019 Ryan Thompson <rjt@cpan.org>
+
+use 5.010;
+use warnings;
+use strict;
+
+my $str = 'Perl Weekly Challenge';
+my $count = $str =~ tr/e/E/;
+
+say "$str -> e x $count";
diff --git a/challenge-001/ryan-thompson/perl5/ch-2.pl b/challenge-001/ryan-thompson/perl5/ch-2.pl
new file mode 100755
index 0000000000..c066e37ead
--- /dev/null
+++ b/challenge-001/ryan-thompson/perl5/ch-2.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/env perl
+#
+# ch-2.pl - FizzBuzz "one-liner"
+#
+# 2019 Ryan Thompson <rjt@cpan.org>
+
+use 5.010;
+
+say !($_ % 15) ? 'fizzbuzz'
+  : !($_ %  3) ? 'fizz'
+  : !($_ %  5) ? 'buzz'
+  :              $_ for 1..20;
diff --git a/challenge-001/ryan-thompson/perl6/ch-1.p6 b/challenge-001/ryan-thompson/perl6/ch-1.p6
new file mode 100755
index 0000000000..08c7107545
--- /dev/null
+++ b/challenge-001/ryan-thompson/perl6/ch-1.p6
@@ -0,0 +1,11 @@
+#!/usr/bin/env perl6
+
+# ch-1.p6 - s/e/E/g
+#
+# Ryan Thompson <rjt@cpan.org>
+
+use v6;
+
+my Str $str = 'Perl Weekly Challenge';
+my $distance = $str ~~ tr/e/E/;
+say "$str -> e x " ~ $distance.Int;
diff --git a/challenge-001/ryan-thompson/perl6/ch-2.p6 b/challenge-001/ryan-thompson/perl6/ch-2.p6
new file mode 100755
index 0000000000..5b3ff142e5
--- /dev/null
+++ b/challenge-001/ryan-thompson/perl6/ch-2.p6
@@ -0,0 +1,14 @@
+#!/usr/bin/env perl6
+
+# ch-2.p6 - FizzBuzz "one-liner"
+#
+# Ryan Thompson <rjt@cpan.org>
+
+use v6;
+
+(1..20).map({
+    !($_ % 15) ?? 'fizzbuzz'
+ !! !($_ %  3) ?? 'fizz'
+ !! !($_ %  5) ?? 'buzz'
+ !!               $_
+})».say;