diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-04-03 20:17:55 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-04-03 20:17:55 +0100 |
| commit | 8f2a9c584fd921037ccfb8ec304865dae2d52796 (patch) | |
| tree | dff053b0b647a39fd9d8e5babbf2738d56e3b3fa | |
| parent | d579e514f4f37a998fb5efc74286b0cf413ad491 (diff) | |
| download | perlweeklychallenge-club-8f2a9c584fd921037ccfb8ec304865dae2d52796.tar.gz perlweeklychallenge-club-8f2a9c584fd921037ccfb8ec304865dae2d52796.tar.bz2 perlweeklychallenge-club-8f2a9c584fd921037ccfb8ec304865dae2d52796.zip | |
- Added solution by "James A Smith" for challenge 002.
| -rw-r--r-- | challenge-002/james-smith/README | 1 | ||||
| -rw-r--r-- | challenge-002/james-smith/perl5/ch-1.sh | 3 | ||||
| -rw-r--r-- | challenge-002/james-smith/perl5/ch-2.pl | 13 | ||||
| -rw-r--r-- | challenge-002/james-smith/perl6/ch-1.sh (renamed from challenge-001/james-smith/perl6/ch-1.sh) | 0 | ||||
| -rw-r--r-- | challenge-002/james-smith/perl6/ch-2.p6 (renamed from challenge-001/james-smith/perl6/ch-2.p6) | 0 |
5 files changed, 17 insertions, 0 deletions
diff --git a/challenge-002/james-smith/README b/challenge-002/james-smith/README new file mode 100644 index 0000000000..573d9eb02a --- /dev/null +++ b/challenge-002/james-smith/README @@ -0,0 +1 @@ +Solution by James Smith diff --git a/challenge-002/james-smith/perl5/ch-1.sh b/challenge-002/james-smith/perl5/ch-1.sh new file mode 100644 index 0000000000..b7cb3bfea7 --- /dev/null +++ b/challenge-002/james-smith/perl5/ch-1.sh @@ -0,0 +1,3 @@ +perl -E 'say /^0*(\d+(?:[.]\d+)?)/?$1:$_ for @ARGV' 121 0.012 -012 002 000 + +perl -E 'say s/^0+(?=\d)//r for @ARGV' 42983832 16031952 1089991 diff --git a/challenge-002/james-smith/perl5/ch-2.pl b/challenge-002/james-smith/perl5/ch-2.pl new file mode 100644 index 0000000000..e807b1731a --- /dev/null +++ b/challenge-002/james-smith/perl5/ch-2.pl @@ -0,0 +1,13 @@ +use strict; + +sub base35 { + my $o = ''; + for( shift; $_; ) { + $_ = ( $_ - (my $t = $_%35) )/ 35; + $o .= chr $t+($t<10?48:55); + } + return scalar reverse $o; +} + +print $_,"\t", base35( $_ ),"\n" foreach @ARGV; + diff --git a/challenge-001/james-smith/perl6/ch-1.sh b/challenge-002/james-smith/perl6/ch-1.sh index c4ef1e4e0a..c4ef1e4e0a 100644 --- a/challenge-001/james-smith/perl6/ch-1.sh +++ b/challenge-002/james-smith/perl6/ch-1.sh diff --git a/challenge-001/james-smith/perl6/ch-2.p6 b/challenge-002/james-smith/perl6/ch-2.p6 index 80d37995c2..80d37995c2 100644 --- a/challenge-001/james-smith/perl6/ch-2.p6 +++ b/challenge-002/james-smith/perl6/ch-2.p6 |