diff options
| author | Nick Logan <nlogan@gmail.com> | 2019-04-10 23:16:27 -0400 |
|---|---|---|
| committer | Nick Logan <nlogan@gmail.com> | 2019-04-10 23:23:03 -0400 |
| commit | ec34b1f4e29bb6ece971838525231cd81b92cad3 (patch) | |
| tree | 2f9d435b5ae1ff0da22f564361184ebad83bd261 /challenge-001 | |
| parent | 08421ab29ca411cc43513682868aebb4dde67fc4 (diff) | |
| download | perlweeklychallenge-club-ec34b1f4e29bb6ece971838525231cd81b92cad3.tar.gz perlweeklychallenge-club-ec34b1f4e29bb6ece971838525231cd81b92cad3.tar.bz2 perlweeklychallenge-club-ec34b1f4e29bb6ece971838525231cd81b92cad3.zip | |
Add note explaining lack of best practices
Diffstat (limited to 'challenge-001')
| -rw-r--r-- | challenge-001/nick-logan/perl5/ch-1.pl | 2 | ||||
| -rw-r--r-- | challenge-001/nick-logan/perl5/ch-2.pl | 4 | ||||
| -rw-r--r-- | challenge-001/nick-logan/perl6/ch-1.p6 | 2 | ||||
| -rw-r--r-- | challenge-001/nick-logan/perl6/ch-2.p6 | 4 |
4 files changed, 8 insertions, 4 deletions
diff --git a/challenge-001/nick-logan/perl5/ch-1.pl b/challenge-001/nick-logan/perl5/ch-1.pl index c35822d44b..e20ce33987 100644 --- a/challenge-001/nick-logan/perl5/ch-1.pl +++ b/challenge-001/nick-logan/perl5/ch-1.pl @@ -1 +1,3 @@ +# WARNING: this polyglot breaks best practices of both Perl 5 and Perl 6 in order to run on both + print((($_ eq "e") and uc($_) or $_)) for split("", "Perl Weekly Challenge") diff --git a/challenge-001/nick-logan/perl5/ch-2.pl b/challenge-001/nick-logan/perl5/ch-2.pl index cb8a9074af..00372d5c38 100644 --- a/challenge-001/nick-logan/perl5/ch-2.pl +++ b/challenge-001/nick-logan/perl5/ch-2.pl @@ -1,3 +1,3 @@ -print((join( "", (!($_ % 3) and "Fizz" or ""), (!($_ % 5) and "Buzz" or "") ) or $_), "\n") for 1..20; - +# WARNING: this polyglot breaks best practices of both Perl 5 and Perl 6 in order to run on both +print((join( "", (!($_ % 3) and "Fizz" or ""), (!($_ % 5) and "Buzz" or "") ) or $_), "\n") for 1..20; diff --git a/challenge-001/nick-logan/perl6/ch-1.p6 b/challenge-001/nick-logan/perl6/ch-1.p6 index c35822d44b..e20ce33987 100644 --- a/challenge-001/nick-logan/perl6/ch-1.p6 +++ b/challenge-001/nick-logan/perl6/ch-1.p6 @@ -1 +1,3 @@ +# WARNING: this polyglot breaks best practices of both Perl 5 and Perl 6 in order to run on both + print((($_ eq "e") and uc($_) or $_)) for split("", "Perl Weekly Challenge") diff --git a/challenge-001/nick-logan/perl6/ch-2.p6 b/challenge-001/nick-logan/perl6/ch-2.p6 index cb8a9074af..00372d5c38 100644 --- a/challenge-001/nick-logan/perl6/ch-2.p6 +++ b/challenge-001/nick-logan/perl6/ch-2.p6 @@ -1,3 +1,3 @@ -print((join( "", (!($_ % 3) and "Fizz" or ""), (!($_ % 5) and "Buzz" or "") ) or $_), "\n") for 1..20; - +# WARNING: this polyglot breaks best practices of both Perl 5 and Perl 6 in order to run on both +print((join( "", (!($_ % 3) and "Fizz" or ""), (!($_ % 5) and "Buzz" or "") ) or $_), "\n") for 1..20; |