diff options
| author | Myoungjin JEON <jeongoon@gmail.com> | 2020-09-11 01:19:26 +1000 |
|---|---|---|
| committer | Myoungjin JEON <jeongoon@gmail.com> | 2020-09-11 01:19:26 +1000 |
| commit | cee930fd1fd0a3f0fb9a2caf6aa578d569c37fce (patch) | |
| tree | b467bb1ef9efad41198811efaa7bd268686fe766 | |
| parent | 20fc303d563e660dcd790ccb7baa894d77de5695 (diff) | |
| parent | bac73b38eb313b198a7a03e3199926737dca7277 (diff) | |
| download | perlweeklychallenge-club-cee930fd1fd0a3f0fb9a2caf6aa578d569c37fce.tar.gz perlweeklychallenge-club-cee930fd1fd0a3f0fb9a2caf6aa578d569c37fce.tar.bz2 perlweeklychallenge-club-cee930fd1fd0a3f0fb9a2caf6aa578d569c37fce.zip | |
Merge remote-tracking branch 'upstream/master' into ch-077
121 files changed, 8181 insertions, 3095 deletions
diff --git a/challenge-002/shasank-shah/README b/challenge-002/shasank-shah/README new file mode 100644 index 0000000000..3d2d911c6e --- /dev/null +++ b/challenge-002/shasank-shah/README @@ -0,0 +1 @@ +Solution by Shasank Shah diff --git a/challenge-002/shasank-shah/perl/ch-1.pl b/challenge-002/shasank-shah/perl/ch-1.pl new file mode 100644 index 0000000000..e9223cac3b --- /dev/null +++ b/challenge-002/shasank-shah/perl/ch-1.pl @@ -0,0 +1,17 @@ +#! /usr/bin/perl +use v5.22; +say 'Casting with addition'; +print 'Number? '; +say 0 + <>; + +say 'Regex substitution'; +print 'Number? '; +say <> =~ s/^0*(\d+)$/$1/r; + +say 'Explicit integer casting'; +print 'Number? '; +say int <>; + +say 'Using map and a flip flop'; +print 'Number? '; +say join '', map { /[^0]/ .. /\n/ ? $_ : () } split //, <>; diff --git a/challenge-002/shasank-shah/perl/ch-2.pl b/challenge-002/shasank-shah/perl/ch-2.pl new file mode 100644 index 0000000000..1d67909982 --- /dev/null +++ b/challenge-002/shasank-shah/perl/ch-2.pl @@ -0,0 +1,46 |