diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-06-14 17:31:58 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-06-14 17:31:58 +0100 |
| commit | 0db36c110ce0ece14bb83a6d70af9c3c84d1bc2a (patch) | |
| tree | bfe05d7de88828f843a0c43859e6b32a427d785a | |
| parent | 4d37bd51e00fb61f449cff5a9e554b4ddce1ed78 (diff) | |
| parent | 72c85bb371e7d3e0a31ffa6fb821d70b06859fb0 (diff) | |
| download | perlweeklychallenge-club-0db36c110ce0ece14bb83a6d70af9c3c84d1bc2a.tar.gz perlweeklychallenge-club-0db36c110ce0ece14bb83a6d70af9c3c84d1bc2a.tar.bz2 perlweeklychallenge-club-0db36c110ce0ece14bb83a6d70af9c3c84d1bc2a.zip | |
Merge pull request #1823 from E7-87-83/master
blog and reflections
| -rw-r--r-- | challenge-064/cheok-yin-fung/BLOG.txt | 1 | ||||
| -rw-r--r-- | challenge-064/cheok-yin-fung/perl/ch-2.pl | 7 |
2 files changed, 6 insertions, 2 deletions
diff --git a/challenge-064/cheok-yin-fung/BLOG.txt b/challenge-064/cheok-yin-fung/BLOG.txt new file mode 100644 index 0000000000..2ab67b801b --- /dev/null +++ b/challenge-064/cheok-yin-fung/BLOG.txt @@ -0,0 +1 @@ +http://blogs.perl.org/users/c_y_fung/2020/06/cys-post-on-pwc064---my-shortcomings.html diff --git a/challenge-064/cheok-yin-fung/perl/ch-2.pl b/challenge-064/cheok-yin-fung/perl/ch-2.pl index 2c04455b3a..72d3946bdd 100644 --- a/challenge-064/cheok-yin-fung/perl/ch-2.pl +++ b/challenge-064/cheok-yin-fung/perl/ch-2.pl @@ -3,6 +3,9 @@ use strict; use Math::Combinatorics; use List::Util qw{sum}; +# Usage: +# Example Input: $ perl ch-2.pl perlweeklychallenge weekly challenge perl +# Output: "perl","weekly","challenge" #ref Challenge-051 task-1 3 Sum #brute force @@ -13,8 +16,8 @@ my $S; my @W; if ($ARGV[0] eq undef) { - $S = "thequickbrownfoxjumpsoverthelazydogwooyousee"; - @W = split / /, "theq uickb rownf ox jumps over the lazy dog"; + $S = "thequickbrownfoxjumpsoverthelazydogwoo"; + @W = split / /, "theq uickb rownf ox jumps over the lazy dog woo"; } else { $S = shift @ARGV; @W = @ARGV; |