From 01c4ceda01fe634ae72d6f132c20eadbb629fa71 Mon Sep 17 00:00:00 2001
From: Alexander <39702500+threadless-screw@users.noreply.github.com>
Date: Wed, 3 Apr 2019 20:50:12 +0000
Subject: Create ch-1.p6

---
 challenge-002/ozzy/perl6/ch-1.p6 | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 challenge-002/ozzy/perl6/ch-1.p6

diff --git a/challenge-002/ozzy/perl6/ch-1.p6 b/challenge-002/ozzy/perl6/ch-1.p6
new file mode 100644
index 0000000000..cd98d990b9
--- /dev/null
+++ b/challenge-002/ozzy/perl6/ch-1.p6
@@ -0,0 +1,16 @@
+#!/usr/bin/env perl6 
+# The simplest solution I could think of was conversion of a numeric (integer) string through 
+# the use of the built-in Int method. Provide a commandline argument like "004", and the script
+# will output: 4.
+#
+# In a Perl6/Bash one-liner, this would look something like this:
+#   perl6 -pe '$_=.Int' <<< "004"
+# but this, in itself, isn't very practical since Bash can do it with even less fuzz:
+#   a="004"
+#   echo ${a##+(0)}
+
+sub MAIN (Str $numeric_string) {
+
+    say $numeric_string.Int;
+}
+
-- 
cgit 


From 4db60445891bf5b0542d858455711b0d11fd5f2d Mon Sep 17 00:00:00 2001
From: Alexander <39702500+threadless-screw@users.noreply.github.com>
Date: Wed, 3 Apr 2019 20:52:48 +0000
Subject: Create ch-2.p6

---
 challenge-002/ozzy/perl6/ch-2.p6 | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 challenge-002/ozzy/perl6/ch-2.p6

diff --git a/challenge-002/ozzy/perl6/ch-2.p6 b/challenge-002/ozzy/perl6/ch-2.p6
new file mode 100644
index 0000000000..bda3f4c372
--- /dev/null
+++ b/challenge-002/ozzy/perl6/ch-2.p6
@@ -0,0 +1,12 @@
+#!/usr/bin/env perl6                                                                                                                                                                 
+# The obvious way to go is probably the use of Perl6' .base and .parse-base methods:
+
+loop {
+
+   my Str $a = prompt("\nPlease, give me a decimal (base-10) number : ");
+   say("$a in decimal notation is { $a.Int.base(35) } in base-35 notation.");
+
+   $a = prompt("\nNow give me a base-35 number [A-Y0-9]: ");
+   say("$a in base-35 notation is { $a.parse-base(35) } in base-10 notation.")
+
+ } 
-- 
cgit 


From e66c99df361b026bb1b7af6dcfeda8a6607767cf Mon Sep 17 00:00:00 2001
From: Alexander <39702500+threadless-screw@users.noreply.github.com>
Date: Wed, 3 Apr 2019 20:53:24 +0000
Subject: Update README

---
 challenge-002/ozzy/README | 35 -----------------------------------
 1 file changed, 35 deletions(-)

diff --git a/challenge-002/ozzy/README b/challenge-002/ozzy/README
index 40d33b4f43..44e39371ef 100644
--- a/challenge-002/ozzy/README
+++ b/challenge-002/ozzy/README
@@ -1,36 +1 @@
 Solution by Ozzy
-
-------------
-Challenge 1:
-------------
-The simplest solution I could think of was conversion of a numeric (integer) string through 
-the use of the built-in Int method:
-
-  my $a = "004"       # Example string representing positive integer with leading zeros
-  my $b = $a.Int      # Convert string to Int using built-in method Int, and so strip zeros
-  say $b              # Print the Int; OUTPUT: 4
-
-In a Perl6/Bash one-liner, this would look something like this:
-
-  perl6 -pe '$_=.Int' <<< 004
-
-but this, in itself, isn't very practical since Bash can do it with even less fuzz:
-
-  a="004"
-  echo ${a##+(0)}
-
-------------
-Challenge 2:
-------------
-The obvious way to go is probably the use of Perl6' .base and .parse-base methods:
-
-loop {
-
-    my Str $a = prompt("\nPlease, give me a decimal (base-10) number : ");
-    say("$a in decimal notation is { $a.Int.base(35) } in base-35 notation.");
-
-    $a = prompt("\nNow give me a base-35 number [A-Y0-9]: ");
-    say("$a in base-35 notation is { $a.parse-base(35) } in base-10 notation.")
-
-}
-
-- 
cgit