From 8f2a9c584fd921037ccfb8ec304865dae2d52796 Mon Sep 17 00:00:00 2001 From: Mohammad S Anwar Date: Wed, 3 Apr 2019 20:17:55 +0100 Subject: - Added solution by "James A Smith" for challenge 002. --- challenge-001/james-smith/perl6/ch-1.sh | 1 - challenge-001/james-smith/perl6/ch-2.p6 | 3 --- challenge-002/james-smith/README | 1 + challenge-002/james-smith/perl5/ch-1.sh | 3 +++ challenge-002/james-smith/perl5/ch-2.pl | 13 +++++++++++++ challenge-002/james-smith/perl6/ch-1.sh | 1 + challenge-002/james-smith/perl6/ch-2.p6 | 3 +++ 7 files changed, 21 insertions(+), 4 deletions(-) delete mode 100644 challenge-001/james-smith/perl6/ch-1.sh delete mode 100644 challenge-001/james-smith/perl6/ch-2.p6 create mode 100644 challenge-002/james-smith/README create mode 100644 challenge-002/james-smith/perl5/ch-1.sh create mode 100644 challenge-002/james-smith/perl5/ch-2.pl create mode 100644 challenge-002/james-smith/perl6/ch-1.sh create mode 100644 challenge-002/james-smith/perl6/ch-2.p6 diff --git a/challenge-001/james-smith/perl6/ch-1.sh b/challenge-001/james-smith/perl6/ch-1.sh deleted file mode 100644 index c4ef1e4e0a..0000000000 --- a/challenge-001/james-smith/perl6/ch-1.sh +++ /dev/null @@ -1 +0,0 @@ -perl6 -e 'say m/^0*(\d+[.\d+]?)/??"$0"!!$_ for @*ARGS' 121 0.012 -012 002 000 diff --git a/challenge-001/james-smith/perl6/ch-2.p6 b/challenge-001/james-smith/perl6/ch-2.p6 deleted file mode 100644 index 80d37995c2..0000000000 --- a/challenge-001/james-smith/perl6/ch-2.p6 +++ /dev/null @@ -1,3 +0,0 @@ -sub mp($n) {chr $n+($n < 10??48!!55)} -sub b35($n) {$n??b35(floor $n/35)~mp($n%35)!!''} -say b35 $_ for @*ARGS; 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-002/james-smith/perl6/ch-1.sh b/challenge-002/james-smith/perl6/ch-1.sh new file mode 100644 index 0000000000..c4ef1e4e0a --- /dev/null +++ b/challenge-002/james-smith/perl6/ch-1.sh @@ -0,0 +1 @@ +perl6 -e 'say m/^0*(\d+[.\d+]?)/??"$0"!!$_ for @*ARGS' 121 0.012 -012 002 000 diff --git a/challenge-002/james-smith/perl6/ch-2.p6 b/challenge-002/james-smith/perl6/ch-2.p6 new file mode 100644 index 0000000000..80d37995c2 --- /dev/null +++ b/challenge-002/james-smith/perl6/ch-2.p6 @@ -0,0 +1,3 @@ +sub mp($n) {chr $n+($n < 10??48!!55)} +sub b35($n) {$n??b35(floor $n/35)~mp($n%35)!!''} +say b35 $_ for @*ARGS; -- cgit