diff options
| author | Adam Russell <ac.russell@live.com> | 2019-08-18 18:06:16 -0400 |
|---|---|---|
| committer | Adam Russell <ac.russell@live.com> | 2019-08-18 18:06:16 -0400 |
| commit | 62ba50d9a00b492a4e06b2648b52fbb608e68dd8 (patch) | |
| tree | 7dc170f96e4cf227c0daa81cec44da881672e63b /challenge-021 | |
| parent | 64c3a44ea7c3ffcaeca25ddb4da45233b7608394 (diff) | |
| download | perlweeklychallenge-club-62ba50d9a00b492a4e06b2648b52fbb608e68dd8.tar.gz perlweeklychallenge-club-62ba50d9a00b492a4e06b2648b52fbb608e68dd8.tar.bz2 perlweeklychallenge-club-62ba50d9a00b492a4e06b2648b52fbb608e68dd8.zip | |
solutions for challenge-021
Diffstat (limited to 'challenge-021')
| -rw-r--r-- | challenge-021/adam-russell/README | 2 | ||||
| -rw-r--r-- | challenge-021/adam-russell/blog.txt | 2 | ||||
| -rw-r--r-- | challenge-021/adam-russell/perl5/UrlGrammar.yp | 2 | ||||
| -rw-r--r-- | challenge-021/adam-russell/perl5/ch-1.pl | 2 | ||||
| -rw-r--r-- | challenge-021/adam-russell/perl5/ch-2.pl | 2 | ||||
| -rw-r--r-- | challenge-021/adam-russell/perl6/ch-1.p6 | 2 |
6 files changed, 6 insertions, 6 deletions
diff --git a/challenge-021/adam-russell/README b/challenge-021/adam-russell/README index 9420c9a781..1d2e2957c5 100644 --- a/challenge-021/adam-russell/README +++ b/challenge-021/adam-russell/README @@ -1 +1 @@ -Solution by Adam Russell +Solution by Adam Russell diff --git a/challenge-021/adam-russell/blog.txt b/challenge-021/adam-russell/blog.txt index b685371fce..dce35ad0b6 100644 --- a/challenge-021/adam-russell/blog.txt +++ b/challenge-021/adam-russell/blog.txt @@ -1,2 +1,2 @@ https://adamcrussell.livejournal.com/6924.html -https://adamcrussell.livejournal.com/7347.html +https://adamcrussell.livejournal.com/7347.html diff --git a/challenge-021/adam-russell/perl5/UrlGrammar.yp b/challenge-021/adam-russell/perl5/UrlGrammar.yp index 18c259c897..fbc42d57f6 100644 --- a/challenge-021/adam-russell/perl5/UrlGrammar.yp +++ b/challenge-021/adam-russell/perl5/UrlGrammar.yp @@ -1,5 +1,5 @@ %token '://' SCHEME USERPASSWORD HOST PORT PATH QUERY FRAGMENT -%% +%% url: scheme colondoubleslash userpassword host port path query fragment | scheme colondoubleslash host path query fragment | scheme colondoubleslash host path fragment diff --git a/challenge-021/adam-russell/perl5/ch-1.pl b/challenge-021/adam-russell/perl5/ch-1.pl index 96d0968873..db7d24117d 100644 --- a/challenge-021/adam-russell/perl5/ch-1.pl +++ b/challenge-021/adam-russell/perl5/ch-1.pl @@ -3,7 +3,7 @@ use warnings; ## # Write a script to calculate the value of e. ## -sub e_calculation{ +sub e_calculation{ my($n) = @_; my @d; my $m = 4; diff --git a/challenge-021/adam-russell/perl5/ch-2.pl b/challenge-021/adam-russell/perl5/ch-2.pl index 55e9f126f9..3e521d8f58 100644 --- a/challenge-021/adam-russell/perl5/ch-2.pl +++ b/challenge-021/adam-russell/perl5/ch-2.pl @@ -2,7 +2,7 @@ use strict; use warnings; ## # Write a script for URL normalization based on rfc3986. -## +## use UrlParser; use constant URL => q|JDBC://user:password@localhost:3306/pwc?profile=true#h1|; MAIN:{ diff --git a/challenge-021/adam-russell/perl6/ch-1.p6 b/challenge-021/adam-russell/perl6/ch-1.p6 index 8d52d296f9..55d82c3967 100644 --- a/challenge-021/adam-russell/perl6/ch-1.p6 +++ b/challenge-021/adam-russell/perl6/ch-1.p6 @@ -1,4 +1,4 @@ -## +## # Write a script to calculate the value of e. ## sub e { |