diff options
| -rwxr-xr-x | challenge-002/ruben-westerberg/ch-1.p6 | 4 | ||||
| -rwxr-xr-x | challenge-002/ruben-westerberg/ch-1.pl | 5 |
2 files changed, 9 insertions, 0 deletions
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 $_; |