diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-08-10 23:36:08 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-08-10 23:36:08 +0100 |
| commit | b13fb682e6b5ae7c913624291968c1e52a83a435 (patch) | |
| tree | 9d466ab11e2a122fb698b5b34259d8634cb953f4 | |
| parent | daefc000ac15dac012857d6213d5f098d859b829 (diff) | |
| download | perlweeklychallenge-club-b13fb682e6b5ae7c913624291968c1e52a83a435.tar.gz perlweeklychallenge-club-b13fb682e6b5ae7c913624291968c1e52a83a435.tar.bz2 perlweeklychallenge-club-b13fb682e6b5ae7c913624291968c1e52a83a435.zip | |
- Added solutions by Guillermo Ramos.
| -rw-r--r-- | challenge-020/guillermo-ramos/perl5/ch-1.pl | 13 | ||||
| -rw-r--r-- | challenge-020/guillermo-ramos/perl5/ch-2.pl | 34 | ||||
| -rw-r--r-- | stats/pwc-current.json | 343 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown-summary.json | 68 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown.json | 334 | ||||
| -rw-r--r-- | stats/pwc-leaders.json | 502 | ||||
| -rw-r--r-- | stats/pwc-summary-1-30.json | 120 | ||||
| -rw-r--r-- | stats/pwc-summary-31-60.json | 44 | ||||
| -rw-r--r-- | stats/pwc-summary-61-90.json | 44 | ||||
| -rw-r--r-- | stats/pwc-summary-91-120.json | 46 | ||||
| -rw-r--r-- | stats/pwc-summary.json | 268 |
11 files changed, 939 insertions, 877 deletions
diff --git a/challenge-020/guillermo-ramos/perl5/ch-1.pl b/challenge-020/guillermo-ramos/perl5/ch-1.pl new file mode 100644 index 0000000000..8022fb94d4 --- /dev/null +++ b/challenge-020/guillermo-ramos/perl5/ch-1.pl @@ -0,0 +1,13 @@ +#!/usr/bin/env perl +# +# Write a script to accept a string from command line and split it on change of +# character. For example, if the string is “ABBCDEEF”, then it should split like +# “A”, “BB”, “C”, “D”, “EE”, “F”. +################################################################################ + +use strict; +use warnings; + +my @chunks; +push @chunks, $& while $ARGV[0] =~ /(.)\1*/g; +print "@chunks\n"; diff --git a/challenge-020/guillermo-ramos/perl5/ch-2.pl b/challenge-020/guillermo-ramos/perl5/ch-2.pl new file mode 100644 index 0000000000..d7bbb63d1a --- /dev/null +++ b/challenge-020/guillermo-ramos/perl5/ch-2.pl @@ -0,0 +1,34 @@ +#!/usr/bin/env perl +# +# Write a script to print the smallest pair of Amicable Numbers. For more +# information, please checkout wikipedia page. +# +# (https://en.wikipedia.org/wiki/Amicable_numbers). +################################################################################ + +use strict; +use warnings; + +sub sum_divisors { + my $n = shift; + my $sum = 0; + foreach my $i (1 .. $n/2) { + $sum += $i if $n % $i == 0; + } + return $sum; +} + +my $n1 = 2; +my $n2; +my @already_checked; + +while (!$n2) { + my $sum = sum_divisors($n1); + if (!grep(/^$sum$/, @already_checked) && $sum != $n1 && sum_divisors($sum) == $n1) { + $n2 = $sum; + } + push @already_checked, $sum, $n1++; +} +$n1--; + +print "($n1, $n2)\n"; diff --git a/stats/pwc-current.json b/stats/pwc-current.json index 8980dcd51b..0f18b027ac 100644 --- a/stats/pwc-current.json +++ b/stats/pwc-current.json @@ -1,11 +1,138 @@ { + "series" : [ + { + "data" : [ + { + "y" : 2, + "drilldown" : "Andrezgz", + "name" : "Andrezgz" + }, + { + "y" : 3, + "drilldown" : "Arne Sommer", + "name" : "Arne Sommer" + }, + { + "name" : "Athanasius", + "y" : 4, + "drilldown" : "Athanasius" + }, + { + "drilldown" : "Dave Jacoby", + "y" : 3, + "name" : "Dave Jacoby" + }, + { + "name" : "Duane Powell", + "drilldown" : "Duane Powell", + "y" : 2 + }, + { + "drilldown" : "E. Choroba", + "y" : 2, + "name" : "E. Choroba" + }, + { + "name" : "Feng Chang", + "drilldown" : "Feng Chang", + "y" : 4 + }, + { + "name" : "Guillermo Ramos", + "drilldown" : "Guillermo Ramos", + "y" : 2 + }, + { + "y" : 2, + "drilldown" : "Gustavo Chaves", + "name" : "Gustavo Chaves" + }, + { + "drilldown" : "Kevin Colyer", + "y" : 2, + "name" : "Kevin Colyer" + }, + { + "name" : "Laurent Rosenfeld", + "y" : 5, + "drilldown" : "Laurent Rosenfeld" + }, + { + "y" : 2, + "drilldown" : "Lubos Kolouch", + "name" : "Lubos Kolouch" + }, + { + "name" : "Mark Anderson", + "y" : 2, + "drilldown" : "Mark Anderson" + }, + { + "drilldown" : "Martin Barth", + "y" : 1, + "name" : "Martin Barth" + }, + { + "drilldown" : "Noud", + "y" : 2, + "name" : "Noud" + }, + { + "name" : "Ozzy", + "y" : 1, + "drilldown" : "Ozzy" + }, + { + "name" : "Pete Houston", + "y" : 1, + "drilldown" : "Pete Houston" + }, + { + "drilldown" : "Randy Lauen", + "y" : 2, + "name" : "Randy Lauen" + }, + { + "name" : "Roger Bell West", + "y" : 4, + "drilldown" : "Roger Bell West" + }, + { + "name" : "Ruben Westerberg", + "drilldown" : "Ruben Westerberg", + "y" : 4 + }, + { + "y" : 2, + "drilldown" : "Simon Proctor", + "name" : "Simon Proctor" + }, + { + "name" : "Steven Wilson", + "y" : 2, + "drilldown" : "Steven Wilson" + } + ], + "colorByPoint" : 1, + "name" : "Perl Weekly Challenge - 020" + } + ], + "plotOptions" : { + "series" : { + "dataLabels" : { + "format" : "{point.y}", + "enabled" : 1 + }, + "borderWidth" : 0 + } + }, + "legend" : { + "enabled" : 0 + }, "tooltip" : { + "pointFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>", "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" + "followPointer" : 1 }, "drilldown" : { "series" : [ @@ -21,6 +148,7 @@ }, { "id" : "Arne Sommer", + "name" : "Arne Sommer", "data" : [ [ "Perl 6", @@ -30,8 +158,7 @@ "Blog", 1 ] - ], - "name" : "Arne Sommer" + ] }, { "data" : [ @@ -48,7 +175,6 @@ "id" : "Athanasius" }, { - "id" : "Dave Jacoby", "data" : [ [ "Perl 5", @@ -59,30 +185,31 @@ 1 ] ], - "name" : "Dave Jacoby" + "name" : "Dave Jacoby", + "id" : "Dave Jacoby" }, { - "name" : "Duane Powell", "data" : [ [ "Perl 5", 2 ] ], + "name" : "Duane Powell", "id" : "Duane Powell" }, { + "id" : "E. Choroba", "data" : [ [ "Perl 5", 2 ] ], - "name" : "E. Choroba", - "id" : "E. Choroba" + "name" : "E. Choroba" }, { - "name" : "Feng Chang", + "id" : "Feng Chang", "data" : [ [ "Perl 5", @@ -93,26 +220,36 @@ 2 ] ], - "id" : "Feng Chang" + "name" : "Feng Chang" + }, + { + "id" : "Guillermo Ramos", + "name" : "Guillermo Ramos", + "data" : [ + [ + "Perl 5", + 2 + ] + ] }, { "id" : "Gustavo Chaves", + "name" : "Gustavo Chaves", "data" : [ [ "Perl 5", 2 ] - ], - "name" : "Gustavo Chaves" + ] }, { - "name" : "Kevin Colyer", "data" : [ [ "Perl 6", 2 ] ], + "name" : "Kevin Colyer", "id" : "Kevin Colyer" }, { @@ -134,14 +271,14 @@ "name" : "Laurent Rosenfeld" }, { - "id" : "Lubos Kolouch", - "name" : "Lubos Kolouch", "data" : [ [ "Perl 5", 2 ] - ] + ], + "name" : "Lubos Kolouch", + "id" : "Lubos Kolouch" }, { "id" : "Mark Anderson", @@ -154,53 +291,53 @@ "name" : "Mark Anderson" }, { + "id" : "Martin Barth", + "name" : "Martin Barth", "data" : [ [ "Perl 6", 1 ] - ], - "name" : "Martin Barth", - "id" : "Martin Barth" + ] }, { - "name" : "Noud", "data" : [ [ "Perl 6", 2 ] ], + "name" : "Noud", "id" : "Noud" }, { "id" : "Ozzy", - "name" : "Ozzy", "data" : [ [ "Perl 6", 1 ] - ] + ], + "name" : "Ozzy" }, { - "id" : "Pete Houston", - "name" : "Pete Houston", "data" : [ [ "Perl 5", 1 ] - ] + ], + "name" : "Pete Houston", + "id" : "Pete Houston" }, { + "name" : "Randy Lauen", "data" : [ [ "Perl 6", 2 ] ], - "name" : "Randy Lauen", "id" : "Randy Lauen" }, { @@ -218,7 +355,6 @@ "id" : "Roger Bell West" }, { - "id" : "Ruben Westerberg", "name" : "Ruben Westerberg", "data" : [ [ @@ -229,167 +365,46 @@ "Perl 6", 2 ] - ] + ], + "id" : "Ruben Westerberg" }, { "id" : "Simon Proctor", - "name" : "Simon Proctor", "data" : [ [ "Perl 6", 2 ] - ] + ], + "name" : "Simon Proctor" }, { "id" : "Steven Wilson", + "name" : "Steven Wilson", "data" : [ [ "Perl 5", 2 ] - ], - "name" : "Steven Wilson" + ] } ] }, - "chart" : { - "type" : "column" + "subtitle" : { + "text" : "[Champions: 22] Last updated at 2019-08-10 22:35:36 GMT" }, "yAxis" : { "title" : { "text" : "Total Solutions" } }, - "title" : { - "text" : "Perl Weekly Challenge - 020" + "chart" : { + "type" : "column" }, "xAxis" : { "type" : "category" }, - "plotOptions" : { - "series" : { - "borderWidth" : 0, - "dataLabels" : { - "format" : "{point.y}", - "enabled" : 1 - } - } - }, - "series" : [ - { - "colorByPoint" : 1, - "name" : "Perl Weekly Challenge - 020", - "data" : [ - { - "y" : 2, - "drilldown" : "Andrezgz", - "name" : "Andrezgz" - }, - { - "name" : "Arne Sommer", - "drilldown" : "Arne Sommer", - "y" : 3 - }, - { - "y" : 4, - "name" : "Athanasius", - "drilldown" : "Athanasius" - }, - { - "y" : 3, - "drilldown" : "Dave Jacoby", - "name" : "Dave Jacoby" - }, - { - "name" : "Duane Powell", - "drilldown" : "Duane Powell", - "y" : 2 - }, - { - "y" : 2, - "drilldown" : "E. Choroba", - "name" : "E. Choroba" - }, - { - "drilldown" : "Feng Chang", - "name" : "Feng Chang", - "y" : 4 - }, - { - "name" : "Gustavo Chaves", - "drilldown" : "Gustavo Chaves", - "y" : 2 - }, - { - "y" : 2, - "name" : "Kevin Colyer", - "drilldown" : "Kevin Colyer" - }, - { - "name" : "Laurent Rosenfeld", - "drilldown" : "Laurent Rosenfeld", - "y" : 5 - }, - { - "name" : "Lubos Kolouch", - "drilldown" : "Lubos Kolouch", - "y" : 2 - }, - { - "y" : 2, - "drilldown" : "Mark Anderson", - "name" : "Mark Anderson" - }, - { - "y" : 1, - "name" : "Martin Barth", - "drilldown" : "Martin Barth" - }, - { - "name" : "Noud", - "drilldown" : "Noud", - "y" : 2 - }, - { - "y" : 1, - "name" : "Ozzy", - "drilldown" : "Ozzy" - }, - { - "drilldown" : "Pete Houston", - "name" : "Pete Houston", - "y" : 1 - }, - { - "drilldown" : "Randy Lauen", - "name" : "Randy Lauen", - "y" : 2 - }, - { - "y" : 4, - "name" : "Roger Bell West", - "drilldown" : "Roger Bell West" - }, - { - "y" : 4, - "drilldown" : "Ruben Westerberg", - "name" : "Ruben Westerberg" - }, - { - "drilldown" : "Simon Proctor", - "name" : "Simon Proctor", - "y" : 2 - }, - { - "name" : "Steven Wilson", - "drilldown" : "Steven Wilson", - "y" : 2 - } - ] - } - ], - "legend" : { - "enabled" : 0 + "title" : { + "text" : "Perl Weekly Challenge - 020" } } diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json index 55fa541c0a..381fd1753e 100644 --- a/stats/pwc-language-breakdown-summary.json +++ b/stats/pwc-language-breakdown-summary.json @@ -1,37 +1,37 @@ { + "subtitle" : { + "text" : "Last updated at 2019-08-10 22:35:56 GMT" + }, + "yAxis" : { + "min" : 0, + "title" : { + "text" : null + } + }, "xAxis" : { "type" : "category", "labels" : { "style" : { - "fontFamily" : "Verdana, sans-serif", - "fontSize" : "13px" + "fontSize" : "13px", + "fontFamily" : "Verdana, sans-serif" } } }, + "chart" : { + "type" : "column" + }, + "legend" : { + "enabled" : "false" + }, "tooltip" : { "pointFormat" : "<b>{point.y:.0f}</b>" }, - "yAxis" : { - "min" : 0, - "title" : { - "text" : null - } + "title" : { + "text" : "Perl Weekly Challenge Contributions - 2019" }, "series" : [ { "name" : "Contributions", - "dataLabels" : { - "rotation" : -90, - "style" : { - "fontFamily" : "Verdana, sans-serif", - "fontSize" : "13px" - }, - "y" : 10, - "enabled" : "true", - "format" : "{point.y:.0f}", - "align" : "right", - "color" : "#FFFFFF" - }, "data" : [ [ "Blog", @@ -39,25 +39,25 @@ ], [ "Perl 5", - 830 + 832 ], [ "Perl 6", 492 ] - ] + ], + "dataLabels" : { + "y" : 10, + "align" : "right", + "enabled" : "true", + "style" : { + "fontSize" : "13px", + "fontFamily" : "Verdana, sans-serif" + }, + "rotation" : -90, + "color" : "#FFFFFF", + "format" : "{point.y:.0f}" + } } - ], - "chart" : { - "type" : "column" - }, - "legend" : { - "enabled" : "false" - }, - "title" : { - "text" : "Perl Weekly Challenge Contributions - 2019" - }, - "subtitle" : { - "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 83ca6b4759..7c6ac73f5f 100644 --- a/stats/pwc-language-breakdown.json +++ b/stats/pwc-language-breakdown.json @@ -1,120 +1,31 @@ { + "chart" : { + "type" : "column" + }, + "xAxis" : { + "type" : "category" + }, + "plotOptions" : { + "series" : { + "borderWidth" : 0, + "dataLabels" : { + "enabled" : 1, + "format" : "{point.y}" + } + } + }, "yAxis" : { "title" : { "text" : "Total Solutions" } }, - "series" : [ - { - "name" : "Perl Weekly Challenge Languages", - "data" : [ - { - "name" : "#001", - "drilldown" : "001", - "y" : 123 - }, - { - "y" : 104, - "name" : "#002", - "drilldown" : "002" - }, - { - "drilldown" : "003", - "name" : "#003", - "y" : 66 - }, - { - "name" : "#004", - "drilldown" : "004", - "y" : 84 - }, - { - "drilldown" : "005", - "name" : "#005", - "y" : 66 - }, - { - "name" : "#006", - "drilldown" : "006", - "y" : 47 - }, - { - "y" : 54, - "drilldown" : "007", - "name" : "#007" - }, - { - "y" : 67, - "drilldown" : "008", - "name" : "#008" - }, - { - "drilldown" : "009", - "name" : "#009", - "y" : 65 - }, - { - "y" : 58, - "drilldown" : "010", - "name" : "#010" - }, - { - "y" : 77, - "name" : "#011", - "drilldown" : "011" - }, - { - "drilldown" : "012", - "name" : "#012", - "y" : 81 - }, - { - "y" : 74, - "drilldown" : "013", - "name" : "#013" - }, - { - "drilldown" : "014", - "name" : "#014", - "y" : 94 - }, - { - "y" : 90, - "name" : "#015", - "drilldown" : "015" - }, - { - "drilldown" : "016", - "name" : "#016", - "y" : 64 - }, - { - "y" : 77, - "name" : "#017", - "drilldown" : "017" - }, - { - "y" : 73, - "name" : "#018", - "drilldown" : "018" - }, - { - "y" : 92, - "name" : "#019", - "drilldown" : "019" - }, - { - "drilldown" : "020", - "name" : "#020", - "y" : 53 - } - ], - "colorByPoint" : "true" - } - ], + "subtitle" : { + "text" : "Click the columns to drilldown the language breakdown. Last updated at 2019-08-10 22:35:56 GMT" + }, "drilldown" : { "series" : [ { + "id" : "001", "data" : [ [ "Perl 5", @@ -129,11 +40,9 @@ 10 ] ], - "name" : "001", - "id" : "001" + "name" : "001" }, { - "name" : "002", "id" : "002", "data" : [ [ @@ -148,9 +57,11 @@ "Blog", 9 ] - ] + ], + "name" : "002" }, { + "name" : "003", "data" : [ [ "Perl 5", @@ -165,10 +76,11 @@ 8 ] ], - "name" : "003", "id" : "003" }, { + "name" : "004", + "id" : "004", "data" : [ [ "Perl 5", @@ -182,11 +94,11 @@ "Blog", 9 ] - ], - "name" : "004", - "id" : "004" + ] }, { + "name" : "005", + "id" : "005", "data" : [ [ "Perl 5", @@ -200,13 +112,9 @@ "Blog", 11 ] - ], - "id" : "005", - "name" : "005" + ] }, { - "id" : "006", - "name" : "006", "data" : [ [ "Perl 5", @@ -220,9 +128,13 @@ "Blog", 6 ] - ] + ], + "id" : "006", + "name" : "006" }, { + "name" : "007", + "id" : "007", "data" : [ [ "Perl 5", @@ -236,9 +148,7 @@ "Blog", 8 ] - ], - "id" : "007", - "name" : "007" + ] }, { "name" : "008", @@ -259,8 +169,6 @@ ] }, { - "id" : "009", - "name" : "009", "data" : [ [ "Perl 5", @@ -274,9 +182,13 @@ "Blog", 11 ] - ] + ], + "id" : "009", + "name" : "009" }, { + "name" : "010", + "id" : "010", "data" : [ [ "Perl 5", @@ -290,12 +202,9 @@ "Blog", 9 ] - ], - "id" : "010", - "name" : "010" + ] }, { - "name" : "011", "id" : "011", "data" : [ [ @@ -310,7 +219,8 @@ "Blog", 8 ] - ] + ], + "name" : "011" }, { "data" : [ @@ -331,6 +241,7 @@ "name" : "012" }, { + "name" : "013", "data" : [ [ "Perl 5", @@ -345,8 +256,7 @@ 11 ] ], - "id" : "013", - "name" : "013" + "id" : "013" }, { "name" : "014", @@ -367,6 +277,8 @@ ] }, { + "name" : "015", + "id" : "015", "data" : [ [ "Perl 5", @@ -380,11 +292,11 @@ "Blog", 12 ] - ], - "name" : "015", - "id" : "015" + ] }, { + "name" : "016", + "id" : "016", "data" : [ [ "Perl 5", @@ -398,12 +310,9 @@ "Blog", 10 ] - ], - "name" : "016", - "id" : "016" + ] }, { - "name" : "017", "id" : "017", "data" : [ [ @@ -418,9 +327,11 @@ "Blog", 10 ] - ] + ], + "name" : "017" }, { + "name" : "018", "data" : [ [ "Perl 5", @@ -435,7 +346,6 @@ 11 ] ], - "name" : "018", "id" : "018" }, { @@ -453,16 +363,15 @@ 10 ] ], - "name" : "019", - "id" : "019" + "id" : "019", + "name" : "019" }, { - "id" : "020", "name" : "020", "data" : [ [ "Perl 5", - 28 + 30 ], [ "Perl 6", @@ -472,36 +381,127 @@ "Blog", 3 ] - ] + ], + "id" : "020" } ] }, - "xAxis" : { - "type" : "category" - }, "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/>" }, + "series" : [ + { + "data" : [ + { + "y" : 123, + "drilldown" : "001", + "name" : "#001" + }, + { + "name" : "#002", + "y" : 104, + "drilldown" : "002" + }, + { + "name" : "#003", + "drilldown" : "003", + "y" : 66 + }, + { + "y" : 84, + "drilldown" : "004", + "name" : "#004" + }, + { + "y" : 66, + "drilldown" : "005", + "name" : "#005" + }, + { + "name" : "#006", + "drilldown" : "006", + "y" : 47 + }, + { + "y" : 54, + "drilldown" : "007", + "name" : "#007" + }, + { + "name" : "#008", + "drilldown" : "008", + "y" : 67 + }, + { + "name" : "#009", + "drilldown" : "009", + "y" : 65 + }, + { + "y" : 58, + "drilldown" : "010", + "name" : "#010" + }, + { + "name" : "#011", + "y" : 77, + "drilldown" : "011" + }, + { + "y" : 81, + "drilldown" : "012", + "name" : |
