diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-04-03 20:02:51 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-04-03 20:02:51 +0100 |
| commit | d579e514f4f37a998fb5efc74286b0cf413ad491 (patch) | |
| tree | b4ee74a8330ec7087c107dc69b0eed11e6ebf970 /challenge-001 | |
| parent | 2298f27384b3093cee40eb6ec4846df47a7e5385 (diff) | |
| download | perlweeklychallenge-club-d579e514f4f37a998fb5efc74286b0cf413ad491.tar.gz perlweeklychallenge-club-d579e514f4f37a998fb5efc74286b0cf413ad491.tar.bz2 perlweeklychallenge-club-d579e514f4f37a998fb5efc74286b0cf413ad491.zip | |
- Added solution by "James A Smith" for challenge 001.
Diffstat (limited to 'challenge-001')
| -rw-r--r-- | challenge-001/james-smith/README | 1 | ||||
| -rw-r--r-- | challenge-001/james-smith/perl5/ch-1.sh | 1 | ||||
| -rw-r--r-- | challenge-001/james-smith/perl5/ch-2.sh | 1 | ||||
| -rw-r--r-- | challenge-001/james-smith/perl6/ch-1.sh | 1 | ||||
| -rw-r--r-- | challenge-001/james-smith/perl6/ch-2.p6 | 3 |
5 files changed, 7 insertions, 0 deletions
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; |