diff options
| author | Ruben Westerberg <drclaw@mac.com> | 2019-04-02 06:24:58 +1000 |
|---|---|---|
| committer | Ruben Westerberg <drclaw@mac.com> | 2019-04-02 06:25:25 +1000 |
| commit | 1d04f6e89c3432691461695813d640f13ed0fcb7 (patch) | |
| tree | 52c12e439627878da1d41f2c4f240ead54bdaf76 | |
| parent | 426305beb72a90e80ea85ca3fc1190e637a142f2 (diff) | |
| download | perlweeklychallenge-club-1d04f6e89c3432691461695813d640f13ed0fcb7.tar.gz perlweeklychallenge-club-1d04f6e89c3432691461695813d640f13ed0fcb7.tar.bz2 perlweeklychallenge-club-1d04f6e89c3432691461695813d640f13ed0fcb7.zip | |
Added solutions for w2c1
| -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 $_; |