diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-08-10 23:23:06 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-08-10 23:23:06 +0100 |
| commit | daefc000ac15dac012857d6213d5f098d859b829 (patch) | |
| tree | 1566b122bb3d65178ae982a88fd294ec0b7809f4 | |
| parent | b67f64358fdd6e20aa5ac00aa0fd502d5974df51 (diff) | |
| download | perlweeklychallenge-club-daefc000ac15dac012857d6213d5f098d859b829.tar.gz perlweeklychallenge-club-daefc000ac15dac012857d6213d5f098d859b829.tar.bz2 perlweeklychallenge-club-daefc000ac15dac012857d6213d5f098d859b829.zip | |
- Added solutions by Laurent Rosenfeld.
| -rw-r--r-- | challenge-020/laurent-rosenfeld/blog.txt | 1 | ||||
| -rw-r--r-- | challenge-020/laurent-rosenfeld/perl5/ch-1.sh | 1 | ||||
| -rw-r--r-- | challenge-020/laurent-rosenfeld/perl5/ch-2.pl | 24 | ||||
| -rw-r--r-- | challenge-020/laurent-rosenfeld/perl6/ch-1.sh | 1 | ||||
| -rw-r--r-- | challenge-020/laurent-rosenfeld/perl6/ch-2.p6 | 14 | ||||
| -rw-r--r-- | stats/pwc-current.json | 171 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown-summary.json | 66 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown.json | 178 | ||||
| -rw-r--r-- | stats/pwc-leaders.json | 514 | ||||
| -rw-r--r-- | stats/pwc-summary-1-30.json | 120 | ||||
| -rw-r--r-- | stats/pwc-summary-31-60.json | 38 | ||||
| -rw-r--r-- | stats/pwc-summary-61-90.json | 42 | ||||
| -rw-r--r-- | stats/pwc-summary-91-120.json | 38 | ||||
| -rw-r--r-- | stats/pwc-summary.json | 266 |
14 files changed, 769 insertions, 705 deletions
diff --git a/challenge-020/laurent-rosenfeld/blog.txt b/challenge-020/laurent-rosenfeld/blog.txt new file mode 100644 index 0000000000..720285ee7c --- /dev/null +++ b/challenge-020/laurent-rosenfeld/blog.txt @@ -0,0 +1 @@ +http://blogs.perl.org/users/laurent_r/2019/08/perl-weekly-challenge-20-split-string-on-character-change-and-amicable-numbers.html diff --git a/challenge-020/laurent-rosenfeld/perl5/ch-1.sh b/challenge-020/laurent-rosenfeld/perl5/ch-1.sh new file mode 100644 index 0000000000..eb2c108c1f --- /dev/null +++ b/challenge-020/laurent-rosenfeld/perl5/ch-1.sh @@ -0,0 +1 @@ +perl -E 'my @a = "ABBBCDEEF" =~ /((.)\2*)/g; say join " ", map $a[$_], grep {$_ % 2 == 0} 0..$#a;' diff --git a/challenge-020/laurent-rosenfeld/perl5/ch-2.pl b/challenge-020/laurent-rosenfeld/perl5/ch-2.pl new file mode 100644 index 0000000000..2346620982 --- /dev/null +++ b/challenge-020/laurent-rosenfeld/perl5/ch-2.pl @@ -0,0 +1,24 @@ +#!/usr/bin/perl +use strict; +use warnings; +use feature "say"; + +sub sum_divisors { + my $num = shift; + my $limit = int $num / 2 ; + my $sum = 1; + for my $test_div (2..$limit) { + $sum += $test_div if $num % $test_div == 0; + } + return $sum; +} + +my $i = 2; +while (1) { + my $sum_div = sum_divisors $i; + if ($sum_div > $i and $i == sum_divisors $sum_div) { + say "$i and $sum_div are amicable numbers"; + last; + } + $i++ +} diff --git a/challenge-020/laurent-rosenfeld/perl6/ch-1.sh b/challenge-020/laurent-rosenfeld/perl6/ch-1.sh new file mode 100644 index 0000000000..ebb9986047 --- /dev/null +++ b/challenge-020/laurent-rosenfeld/perl6/ch-1.sh @@ -0,0 +1 @@ +perl6 -e 'say ~$/ if "ABBCDEEF" ~~ m:g/((.)$0*)/;' diff --git a/challenge-020/laurent-rosenfeld/perl6/ch-2.p6 b/challenge-020/laurent-rosenfeld/perl6/ch-2.p6 new file mode 100644 index 0000000000..808e7acd4a --- /dev/null +++ b/challenge-020/laurent-rosenfeld/perl6/ch-2.p6 @@ -0,0 +1,14 @@ +use v6; + +sub sum-divisors (Int $num) { + my @divisors = grep { $num %% $_ }, 2..($num / 2).Int; + return [+] 1, | @divisors; +} + +for 2..Inf -> $i { + my $sum_div = sum-divisors $i; + if $sum_div > $i and $i == sum-divisors $sum_div { + say "$i and $sum_div are amicable numbers"; + last; + } +} diff --git a/stats/pwc-current.json b/stats/pwc-current.json index 2540a10966..8980dcd51b 100644 --- a/stats/pwc-current.json +++ b/stats/pwc-current.json @@ -1,15 +1,23 @@ { + "tooltip" : { + "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>", + "followPointer" : 1, + "pointFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>" + }, + "subtitle" : { + "text" : "[Champions: 21] Last updated at 2019-08-10 22:22:33 GMT" + }, "drilldown" : { "series" : [ { + "id" : "Andrezgz", "name" : "Andrezgz", "data" : [ [ "Perl 5", 2 ] - ], - "id" : "Andrezgz" + ] }, { "id" : "Arne Sommer", @@ -26,7 +34,6 @@ "name" : "Arne Sommer" }, { - "name" : "Athanasius", "data" : [ [ "Perl 5", @@ -37,11 +44,11 @@ 2 ] ], + "name" : "Athanasius", "id" : "Athanasius" }, { "id" : "Dave Jacoby", - "name" : "Dave Jacoby", "data" : [ [ "Perl 5", @@ -51,7 +58,8 @@ "Blog", 1 ] - ] + ], + "name" : "Dave Jacoby" }, { "name" : "Duane Powell", @@ -64,13 +72,13 @@ "id" : "Duane Powell" }, { - "name" : "E. Choroba", "data" : [ [ "Perl 5", 2 ] ], + "name" : "E. Choroba", "id" : "E. Choroba" }, { @@ -108,18 +116,26 @@ "id" : "Kevin Colyer" }, { - "id" : "Lubos Kolouch", + "id" : "Laurent Rosenfeld", "data" : [ [ "Perl 5", 2 + ], + [ + "Perl 6", + 2 + ], + [ + "Blog", + 1 ] ], - "name" : "Lubos Kolouch" + "name" : "Laurent Rosenfeld" }, { - "id" : "Mark Anderson", - "name" : "Mark Anderson", + "id" : "Lubos Kolouch", + "name" : "Lubos Kolouch", "data" : [ [ "Perl 5", @@ -128,14 +144,24 @@ ] }, { - "id" : "Martin Barth", - "name" : "Martin Barth", + "id" : "Mark Anderson", + "data" : [ + [ + "Perl 5", + 2 + ] + ], + "name" : "Mark Anderson" + }, + { "data" : [ [ "Perl 6", 1 ] - ] + ], + "name" : "Martin Barth", + "id" : "Martin Barth" }, { "name" : "Noud", @@ -149,32 +175,32 @@ }, { "id" : "Ozzy", + "name" : "Ozzy", "data" : [ [ "Perl 6", 1 ] - ], - "name" : "Ozzy" + ] }, { "id" : "Pete Houston", + "name" : "Pete Houston", "data" : [ [ "Perl 5", 1 ] - ], - "name" : "Pete Houston" + ] }, { - "name" : "Randy Lauen", "data" : [ [ "Perl 6", 2 ] ], + "name" : "Randy Lauen", "id" : "Randy Lauen" }, { @@ -192,6 +218,8 @@ "id" : "Roger Bell West" }, { + "id" : "Ruben Westerberg", + "name" : "Ruben Westerberg", "data" : [ [ "Perl 5", @@ -201,9 +229,7 @@ "Perl 6", 2 ] - ], - "name" : "Ruben Westerberg", - "id" : "Ruben Westerberg" + ] }, { "id" : "Simon Proctor", @@ -217,45 +243,48 @@ }, { "id" : "Steven Wilson", - "name" : "Steven Wilson", "data" : [ [ "Perl 5", 2 ] - ] + ], + "name" : "Steven Wilson" } ] }, + "chart" : { + "type" : "column" + }, + "yAxis" : { + "title" : { + "text" : "Total Solutions" + } + }, + "title" : { + "text" : "Perl Weekly Challenge - 020" + }, "xAxis" : { "type" : "category" }, - "subtitle" : { - "text" : "[Champions: 20] Last updated at 2019-08-10 21:54:51 GMT" - }, "plotOptions" : { "series" : { + "borderWidth" : 0, "dataLabels" : { "format" : "{point.y}", "enabled" : 1 - }, - "borderWidth" : 0 + } } }, - "tooltip" : { - "followPointer" : 1, - "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>", - "pointFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>" - }, "series" : [ { "colorByPoint" : 1, "name" : "Perl Weekly Challenge - 020", "data" : [ { - "name" : "Andrezgz", + "y" : 2, "drilldown" : "Andrezgz", - "y" : 2 + "name" : "Andrezgz" }, { "name" : "Arne Sommer", @@ -264,8 +293,8 @@ }, { "y" : 4, - "drilldown" : "Athanasius", - "name" : "Athanasius" + "name" : "Athanasius", + "drilldown" : "Athanasius" }, { "y" : 3, @@ -273,79 +302,84 @@ "name" : "Dave Jacoby" }, { - "y" : 2, + "name" : "Duane Powell", "drilldown" : "Duane Powell", - "name" : "Duane Powell" + "y" : 2 }, { - "name" : "E. Choroba", "y" : 2, - "drilldown" : "E. Choroba" + "drilldown" : "E. Choroba", + "name" : "E. Choroba" }, { - "name" : "Feng Chang", "drilldown" : "Feng Chang", + "name" : "Feng Chang", "y" : 4 }, { + "name" : "Gustavo Chaves", "drilldown" : "Gustavo Chaves", - "y" : 2, - "name" : "Gustavo Chaves" + "y" : 2 }, { "y" : 2, - "drilldown" : "Kevin Colyer", - "name" : "Kevin Colyer" + "name" : "Kevin Colyer", + "drilldown" : "Kevin Colyer" }, { + "name" : "Laurent Rosenfeld", + "drilldown" : "Laurent Rosenfeld", + "y" : 5 + }, + { + "name" : "Lubos Kolouch", "drilldown" : "Lubos Kolouch", - "y" : 2, - "name" : "Lubos Kolouch" + "y" : 2 }, { - "drilldown" : "Mark Anderson", "y" : 2, + "drilldown" : "Mark Anderson", "name" : "Mark Anderson" }, { - "name" : "Martin Barth", "y" : 1, + "name" : "Martin Barth", "drilldown" : "Martin Barth" }, { + "name" : "Noud", "drilldown" : "Noud", - "y" : 2, - "name" : "Noud" + "y" : 2 }, { - "drilldown" : "Ozzy", "y" : 1, - "name" : "Ozzy" + "name" : "Ozzy", + "drilldown" : "Ozzy" }, { "drilldown" : "Pete Houston", - "y" : 1, - "name" : "Pete Houston" + "name" : "Pete Houston", + "y" : 1 }, { + "drilldown" : "Randy Lauen", "name" : "Randy Lauen", - "y" : 2, - "drilldown" : "Randy Lauen" + "y" : 2 }, { - "name" : "Roger Bell West", "y" : 4, + "name" : "Roger Bell West", "drilldown" : "Roger Bell West" }, { - "name" : "Ruben Westerberg", + "y" : 4, "drilldown" : "Ruben Westerberg", - "y" : 4 + "name" : "Ruben Westerberg" }, { - "y" : 2, "drilldown" : "Simon Proctor", - "name" : "Simon Proctor" + "name" : "Simon Proctor", + "y" : 2 }, { "name" : "Steven Wilson", @@ -355,18 +389,7 @@ ] } ], - "yAxis" : { - "title" : { - "text" : "Total Solutions" - } - }, - "title" : { - "text" : "Perl Weekly Challenge - 020" - }, "legend" : { "enabled" : 0 - }, - "chart" : { - "type" : "column" } } diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json index fce0d5a975..55fa541c0a 100644 --- a/stats/pwc-language-breakdown-summary.json +++ b/stats/pwc-language-breakdown-summary.json @@ -1,63 +1,63 @@ { + "xAxis" : { + "type" : "category", + "labels" : { + "style" : { + "fontFamily" : "Verdana, sans-serif", + "fontSize" : "13px" + } + } + }, + "tooltip" : { + "pointFormat" : "<b>{point.y:.0f}</b>" + }, + "yAxis" : { + "min" : 0, + "title" : { + "text" : null + } + }, "series" : [ { + "name" : "Contributions", "dataLabels" : { - "color" : "#FFFFFF", - "format" : "{point.y:.0f}", - "align" : "right", - "enabled" : "true", - "y" : 10, + "rotation" : -90, "style" : { - "fontSize" : "13px", - "fontFamily" : "Verdana, sans-serif" + "fontFamily" : "Verdana, sans-serif", + "fontSize" : "13px" }, - "rotation" : -90 + "y" : 10, + "enabled" : "true", + "format" : "{point.y:.0f}", + "align" : "right", + "color" : "#FFFFFF" }, - "name" : "Contributions", "data" : [ [ "Blog", - 186 + 187 ], [ "Perl 5", - 828 + 830 ], [ "Perl 6", - 490 + 492 ] ] } ], - "tooltip" : { - "pointFormat" : "<b>{point.y:.0f}</b>" - }, "chart" : { "type" : "column" }, - "yAxis" : { - "min" : 0, - "title" : { - "text" : null - } + "legend" : { + "enabled" : "false" }, "title" : { "text" : "Perl Weekly Challenge Contributions - 2019" }, - "xAxis" : { - "labels" : { - "style" : { - "fontFamily" : "Verdana, sans-serif", - "fontSize" : "13px" - } - }, - "type" : "category" - }, - "legend" : { - "enabled" : "false" - }, "subtitle" : { - "text" : "Last updated at 2019-08-10 21:58:10 GMT" + "text" : "Last updated at 2019-08-10 22:22:55 GMT" } } diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json index 79637f638d..83ca6b4759 100644 --- a/stats/pwc-language-breakdown.json +++ b/stats/pwc-language-breakdown.json @@ -1,25 +1,26 @@ { - "tooltip" : { - "headerFormat" : "<span style=\"font-size:11px\"></span>", - "pointFormat" : "<span style=\"color:{point.color}\">Challenge {point.name}</span>: <b>{point.y:f}</b><br/>", - "followPointer" : "true" + "yAxis" : { + "title" : { + "text" : "Total Solutions" + } }, "series" : [ { + "name" : "Perl Weekly Challenge Languages", "data" : [ { - "y" : 123, + "name" : "#001", "drilldown" : "001", - "name" : "#001" + "y" : 123 }, { + "y" : 104, "name" : "#002", - "drilldown" : "002", - "y" : 104 + "drilldown" : "002" }, { - "name" : "#003", "drilldown" : "003", + "name" : "#003", "y" : 66 }, { @@ -33,19 +34,19 @@ "y" : 66 }, { - "y" : 47, "name" : "#006", - "drilldown" : "006" + "drilldown" : "006", + "y" : 47 }, { "y" : 54, - "name" : "#007", - "drilldown" : "007" + "drilldown" : "007", + "name" : "#007" }, { "y" : 67, - "name" : "#008", - "drilldown" : "008" + "drilldown" : "008", + "name" : "#008" }, { "drilldown" : "009", @@ -53,34 +54,34 @@ "y" : 65 }, { + "y" : 58, "drilldown" : "010", - "name" : "#010", - "y" : 58 + "name" : "#010" }, { "y" : 77, - "drilldown" : "011", - "name" : "#011" + "name" : "#011", + "drilldown" : "011" }, { - "name" : "#012", "drilldown" : "012", + "name" : "#012", "y" : 81 }, { - "name" : "#013", + "y" : 74, "drilldown" : "013", - "y" : 74 + "name" : "#013" }, { - "y" : 94, "drilldown" : "014", - "name" : "#014" + "name" : "#014", + "y" : 94 }, { "y" : 90, - "drilldown" : "015", - "name" : "#015" + "name" : "#015", + "drilldown" : "015" }, { "drilldown" : "016", @@ -88,38 +89,32 @@ "y" : 64 }, { - "drilldown" : "017", + "y" : 77, "name" : "#017", - "y" : 77 + "drilldown" : "017" }, { "y" : 73, - "drilldown" : "018", - "name" : "#018" + "name" : "#018", + "drilldown" : "018" }, { "y" : 92, - "drilldown" : "019", - "name" : "#019" + "name" : "#019", + "drilldown" : "019" }, { - "y" : 48, "drilldown" : "020", - "name" : "#020" + "name" : "#020", + "y" : 53 } ], - "name" : "Perl Weekly Challenge Languages", "colorByPoint" : "true" } ], - "chart" : { - "type" : "column" - }, "drilldown" : { "series" : [ { - "id" : "001", - "name" : "001", "data" : [ [ "Perl 5", @@ -133,9 +128,13 @@ "Blog", 10 ] - ] + ], + "name" : "001", + "id" : "001" }, { + "name" : "002", + "id" : "002", "data" : [ [ "Perl 5", @@ -149,9 +148,7 @@ "Blog", 9 ] - ], - "id" : "002", - "name" : "002" + ] }, { "data" : [ @@ -186,12 +183,10 @@ 9 ] ], - "id" : "004", - "name" : "004" + "name" : "004", + "id" : "004" }, { - "id" : "005", - "name" : "005", "data" : [ [ "Perl 5", @@ -205,11 +200,13 @@ "Blog", 11 ] - ] + ], + "id" : "005", + "name" : "005" }, { - "name" : "006", "id" : "006", + "name" : "006", "data" : [ [ "Perl 5", @@ -240,12 +237,12 @@ 8 ] ], - "name" : "007", - "id" : "007" + "id" : "007", + "name" : "007" }, { - "id" : "008", "name" : "008", + "id" : "008", "data" : [ [ "Perl 5", @@ -262,6 +259,8 @@ ] }, { + "id" : "009", + "name" : "009", "data" : [ [ "Perl 5", @@ -275,13 +274,9 @@ "Blog", 11 ] - ], - "name" : "009", - "id" : "009" + ] }, { - "name" : "010", - "id" : "010", "data" : [ [ "Perl 5", @@ -295,11 +290,13 @@ "Blog", 9 ] - ] + ], + "id" : "010", + "name" : "010" }, { - "id" : "011", "name" : "011", + "id" : "011", "data" : [ [ "Perl 5", @@ -334,8 +331,6 @@ "name" : "012" }, { - "name" : "013", - "id" : "013", "data" : [ [ "Perl 5", @@ -349,11 +344,13 @@ "Blog", 11 ] - ] + ], + "id" : "013", + "name" : "013" }, { - "id" : "014", "name" : "014", + "id" : "014", "data" : [ [ "Perl 5", @@ -388,8 +385,6 @@ "id" : "015" }, { - "id" : "016", - "name" : "016", "data" : [ [ "Perl 5", @@ -403,7 +398,9 @@ "Blog", 10 ] - ] + ], + "name" : "016", + "id" : "016" }, { "name" : "017", @@ -438,8 +435,8 @@ 11 ] ], - "id" : "018", - "name" : "018" + "name" : "018", + "id" : "018" }, { "data" : [ @@ -456,53 +453,56 @@ 10 ] ], - "id" : "019", - "name" : "019" + "name" : "019", + "id" : "019" }, { - "name" : "020", "id" : "020", + "name" : "020", "data" : [ [ "Perl 5", - 26 + 28 ], [ "Perl 6", - 20 + 22 ], [ "Blog", - 2 + 3 ] ] } ] }, - "yAxis" : { - "title" : { - "text" : "Total Solutions" - } + "xAxis" : { + "type" : "category" }, - "legend" : { - "enabled" : "false" + "tooltip" : { + "headerFormat" : "<span style=\"font-size:11px\"></span>", + "followPointer" : "true", + "pointFormat" : "<span style=\"color:{point.color}\">Challenge {point.name}</span>: <b>{point.y:f}</b><br/>" }, "title" : { "text" : "Perl Weekly Challenge Language" }, - "xAxis" : { - "type" : "category" - }, - "subtitle" : { - "text" : "Click the columns to drilldown the language breakdown. Last updated at 2019-08-10 21:58:10 GMT" - }, "plotOptions" : { "series" : { "borderWidth" : 0, "dataLabels" : { - "enabled" : 1, - "format" : "{point.y}" + "format" : "{point.y}", + "enabled" : 1 } } + }, + "subtitle" : { + "text" : "Click the columns to drilldown the language breakdown. Last updated at 2019-08-10 22:22:55 GMT" + }, + "chart" : { + "type" : "column" + }, + "legend" : { + "enabled" : "false" } } diff --git a/stats/pwc-leaders.json b/stats/pwc-leaders.json index 2457c15b99..20d49eb13a 100644 --- a/stats/pwc-leaders.json +++ b/stats/pwc-leaders.json @@ -1,46 +1,53 @@ { - "xAxis" : { - "type" : "category" + "plotOptions" : { + "series" : { + "dataLabels" : { + "enabled" : 1, + "format" : "{point.y}" + }, + "borderWidth" : 0 + } }, "drilldown" : { "series" : [ { "data" : [ [ - "Perl 6", - 49 + "Perl 5", + 40 ], [ - "Blog", - 4 + "Perl 6", + 39 ], [ - "Perl 5", - 49 + "Blog", + 25 ] ], - "name" : "Joelle Maslak", - "id" : "Joelle Maslak" + "id" : "Laurent Rosenfeld", + "name" : "Laurent Rosenfeld" }, { - "id" : "Laurent Rosenfeld", - "name" : "Laurent Rosenfeld", + "name" : "Joelle Maslak", + "id" : "Joelle Maslak", "data" : [ [ "Perl 5", - 38 + 49 ], [ "Perl 6", - 37 + 49 ], [ "Blog", - 24 + 4 ] ] }, { + "name" : "Jaldhar H. Vyas", "data" : [ [ "Perl 5", @@ -55,44 +62,41 @@ 37 ] ], - "name" : "Jaldhar H. Vyas", "id" : "Jaldhar H. Vyas" }, { "data" : [ [ - "Perl 5", + "Perl 6", 37 ], [ - "Perl 6", + "Perl 5", 37 ] ], - "name" : "Ruben Westerberg", - "id" : "Ruben Westerberg" + "id" : "Ruben Westerberg", + "name" : "Ruben Westerberg" }, { + "name" : "Athanasius", "data" : [ [ - "Blog", - 3 + "Perl 5", + 43 ], [ "Perl 6", 19 ], [ - "Perl 5", - 43 + "Blo |
