From 553d046497724970361ac146943c5bdc7ca5dd0e Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Thu, 4 Apr 2019 18:27:39 +0100
Subject: - Added solution from "Dough Schrag".

---
 challenge-002/doug-schrag/perl6/ch-1.p6 | 5 +++++
 challenge-002/doug-schrag/perl6/ch-2.p6 | 6 ++++++
 2 files changed, 11 insertions(+)
 create mode 100644 challenge-002/doug-schrag/perl6/ch-1.p6
 create mode 100644 challenge-002/doug-schrag/perl6/ch-2.p6

diff --git a/challenge-002/doug-schrag/perl6/ch-1.p6 b/challenge-002/doug-schrag/perl6/ch-1.p6
new file mode 100644
index 0000000000..dc45f1aa15
--- /dev/null
+++ b/challenge-002/doug-schrag/perl6/ch-1.p6
@@ -0,0 +1,5 @@
+use v6;
+
+for @*ARGS {
+      :10($_).say
+}
diff --git a/challenge-002/doug-schrag/perl6/ch-2.p6 b/challenge-002/doug-schrag/perl6/ch-2.p6
new file mode 100644
index 0000000000..c49fee4235
--- /dev/null
+++ b/challenge-002/doug-schrag/perl6/ch-2.p6
@@ -0,0 +1,6 @@
+use v6;
+
+sub MAIN(Cool $n, Bool :$to35 = True, Bool :$to10 ) {
+        say $to10 ?? :35($n) !! $n.base(35);
+}
+
-- 
cgit