aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMohammad S Anwar <mohammad.anwar@yahoo.com>2019-08-06 14:29:09 +0100
committerMohammad S Anwar <mohammad.anwar@yahoo.com>2019-08-06 14:29:09 +0100
commit4b8b136f68f8ee1881b1b7e88bdb6c554eda7b59 (patch)
tree228238207f8a7f0b51a1390c084a38cf01cd426f
parent3b4cbfd6e6b966766b138b8254329c96c18ad054 (diff)
downloadperlweeklychallenge-club-4b8b136f68f8ee1881b1b7e88bdb6c554eda7b59.tar.gz
perlweeklychallenge-club-4b8b136f68f8ee1881b1b7e88bdb6c554eda7b59.tar.bz2
perlweeklychallenge-club-4b8b136f68f8ee1881b1b7e88bdb6c554eda7b59.zip
- Added solutions by Mark Anderson.
-rw-r--r--challenge-020/mark-anderson/perl5/ch-1.pl14
-rw-r--r--challenge-020/mark-anderson/perl5/ch-2.pl26
-rw-r--r--stats/pwc-current.json101
-rw-r--r--stats/pwc-language-breakdown-summary.json82
-rw-r--r--stats/pwc-language-breakdown.json320
-rw-r--r--stats/pwc-leaders.json498
-rw-r--r--stats/pwc-summary-1-30.json108
-rw-r--r--stats/pwc-summary-31-60.json44
-rw-r--r--stats/pwc-summary-61-90.json42
-rw-r--r--stats/pwc-summary-91-120.json68
-rw-r--r--stats/pwc-summary.json256
11 files changed, 807 insertions, 752 deletions
diff --git a/challenge-020/mark-anderson/perl5/ch-1.pl b/challenge-020/mark-anderson/perl5/ch-1.pl
new file mode 100644
index 0000000000..406398139e
--- /dev/null
+++ b/challenge-020/mark-anderson/perl5/ch-1.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/env perl
+
+use Modern::Perl '2018';
+
+my $string = shift || 'ABBCDEEF';
+my @array;
+
+while($string =~ /((.)\2*)/g) {
+ push @array, $1;
+}
+
+say "@array";
+
+
diff --git a/challenge-020/mark-anderson/perl5/ch-2.pl b/challenge-020/mark-anderson/perl5/ch-2.pl
new file mode 100644
index 0000000000..b3f29fd3bf
--- /dev/null
+++ b/challenge-020/mark-anderson/perl5/ch-2.pl
@@ -0,0 +1,26 @@
+#!/usr/bin/env perl
+
+use Modern::Perl '2018';
+use List::Util 'sum';
+use Math::Factor::XS 'factors';
+
+my %sum;
+
+my $num_1 = 0;
+
+while(1) {
+ $num_1++;
+
+ my $num_2 = sum (1, factors($num_1));
+
+ next if $num_1 == $num_2;
+
+ $sum{$num_1} = $num_2;
+
+ $sum{$num_2} // next;
+
+ if($num_1 == $sum{$num_2}) {
+ say "$num_2, $num_1";
+ last;
+ }
+}
diff --git a/stats/pwc-current.json b/stats/pwc-current.json
index 6c8d2a219a..2360e25ee0 100644
--- a/stats/pwc-current.json
+++ b/stats/pwc-current.json
@@ -2,7 +2,6 @@
"drilldown" : {
"series" : [
{
- "name" : "Dave Jacoby",
"id" : "Dave Jacoby",
"data" : [
[
@@ -13,51 +12,61 @@
"Blog",
1
]
- ]
+ ],
+ "name" : "Dave Jacoby"
},
{
- "name" : "Duane Powell",
- "id" : "Duane Powell",
"data" : [
[
"Perl 5",
2
]
- ]
+ ],
+ "id" : "Duane Powell",
+ "name" : "Duane Powell"
},
{
"name" : "E. Choroba",
+ "id" : "E. Choroba",
"data" : [
[
"Perl 5",
2
]
- ],
- "id" : "E. Choroba"
+ ]
},
{
- "name" : "Kevin Colyer",
"data" : [
[
"Perl 6",
2
]
],
- "id" : "Kevin Colyer"
+ "id" : "Kevin Colyer",
+ "name" : "Kevin Colyer"
},
{
+ "id" : "Mark Anderson",
"data" : [
[
"Perl 5",
- 1
+ 2
]
],
+ "name" : "Mark Anderson"
+ },
+ {
+ "name" : "Pete Houston",
"id" : "Pete Houston",
- "name" : "Pete Houston"
+ "data" : [
+ [
+ "Perl 5",
+ 1
+ ]
+ ]
},
{
"name" : "Roger Bell West",
- "id" : "Roger Bell West",
"data" : [
[
"Perl 5",
@@ -67,27 +76,21 @@
"Perl 6",
2
]
- ]
+ ],
+ "id" : "Roger Bell West"
}
]
},
- "plotOptions" : {
- "series" : {
- "borderWidth" : 0,
- "dataLabels" : {
- "format" : "{point.y}",
- "enabled" : 1
- }
- }
+ "title" : {
+ "text" : "Perl Weekly Challenge - 020"
},
"series" : [
{
"name" : "Perl Weekly Challenge - 020",
- "colorByPoint" : 1,
"data" : [
{
- "name" : "Dave Jacoby",
"y" : 3,
+ "name" : "Dave Jacoby",
"drilldown" : "Dave Jacoby"
},
{
@@ -101,46 +104,58 @@
"y" : 2
},
{
- "name" : "Kevin Colyer",
+ "drilldown" : "Kevin Colyer",
"y" : 2,
- "drilldown" : "Kevin Colyer"
+ "name" : "Kevin Colyer"
},
{
+ "drilldown" : "Mark Anderson",
+ "y" : 2,
+ "name" : "Mark Anderson"
+ },
+ {
+ "drilldown" : "Pete Houston",
"name" : "Pete Houston",
- "y" : 1,
- "drilldown" : "Pete Houston"
+ "y" : 1
},
{
"drilldown" : "Roger Bell West",
- "y" : 4,
- "name" : "Roger Bell West"
+ "name" : "Roger Bell West",
+ "y" : 4
}
- ]
+ ],
+ "colorByPoint" : 1
}
],
- "xAxis" : {
- "type" : "category"
- },
- "legend" : {
- "enabled" : 0
- },
"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/>"
},
- "title" : {
- "text" : "Perl Weekly Challenge - 020"
- },
- "chart" : {
- "type" : "column"
+ "legend" : {
+ "enabled" : 0
},
- "subtitle" : {
- "text" : "[Champions: 6] Last updated at 2019-08-06 00:21:57 GMT"
+ "xAxis" : {
+ "type" : "category"
},
"yAxis" : {
"title" : {
"text" : "Total Solutions"
}
+ },
+ "chart" : {
+ "type" : "column"
+ },
+ "plotOptions" : {
+ "series" : {
+ "dataLabels" : {
+ "enabled" : 1,
+ "format" : "{point.y}"
+ },
+ "borderWidth" : 0
+ }
+ },
+ "subtitle" : {
+ "text" : "[Champions: 7] Last updated at 2019-08-06 13:28:19 GMT"
}
}
diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json
index 64afbdfc98..e571516d9a 100644
--- a/stats/pwc-language-breakdown-summary.json
+++ b/stats/pwc-language-breakdown-summary.json
@@ -1,36 +1,21 @@
{
- "tooltip" : {
- "pointFormat" : "<b>{point.y:.0f}</b>"
- },
- "yAxis" : {
- "min" : 0,
- "title" : {
- "text" : null
- }
- },
- "xAxis" : {
- "labels" : {
- "style" : {
- "fontSize" : "13px",
- "fontFamily" : "Verdana, sans-serif"
- }
- },
- "type" : "category"
- },
- "chart" : {
- "type" : "column"
- },
"title" : {
"text" : "Perl Weekly Challenge Contributions - 2019"
},
- "subtitle" : {
- "text" : "Last updated at 2019-08-06 00:22:06 GMT"
- },
- "legend" : {
- "enabled" : "false"
- },
"series" : [
{
+ "dataLabels" : {
+ "format" : "{point.y:.0f}",
+ "enabled" : "true",
+ "style" : {
+ "fontFamily" : "Verdana, sans-serif",
+ "fontSize" : "13px"
+ },
+ "rotation" : -90,
+ "y" : 10,
+ "color" : "#FFFFFF",
+ "align" : "right"
+ },
"data" : [
[
"Blog",
@@ -38,26 +23,41 @@
],
[
"Perl 5",
- 811
+ 813
],
[
"Perl 6",
474
]
],
- "name" : "Contributions",
- "dataLabels" : {
- "format" : "{point.y:.0f}",
- "align" : "right",
- "style" : {
- "fontSize" : "13px",
- "fontFamily" : "Verdana, sans-serif"
- },
- "y" : 10,
- "enabled" : "true",
- "rotation" : -90,
- "color" : "#FFFFFF"
+ "name" : "Contributions"
+ }
+ ],
+ "tooltip" : {
+ "pointFormat" : "<b>{point.y:.0f}</b>"
+ },
+ "legend" : {
+ "enabled" : "false"
+ },
+ "xAxis" : {
+ "type" : "category",
+ "labels" : {
+ "style" : {
+ "fontFamily" : "Verdana, sans-serif",
+ "fontSize" : "13px"
}
}
- ]
+ },
+ "chart" : {
+ "type" : "column"
+ },
+ "subtitle" : {
+ "text" : "Last updated at 2019-08-06 13:28:49 GMT"
+ },
+ "yAxis" : {
+ "min" : 0,
+ "title" : {
+ "text" : null
+ }
+ }
}
diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json
index 8623bf2edd..75237d725a 100644
--- a/stats/pwc-language-breakdown.json
+++ b/stats/pwc-language-breakdown.json
@@ -1,13 +1,140 @@
{
+ "xAxis" : {
+ "type" : "category"
+ },
+ "chart" : {
+ "type" : "column"
+ },
+ "subtitle" : {
+ "text" : "Click the columns to drilldown the language breakdown. Last updated at 2019-08-06 13:28:49 GMT"
+ },
"tooltip" : {
- "headerFormat" : "<span style=\"font-size:11px\"></span>",
"pointFormat" : "<span style=\"color:{point.color}\">Challenge {point.name}</span>: <b>{point.y:f}</b><br/>",
+ "headerFormat" : "<span style=\"font-size:11px\"></span>",
"followPointer" : "true"
},
+ "legend" : {
+ "enabled" : "false"
+ },
+ "series" : [
+ {
+ "name" : "Perl Weekly Challenge Languages",
+ "data" : [
+ {
+ "drilldown" : "001",
+ "y" : 123,
+ "name" : "#001"
+ },
+ {
+ "name" : "#002",
+ "y" : 104,
+ "drilldown" : "002"
+ },
+ {
+ "name" : "#003",
+ "drilldown" : "003",
+ "y" : 66
+ },
+ {
+ "name" : "#004",
+ "y" : 84,
+ "drilldown" : "004"
+ },
+ {
+ "y" : 66,
+ "drilldown" : "005",
+ "name" : "#005"
+ },
+ {
+ "drilldown" : "006",
+ "y" : 47,
+ "name" : "#006"
+ },
+ {
+ "drilldown" : "007",
+ "y" : 54,
+ "name" : "#007"
+ },
+ {
+ "drilldown" : "008",
+ "y" : 67,
+ "name" : "#008"
+ },
+ {
+ "y" : 65,
+ "drilldown" : "009",
+ "name" : "#009"
+ },
+ {
+ "drilldown" : "010",
+ "y" : 58,
+ "name" : "#010"
+ },
+ {
+ "name" : "#011",
+ "drilldown" : "011",
+ "y" : 77
+ },
+ {
+ "name" : "#012",
+ "drilldown" : "012",
+ "y" : 81
+ },
+ {
+ "drilldown" : "013",
+ "y" : 74,
+ "name" : "#013"
+ },
+ {
+ "name" : "#014",
+ "y" : 94,
+ "drilldown" : "014"
+ },
+ {
+ "drilldown" : "015",
+ "y" : 90,
+ "name" : "#015"
+ },
+ {
+ "name" : "#016",
+ "y" : 64,
+ "drilldown" : "016"
+ },
+ {
+ "name" : "#017",
+ "y" : 77,
+ "drilldown" : "017"
+ },
+ {
+ "y" : 73,
+ "drilldown" : "018",
+ "name" : "#018"
+ },
+ {
+ "drilldown" : "019",
+ "y" : 92,
+ "name" : "#019"
+ },
+ {
+ "drilldown" : "020",
+ "y" : 16,
+ "name" : "#020"
+ }
+ ],
+ "colorByPoint" : "true"
+ }
+ ],
+ "title" : {
+ "text" : "Perl Weekly Challenge Language"
+ },
+ "yAxis" : {
+ "title" : {
+ "text" : "Total Solutions"
+ }
+ },
"drilldown" : {
"series" : [
{
- "name" : "001",
"data" : [
[
"Perl 5",
@@ -22,9 +149,11 @@
10
]
],
+ "name" : "001",
"id" : "001"
},
{
+ "id" : "002",
"name" : "002",
"data" : [
[
@@ -39,11 +168,9 @@
"Blog",
9
]
- ],
- "id" : "002"
+ ]
},
{
- "name" : "003",
"data" : [
[
"Perl 5",
@@ -58,10 +185,10 @@
8
]
],
+ "name" : "003",
"id" : "003"
},
{
- "name" : "004",
"data" : [
[
"Perl 5",
@@ -76,6 +203,7 @@
9
]
],
+ "name" : "004",
"id" : "004"
},
{
@@ -116,6 +244,7 @@
},
{
"id" : "007",
+ "name" : "007",
"data" : [
[
"Perl 5",
@@ -129,8 +258,7 @@
"Blog",
8
]
- ],
- "name" : "007"
+ ]
},
{
"data" : [
@@ -151,8 +279,6 @@
"id" : "008"
},
{
- "id" : "009",
- "name" : "009",
"data" : [
[
"Perl 5",
@@ -166,10 +292,11 @@
"Blog",
11
]
- ]
+ ],
+ "name" : "009",
+ "id" : "009"
},
{
- "name" : "010",
"data" : [
[
"Perl 5",
@@ -184,10 +311,11 @@
9
]
],
+ "name" : "010",
"id" : "010"
},
{
- "id" : "011",
+ "name" : "011",
"data" : [
[
"Perl 5",
@@ -202,10 +330,10 @@
8
]
],
- "name" : "011"
+ "id" : "011"
},
{
- "name" : "012",
+ "id" : "012",
"data" : [
[
"Perl 5",
@@ -220,9 +348,10 @@
9
]
],
- "id" : "012"
+ "name" : "012"
},
{
+ "name" : "013",
"data" : [
[
"Perl 5",
@@ -237,11 +366,10 @@
11
]
],
- "name" : "013",
"id" : "013"
},
{
- "name" : "014",
+ "id" : "014",
"data" : [
[
"Perl 5",
@@ -256,11 +384,10 @@
13
]
],
- "id" : "014"
+ "name" : "014"
},
{
"id" : "015",
- "name" : "015",
"data" : [
[
"Perl 5",
@@ -274,10 +401,10 @@
"Blog",
12
]
- ]
+ ],
+ "name" : "015"
},
{
- "id" : "016",
"data" : [
[
"Perl 5",
@@ -292,10 +419,10 @@
10
]
],
- "name" : "016"
+ "name" : "016",
+ "id" : "016"
},
{
- "name" : "017",
"data" : [
[
"Perl 5",
@@ -310,9 +437,11 @@
10
]
],
+ "name" : "017",
"id" : "017"
},
{
+ "id" : "018",
"data" : [
[
"Perl 5",
@@ -327,11 +456,9 @@
11
]
],
- "name" : "018",
- "id" : "018"
+ "name" : "018"
},
{
- "name" : "019",
"data" : [
[
"Perl 5",
@@ -346,6 +473,7 @@
10
]
],
+ "name" : "019",
"id" : "019"
},
{
@@ -353,7 +481,7 @@
"data" : [
[
"Perl 5",
- 9
+ 11
],
[
"Perl 6",
@@ -370,139 +498,11 @@
},
"plotOptions" : {
"series" : {
+ "borderWidth" : 0,
"dataLabels" : {
- "format" : "{point.y}",
- "enabled" : 1
- },
- "borderWidth" : 0
- }
- },
- "yAxis" : {
- "title" : {
- "text" : "Total Solutions"
- }
- },
- "chart" : {
- "type" : "column"
- },
- "xAxis" : {
- "type" : "category"
- },
- "series" : [
- {
- "data" : [
- {
- "y" : 123,
- "name" : "#001",
- "drilldown" : "001"
- },
- {
- "drilldown" : "002",
- "name" : "#002",
- "y" : 104
- },
- {
- "drilldown" : "003",
- "name" : "#003",
- "y" : 66
- },
- {
- "y" : 84,
- "name" : "#004",
- "drilldown" : "004"
- },
- {
- "name" : "#005",
- "drilldown" : "005",
- "y" : 66
- },
- {
- "drilldown" : "006",
- "name" : "#006",
- "y" : 47
- },
- {
- "drilldown" : "007",
- "name" : "#007",
- "y" : 54
- },
- {
- "y" : 67,
- "name" : "#008",
- "drilldown" : "008"
- },
- {
- "y" : 65,
- "drilldown" : "009",
- "name" : "#009"
- },
- {
- "y" : 58,
- "name" : "#010",
- "drilldown" : "010"
- },
- {
- "name" : "#011",
- "drilldown" : "011",
- "y" : 77
- },
- {
- "drilldown" : "012",
- "name" : "#012",
- "y" : 81
- },
- {
- "drilldown" : "013",
- "name" : "#013",
- "y" : 74
- },
- {
- "y" : 94,
- "drilldown" : "014",
- "name" : "#014"
- },
- {
- "name" : "#015",
- "drilldown" : "015",
- "y" : 90
- },
- {
- "y" : 64,
- "name" : "#016",
- "drilldown" : "016"
- },
- {
- "drilldown" : "017",
- "name" : "#017",
- "y" : 77
- },
- {
- "y" : 73,
- "drilldown" : "018",
- "name" : "#018"
- },
- {
- "name" : "#019",
- "drilldown" : "019",
- "y" : 92
- },
- {
- "y" : 14,
- "name" : "#020",
- "drilldown" : "020"
- }
- ],
- "name" : "Perl Weekly Challenge Languages",
- "colorByPoint" : "true"
+ "enabled" : 1,
+ "format" : "{point.y}"
+ }
}
- ],
- "title" : {
- "text" : "Perl Weekly Challenge Language"
- },
- "legend" : {
- "enabled" : "false"
- },
- "subtitle" : {
- "text" : "Click the columns to drilldown the language breakdown. Last updated at 2019-08-06 00:22:06 GMT"
}
}
diff --git a/stats/pwc-leaders.json b/stats/pwc-leaders.json
index 805afe7bb2..f37621e14c 100644
--- a/stats/pwc-leaders.json
+++ b/stats/pwc-leaders.json
@@ -1,23 +1,51 @@
{
+ "chart" : {
+ "type" : "column"
+ },
+ "tooltip" : {
+ "followPointer" : "true",
+ "headerFormat" : "<span style=\"font-size:11px\"></span>",
+ "pointFormat" : "<span style=\"color:{point.color}\">{point.name}</span>: <b>{point.y:f}</b><br/>"
+ },
+ "yAxis" : {
+ "title" : {
+ "text" : "Total Score"
+ }
+ },
+ "xAxis" : {
+ "type" : "category"
+ },
+ "plotOptions" : {
+ "series" : {
+ "dataLabels" : {
+ "enabled" : 1,
+ "format" : "{point.y}"
+ },
+ "borderWidth" : 0
+ }
+ },
+ "title" : {
+ "text" : "Perl Weekly Challenge Leaders (TOP 50)"
+ },
"drilldown" : {
"series" : [
{
+ "id" : "Joelle Maslak",
+ "name" : "Joelle Maslak",
"data" : [
[
"Blog",
4
],
[
- "Perl 6",
+ "Perl 5",
49
],
[
- "Perl 5",
+ "Perl 6",
49
]
- ],
- "id" : "Joelle Maslak",
- "name" : "Joelle Maslak"
+ ]
},
{
"id" : "Laurent Rosenfeld",
@@ -38,7 +66,7 @@
"name" : "Laurent Rosenfeld"
},
{
- "id" : "Jaldhar H. Vyas",
+ "name" : "Jaldhar H. Vyas",
"data" : [
[
"Perl 5",
@@ -53,41 +81,42 @@
6
]
],
- "name" : "Jaldhar H. Vyas"
+ "id" : "Jaldhar H. Vyas"
},
{
- "id" : "Ruben Westerberg",
+ "name" : "Ruben Westerberg",
"data" : [
[
- "Perl 5",
+ "Perl 6",
35
],
[
- "Perl 6",
+ "Perl 5",
35
]
],
- "name" : "Ruben Westerberg"
+ "id" : "Ruben Westerberg"
},
{
+ "name" : "Athanasius",
"data" : [
[
- "Blog",
- 3
- ],
- [
"Perl 6",
17
],
[
"Perl 5",
41
+ ],
+ [
+ "Blog",
+ 3
]
],
- "id" : "Athanasius",
- "name" : "Athanasius"
+ "id" : "Athanasius"
},
{
+ "name" : "Adam Russell",
"data" : [
[
"Perl 5",
@@ -98,38 +127,39 @@
19
]
],
- "id" : "Adam Russell",
- "name" : "Adam Russell"
+ "id" : "Adam Russell"
},
{
- "name" : "Arne Sommer",
- "id" : "Arne Sommer",
"data" : [
[
- "Perl 6",
- 35
- ],
- [
"Blog",
18
+ ],
+ [
+ "Perl 6",
+ 35
]
- ]
+ ],
+ "name" : "Arne Sommer",
+ "id" : "Arne Sommer"
},
{
"data" : [
[
- "Perl 5",
- 32
- ],
- [
"Blog",
16
+ ],
+ [
+ "Perl 5",
+ 32
]
],
- "id" : "E. Choroba",
- "name" : "E. Choroba"
+ "name" : "E. Choroba",
+ "id" : "E. Choroba"
},
{
+ "id" : "Francis Whittle",
+ "name" : "Francis Whittle",
"data" : [
[
"Blog",
@@ -139,40 +169,38 @@
"Perl 6",
35
]
- ],
- "id" : "Francis Whittle",
- "name" : "Francis Whittle"
+ ]
},
{
+ "id" : "Dave Jacoby",
"data" : [
[
- "Blog",
- 17
+ "Perl 5",
+ 25
],
[
"Perl 6",
1
],
[
- "Perl 5",
- 25
+ "Blog",
+ 17
]
],
- "id" : "Dave Jacoby",
"name" : "Dave Jacoby"
},
{
+ "id" : "Kian-Meng Ang",
"data" : [
[
- "Blog",
- 11
- ],
- [
"Perl 5",
31
+ ],
+ [
+ "Blog",
+ 11
]
],
- "id" : "Kian-Meng Ang",
"name" : "Kian-Meng Ang"
},
{
@@ -194,17 +222,17 @@
"name" : "Simon Proctor"
},
{
- "id" : "Andrezgz",
+ "name" : "Andrezgz",
"data" : [
[
"Perl 5",
36
]
],
- "name" : "Andrezgz"
+ "id" : "Andrezgz"
},
{
- "name" : "Feng Chang",
+ "id" : "Feng Chang",
"data" : [
[
"Perl 6",
@@ -215,25 +243,23 @@
17
]
],
- "id" : "Feng Chang"
+ "name" : "Feng Chang"
},
{
+ "id" : "Yozen Hernandez",
"name" : "Yozen Hernandez",
"data" : [
[
- "Perl 5",
- 21
- ],
- [
"Blog",
14
+ ],
+ [
+ "Perl 5",
+ 21
]
- ],
- "id" : "Yozen Hernandez"
+ ]
},
{
- "name" : "Gustavo Chaves",
- "id" : "Gustavo Chaves",
"data" : [
[
"Blog",
@@ -243,7 +269,9 @@
"Perl 5",
30
]
- ]
+ ],
+ "name" : "Gustavo Chaves",
+ "id" : "Gustavo Chaves"
},
{
"name" : "Daniel Mantovani",
@@ -256,88 +284,88 @@
"id" : "Daniel Mantovani"