From 1d04f6e89c3432691461695813d640f13ed0fcb7 Mon Sep 17 00:00:00 2001
From: Ruben Westerberg <drclaw@mac.com>
Date: Tue, 2 Apr 2019 06:24:58 +1000
Subject: Added solutions for w2c1

---
 challenge-002/ruben-westerberg/ch-1.p6 | 4 ++++
 challenge-002/ruben-westerberg/ch-1.pl | 5 +++++
 2 files changed, 9 insertions(+)
 create mode 100755 challenge-002/ruben-westerberg/ch-1.p6
 create mode 100755 challenge-002/ruben-westerberg/ch-1.pl

diff --git a/challenge-002/ruben-westerberg/ch-1.p6 b/challenge-002/ruben-westerberg/ch-1.p6
new file mode 100755
index 0000000000..4ce164234e
--- /dev/null
+++ b/challenge-002/ruben-westerberg/ch-1.p6
@@ -0,0 +1,4 @@
+#!/usr/bin/env perl6
+$_ = join " ",@*ARGS;
+
+s:g/(\-|\+)?(0+)(\d*\.?\d+)/{$0!~~"-"??($0//"")~$2!!$/}/;.say;
diff --git a/challenge-002/ruben-westerberg/ch-1.pl b/challenge-002/ruben-westerberg/ch-1.pl
new file mode 100755
index 0000000000..ac4cf70614
--- /dev/null
+++ b/challenge-002/ruben-westerberg/ch-1.pl
@@ -0,0 +1,5 @@
+#!/usr/bin/env perl
+#
+$_= join " ", @ARGV;#"010, 02, 0343";
+
+s/(\-|\+)?(0+)(\d*\.?\d+)/($1 ne "-") ? ($1 \/\/ "").$3:$&/ge;print $_;
-- 
cgit