- Added solutions by Arne Sommer for Challenge 001.

6 files changed, 35 insertions, 0 deletions

diff --git a/challenge-001/arne-sommer/README b/challenge-001/arne-sommer/README
new file mode 100644
index 0000000000..b5d88e4df4
--- /dev/null
+++ b/challenge-001/arne-sommer/README
@@ -0,0 +1 @@
+Solution by Arne Sommer.
diff --git a/challenge-001/arne-sommer/blog.txt b/challenge-001/arne-sommer/blog.txt
new file mode 100644
index 0000000000..3984d2819e
--- /dev/null
+++ b/challenge-001/arne-sommer/blog.txt
@@ -0,0 +1 @@
+https://perl6.eu/fizz-e-buzz.html
diff --git a/challenge-001/arne-sommer/perl5/ch-1.pl b/challenge-001/arne-sommer/perl5/ch-1.pl
new file mode 100644
index 0000000000..42b85ec205
--- /dev/null
+++ b/challenge-001/arne-sommer/perl5/ch-1.pl
@@ -0,0 +1,9 @@
+#! /usr/bin/env perl
+
+use feature say;
+
+my $string = $ARGV[0] || 'Perl Weekly Challenge';  # [1]
+
+my $count = $string =~ tr/e/E/;                    # [2]
+
+say "$string (with $count replacements).";         # [3]
diff --git a/challenge-001/arne-sommer/perl5/ch-2.sh b/challenge-001/arne-sommer/perl5/ch-2.sh
new file mode 100644
index 0000000000..1a99fb2ca3
--- /dev/null
+++ b/challenge-001/arne-sommer/perl5/ch-2.sh
@@ -0,0 +1 @@
+perl -E 'say $_ % 5 == 0 ? ( $_ % 3 == 0 ? "fizzbuzz" : "buzz" ) : ($_ % 3 == 0? "fizz" : $_ ) for (1..20)'
diff --git a/challenge-001/arne-sommer/perl6/ch-1.p6 b/challenge-001/arne-sommer/perl6/ch-1.p6
new file mode 100644
index 0000000000..8f415fb33c
--- /dev/null
+++ b/challenge-001/arne-sommer/perl6/ch-1.p6
@@ -0,0 +1,8 @@
+sub MAIN (Str $string is copy = 'Perl Weekly Challenge'); # [1]
+{
+  my $count = $string ~~ tr/e/E/;
+
+  say "$string (with $count replacements).";
+}
+
+
diff --git a/challenge-001/arne-sommer/perl6/ch-2.p6 b/challenge-001/arne-sommer/perl6/ch-2.p6
new file mode 100644
index 0000000000..37c3c96df0
--- /dev/null
+++ b/challenge-001/arne-sommer/perl6/ch-2.p6
@@ -0,0 +1,15 @@
+for 1 .. 20 -> $curr      # [1]
+{
+  if $curr %% 5           # [2]
+  {
+    $curr %% 3 ?? say 'fizzbuzz' !! say 'buzz';  # [3]
+  }
+  elsif $curr %% 3        # [4]
+  {
+    say 'fizz';           # [4]
+  }
+  else
+  {
+    say $curr;            # [5]
+  }
+}