From d579e514f4f37a998fb5efc74286b0cf413ad491 Mon Sep 17 00:00:00 2001 From: Mohammad S Anwar Date: Wed, 3 Apr 2019 20:02:51 +0100 Subject: - Added solution by "James A Smith" for challenge 001. --- challenge-001/james-smith/README | 1 + challenge-001/james-smith/perl5/ch-1.sh | 1 + challenge-001/james-smith/perl5/ch-2.sh | 1 + challenge-001/james-smith/perl6/ch-1.sh | 1 + challenge-001/james-smith/perl6/ch-2.p6 | 3 +++ 5 files changed, 7 insertions(+) create mode 100644 challenge-001/james-smith/README create mode 100644 challenge-001/james-smith/perl5/ch-1.sh create mode 100644 challenge-001/james-smith/perl5/ch-2.sh create mode 100644 challenge-001/james-smith/perl6/ch-1.sh create mode 100644 challenge-001/james-smith/perl6/ch-2.p6 diff --git a/challenge-001/james-smith/README b/challenge-001/james-smith/README new file mode 100644 index 0000000000..573d9eb02a --- /dev/null +++ b/challenge-001/james-smith/README @@ -0,0 +1 @@ +Solution by James Smith diff --git a/challenge-001/james-smith/perl5/ch-1.sh b/challenge-001/james-smith/perl5/ch-1.sh new file mode 100644 index 0000000000..70435d35ec --- /dev/null +++ b/challenge-001/james-smith/perl5/ch-1.sh @@ -0,0 +1 @@ +perl -E 'say my $n = (my $s = "Perl Weekly Challenge" )=~ y/e/E/; say $s;' diff --git a/challenge-001/james-smith/perl5/ch-2.sh b/challenge-001/james-smith/perl5/ch-2.sh new file mode 100644 index 0000000000..1e375cd941 --- /dev/null +++ b/challenge-001/james-smith/perl5/ch-2.sh @@ -0,0 +1 @@ +perl -E 'say "".($_%3?"":"Fizz").($_%5?"":"Buzz")||$_ for 1..20;' diff --git a/challenge-001/james-smith/perl6/ch-1.sh b/challenge-001/james-smith/perl6/ch-1.sh new file mode 100644 index 0000000000..c4ef1e4e0a --- /dev/null +++ b/challenge-001/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-001/james-smith/perl6/ch-2.p6 b/challenge-001/james-smith/perl6/ch-2.p6 new file mode 100644 index 0000000000..80d37995c2 --- /dev/null +++ b/challenge-001/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