aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMohammad S Anwar <mohammad.anwar@yahoo.com>2021-01-12 11:45:53 +0000
committerMohammad S Anwar <mohammad.anwar@yahoo.com>2021-01-12 11:45:53 +0000
commit17b3e453b24d2e4187098196ab214a2f64621d34 (patch)
tree37f0b09008eb06d1f9c45559fe4646f5e4d597b7
parent017145744161d53f08c461310b43f242f36ff69b (diff)
downloadperlweeklychallenge-club-17b3e453b24d2e4187098196ab214a2f64621d34.tar.gz
perlweeklychallenge-club-17b3e453b24d2e4187098196ab214a2f64621d34.tar.bz2
perlweeklychallenge-club-17b3e453b24d2e4187098196ab214a2f64621d34.zip
- Added solutions by Pete Houston.
-rw-r--r--challenge-095/pete-houston/perl/ch-1.pl20
-rw-r--r--challenge-095/pete-houston/perl/ch-2.pl59
-rw-r--r--stats/pwc-current.json189
-rw-r--r--stats/pwc-language-breakdown-summary.json56
-rw-r--r--stats/pwc-language-breakdown.json1350
-rw-r--r--stats/pwc-leaders.json704
-rw-r--r--stats/pwc-summary-1-30.json50
-rw-r--r--stats/pwc-summary-121-150.json44
-rw-r--r--stats/pwc-summary-151-180.json90
-rw-r--r--stats/pwc-summary-181-210.json98
-rw-r--r--stats/pwc-summary-211-240.json36
-rw-r--r--stats/pwc-summary-31-60.json46
-rw-r--r--stats/pwc-summary-61-90.json42
-rw-r--r--stats/pwc-summary-91-120.json108
-rw-r--r--stats/pwc-summary.json472
15 files changed, 1729 insertions, 1635 deletions
diff --git a/challenge-095/pete-houston/perl/ch-1.pl b/challenge-095/pete-houston/perl/ch-1.pl
new file mode 100644
index 0000000000..94fa674548
--- /dev/null
+++ b/challenge-095/pete-houston/perl/ch-1.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/env perl
+#===============================================================================
+#
+# FILE: 9501.pl
+#
+# USAGE: ./9501.pl N
+#
+# DESCRIPTION: Print 1 if the number N is palindromic, 0 otherwise
+#
+# AUTHOR: Pete Houston (pete), cpan@openstrike.co.uk
+# ORGANIZATION: Openstrike
+# VERSION: 1.0
+# CREATED: 11/01/21
+#===============================================================================
+
+use strict;
+use warnings;
+
+my $n = shift;
+print $n eq reverse ("$n") ? "1\n" : "0\n";
diff --git a/challenge-095/pete-houston/perl/ch-2.pl b/challenge-095/pete-houston/perl/ch-2.pl
new file mode 100644
index 0000000000..7b00bca3fb
--- /dev/null
+++ b/challenge-095/pete-houston/perl/ch-2.pl
@@ -0,0 +1,59 @@
+#!/usr/bin/env perl
+#===============================================================================
+#
+# FILE: 9502.pl
+#
+# USAGE: ./9502.pl
+#
+# DESCRIPTION: Stack demo as a test script
+#
+# REQUIREMENTS: List::Util and Test::More (which are in core)
+# NOTES: Since a stack is a list, we will use an arrayref object
+# instead of the traditional hashref.
+# AUTHOR: Pete Houston (pete), cpan@openstrike.co.uk
+# ORGANIZATION: Openstrike
+# VERSION: 1.0
+# CREATED: 11/01/21
+#===============================================================================
+
+use strict;
+use warnings;
+
+package Stack;
+
+use List::Util;
+
+sub new {
+ my $class = shift;
+ return bless \@_, $class;
+}
+
+sub push {
+ my ($self, @args) = @_;
+ push @$self, @args;
+}
+
+sub pop {
+ pop @{$_[0]};
+}
+
+sub top {
+ return $_[0]->[-1];
+}
+
+sub min {
+ return List::Util::min @{$_[0]};
+}
+
+package main;
+
+use Test::More tests => 3;
+
+my $stack = Stack->new;
+$stack->push (2);
+$stack->push (-1);
+$stack->push (0);
+is $stack->pop, 0, 'Popped 0';
+is $stack->top, -1, '-1 is at stack top';
+$stack->push (0);
+is $stack->min, -1, '-1 is min value';
diff --git a/stats/pwc-current.json b/stats/pwc-current.json
index 68c47bccfa..636e93e970 100644
--- a/stats/pwc-current.json
+++ b/stats/pwc-current.json
@@ -1,77 +1,27 @@
{
"plotOptions" : {
"series" : {
- "borderWidth" : 0,
"dataLabels" : {
"format" : "{point.y}",
"enabled" : 1
- }
+ },
+ "borderWidth" : 0
}
},
"subtitle" : {
- "text" : "[Champions: 10] Last updated at 2021-01-12 01:19:07 GMT"
+ "text" : "[Champions: 11] Last updated at 2021-01-12 11:43:30 GMT"
+ },
+ "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/>"
},
- "series" : [
- {
- "colorByPoint" : 1,
- "name" : "Perl Weekly Challenge - 095",
- "data" : [
- {
- "name" : "Andrew Shitov",
- "y" : 2,
- "drilldown" : "Andrew Shitov"
- },
- {
- "name" : "Flavio Poletti",
- "y" : 4,
- "drilldown" : "Flavio Poletti"
- },
- {
- "drilldown" : "Gustavo Chaves",
- "y" : 2,
- "name" : "Gustavo Chaves"
- },
- {
- "drilldown" : "James Smith",
- "y" : 2,
- "name" : "James Smith"
- },
- {
- "drilldown" : "Luca Ferrari",
- "y" : 4,
- "name" : "Luca Ferrari"
- },
- {
- "drilldown" : "Niels van Dijke",
- "name" : "Niels van Dijke",
- "y" : 2
- },
- {
- "name" : "Pavel Kuptsov",
- "y" : 2,
- "drilldown" : "Pavel Kuptsov"
- },
- {
- "y" : 2,
- "name" : "Simon Proctor",
- "drilldown" : "Simon Proctor"
- },
- {
- "name" : "Stuart Little",
- "y" : 2,
- "drilldown" : "Stuart Little"
- },
- {
- "drilldown" : "W. Luis Mochan",
- "y" : 3,
- "name" : "W. Luis Mochan"
- }
- ]
- }
- ],
"title" : {
"text" : "Perl Weekly Challenge - 095"
},
+ "chart" : {
+ "type" : "column"
+ },
"yAxis" : {
"title" : {
"text" : "Total Solutions"
@@ -80,17 +30,17 @@
"drilldown" : {
"series" : [
{
+ "id" : "Andrew Shitov",
"data" : [
[
"Raku",
2
]
],
- "name" : "Andrew Shitov",
- "id" : "Andrew Shitov"
+ "name" : "Andrew Shitov"
},
{
- "name" : "Flavio Poletti",
+ "id" : "Flavio Poletti",
"data" : [
[
"Perl",
@@ -101,31 +51,29 @@
2
]
],
- "id" : "Flavio Poletti"
+ "name" : "Flavio Poletti"
},
{
- "name" : "Gustavo Chaves",
"data" : [
[
"Perl",
2
]
],
- "id" : "Gustavo Chaves"
+ "id" : "Gustavo Chaves",
+ "name" : "Gustavo Chaves"
},
{
+ "name" : "James Smith",
"data" : [
[
"Perl",
2
]
],
- "name" : "James Smith",
"id" : "James Smith"
},
{
- "id" : "Luca Ferrari",
- "name" : "Luca Ferrari",
"data" : [
[
"Raku",
@@ -135,16 +83,18 @@
"Blog",
2
]
- ]
+ ],
+ "id" : "Luca Ferrari",
+ "name" : "Luca Ferrari"
},
{
+ "name" : "Niels van Dijke",
"data" : [
[
"Perl",
2
]
],
- "name" : "Niels van Dijke",
"id" : "Niels van Dijke"
},
{
@@ -154,18 +104,28 @@
2
]
],
- "name" : "Pavel Kuptsov",
- "id" : "Pavel Kuptsov"
+ "id" : "Pavel Kuptsov",
+ "name" : "Pavel Kuptsov"
+ },
+ {
+ "name" : "Pete Houston",
+ "id" : "Pete Houston",
+ "data" : [
+ [
+ "Perl",
+ 2
+ ]
+ ]
},
{
- "id" : "Simon Proctor",
+ "name" : "Simon Proctor",
"data" : [
[
"Raku",
2
]
],
- "name" : "Simon Proctor"
+ "id" : "Simon Proctor"
},
{
"name" : "Stuart Little",
@@ -179,6 +139,7 @@
},
{
"name" : "W. Luis Mochan",
+ "id" : "W. Luis Mochan",
"data" : [
[
"Perl",
@@ -188,23 +149,77 @@
"Blog",
1
]
- ],
- "id" : "W. Luis Mochan"
+ ]
}
]
},
- "chart" : {
- "type" : "column"
- },
- "tooltip" : {
- "followPointer" : 1,
- "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/>"
- },
"legend" : {
"enabled" : 0
},
"xAxis" : {
"type" : "category"
- }
+ },
+ "series" : [
+ {
+ "name" : "Perl Weekly Challenge - 095",
+ "data" : [
+ {
+ "y" : 2,
+ "name" : "Andrew Shitov",
+ "drilldown" : "Andrew Shitov"
+ },
+ {
+ "y" : 4,
+ "name" : "Flavio Poletti",
+ "drilldown" : "Flavio Poletti"
+ },
+ {
+ "y" : 2,
+ "name" : "Gustavo Chaves",
+ "drilldown" : "Gustavo Chaves"
+ },
+ {
+ "drilldown" : "James Smith",
+ "name" : "James Smith",
+ "y" : 2
+ },
+ {
+ "y" : 4,
+ "name" : "Luca Ferrari",
+ "drilldown" : "Luca Ferrari"
+ },
+ {
+ "drilldown" : "Niels van Dijke",
+ "name" : "Niels van Dijke",
+ "y" : 2
+ },
+ {
+ "drilldown" : "Pavel Kuptsov",
+ "name" : "Pavel Kuptsov",
+ "y" : 2
+ },
+ {
+ "name" : "Pete Houston",
+ "y" : 2,
+ "drilldown" : "Pete Houston"
+ },
+ {
+ "name" : "Simon Proctor",
+ "y" : 2,
+ "drilldown" : "Simon Proctor"
+ },
+ {
+ "name" : "Stuart Little",
+ "y" : 2,
+ "drilldown" : "Stuart Little"
+ },
+ {
+ "drilldown" : "W. Luis Mochan",
+ "y" : 3,
+ "name" : "W. Luis Mochan"
+ }
+ ],
+ "colorByPoint" : 1
+ }
+ ]
}
diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json
index a88ba3d9a0..299311094a 100644
--- a/stats/pwc-language-breakdown-summary.json
+++ b/stats/pwc-language-breakdown-summary.json
@@ -1,49 +1,43 @@
{
- "chart" : {
- "type" : "column"
- },
- "xAxis" : {
- "labels" : {
- "style" : {
- "fontFamily" : "Verdana, sans-serif",
- "fontSize" : "13px"
- }
- },
- "type" : "category"
- },
- "legend" : {
- "enabled" : "false"
+ "subtitle" : {
+ "text" : "Last updated at 2021-01-12 11:43:30 GMT"
},
"tooltip" : {
"pointFormat" : "<b>{point.y:.0f}</b>"
},
- "subtitle" : {
- "text" : "Last updated at 2021-01-12 01:19:07 GMT"
+ "legend" : {
+ "enabled" : "false"
},
"yAxis" : {
+ "min" : 0,
"title" : {
"text" : null
- },
- "min" : 0
+ }
},
- "title" : {
- "text" : "Perl Weekly Challenge Contributions [2019 - 2020]"
+ "xAxis" : {
+ "labels" : {
+ "style" : {
+ "fontFamily" : "Verdana, sans-serif",
+ "fontSize" : "13px"
+ }
+ },
+ "type" : "category"
},
"series" : [
{
- "name" : "Contributions",
"dataLabels" : {
- "color" : "#FFFFFF",
"y" : 10,
- "rotation" : -90,
+ "enabled" : "true",
+ "format" : "{point.y:.0f}",
+ "color" : "#FFFFFF",
+ "align" : "right",
"style" : {
"fontSize" : "13px",
"fontFamily" : "Verdana, sans-serif"
},
- "align" : "right",
- "format" : "{point.y:.0f}",
- "enabled" : "true"
+ "rotation" : -90
},
+ "name" : "Contributions",
"data" : [
[
"Blog",
@@ -51,7 +45,7 @@
],
[
"Perl",
- 4326
+ 4328
],
[
"Raku",
@@ -59,5 +53,11 @@
]
]
}
- ]
+ ],
+ "title" : {
+ "text" : "Perl Weekly Challenge Contributions [2019 - 2020]"
+ },
+ "chart" : {
+ "type" : "column"
+ }
}
diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json
index 1a3587c071..6c19d55112 100644
--- a/stats/pwc-language-breakdown.json
+++ b/stats/pwc-language-breakdown.json
@@ -1,525 +1,10 @@
{
- "title" : {
- "text" : "Perl Weekly Challenge Language"
- },
- "series" : [
- {
- "data" : [
- {
- "drilldown" : "001",
- "name" : "#001",
- "y" : 149
- },
- {
- "name" : "#002",
- "y" : 118,
- "drilldown" : "002"
- },
- {
- "y" : 75,
- "name" : "#003",
- "drilldown" : "003"
- },
- {
- "name" : "#004",
- "y" : 95,
- "drilldown" : "004"
- },
- {
- "drilldown" : "005",
- "y" : 76,
- "name" : "#005"
- },
- {
- "drilldown" : "006",
- "name" : "#006",
- "y" : 56
- },
- {
- "y" : 63,
- "name" : "#007",
- "drilldown" : "007"
- },
- {
- "y" : 74,
- "name" : "#008",
- "drilldown" : "008"
- },
- {
- "y" : 72,
- "name" : "#009",
- "drilldown" : "009"
- },
- {
- "drilldown" : "010",
- "y" : 62,
- "name" : "#010"
- },
- {
- "drilldown" : "011",
- "y" : 81,
- "name" : "#011"
- },
- {
- "y" : 85,
- "name" : "#012",
- "drilldown" : "012"
- },
- {
- "drilldown" : "013",
- "name" : "#013",
- "y" : 80
- },
- {
- "drilldown" : "014",
- "name" : "#014",
- "y" : 98
- },
- {
- "drilldown" : "015",
- "y" : 95,
- "name" : "#015"
- },
- {
- "drilldown" : "016",
- "name" : "#016",
- "y" : 68
- },
- {
- "drilldown" : "017",
- "y" : 81,
- "name" : "#017"
- },
- {
- "drilldown" : "018",
- "y" : 78,
- "name" : "#018"
- },
- {
- "drilldown" : "019",
- "name" : "#019",
- "y" : 99
- },
- {
- "y" : 97,
- "name" : "#020",
- "drilldown" : "020"
- },
- {
- "drilldown" : "021",
- "y" : 69,
- "name" : "#021"
- },
- {
- "drilldown" : "022",
- "y" : 65,
- "name" : "#022"
- },
- {
- "name" : "#023",
- "y" : 93,
- "drilldown" : "023"
- },
- {
- "name" : "#024",
- "y" : 72,
- "drilldown" : "024"
- },
- {
- "name" : "#025",
- "y" : 57,
- "drilldown" : "025"
- },
- {
- "drilldown" : "026",
- "name" : "#026",
- "y" : 72
- },
- {
- "name" : "#027",
- "y" : 60,
- "drilldown" : "027"
- },
- {
- "drilldown" : "028",
- "y" : 80,
- "name" : "#028"
- },
- {
- "name" : "#029",
- "y" : 79,
- "drilldown" : "029"
- },
- {
- "y" : 117,
- "name" : "#030",
- "drilldown" : "030"
- },
- {
- "drilldown" : "031",
- "name" : "#031",
- "y" : 89
- },
- {
- "name" : "#032",
- "y" : 94,
- "drilldown" : "032"
- },
- {
- "drilldown" : "033",
- "name" : "#033",
- "y" : 110
- },
- {
- "drilldown" : "034",
- "name" : "#034",
- "y" : 64
- },
- {
- "drilldown" : "035",
- "name" : "#035",
- "y" : 64
- },
- {
- "y" : 68,
- "name" : "#036",
- "drilldown" : "036"
- },
- {
- "drilldown" : "037",
- "y" : 67,
- "name" : "#037"
- },
- {
- "name" : "#038",
- "y" : 67,
- "drilldown" : "038"
- },
- {
- "name" : "#039",
- "y" : 62,
- "drilldown" : "039"
- },
- {
- "drilldown" : "040",
- "y" : 73,
- "name" : "#040"
- },
- {
- "drilldown" : "041",
- "name" : "#041",
- "y" : 76
- },
- {
- "drilldown" : "042",
- "y" : 90,
- "name" : "#042"
- },
- {
- "name" : "#043",
- "y" : 68,
- "drilldown" : "043"
- },
- {
- "name" : "#044",
- "y" : 84,
- "drilldown" : "044"
- },
- {
- "drilldown" : "045",
- "name" : "#045",
- "y" : 96
- },
- {
- "drilldown" : "046",
- "name" : "#046",
- "y" : 87
- },
- {
- "drilldown" : "047",
- "y" : 84,
- "name" : "#047"
- },
- {
- "name" : "#048",
- "y" : 108,
- "drilldown" : "048"
- },
- {
- "drilldown" : "049",
- "y" : 89,
- "name" : "#049"
- },
- {
- "y" : 98,
- "name" : "#050",
- "drilldown" : "050"
- },
- {
- "y" : 89,
- "name" : "#051",
- "drilldown" : "051"
- },
- {
- "y" : 91,
- "name" : "#052",
- "drilldown" : "052"
- },
- {
- "drilldown" : "053",
- "y" : 101,
- "name" : "#053"
- },
- {
- "drilldown" : "054",
- "y" : 103,
- "name" : "#054"
- },
- {
- "name" : "#055",
- "y" : 88,
- "drilldown" : "055"
- },
- {
- "y" : 95,
- "name" : "#056",
- "drilldown" : "056"
- },
- {
- "drilldown" : "057",
- "y" : 80,
- "name" : "#057"
- },
- {
- "drilldown" : "058",
- "name" : "#058",
- "y" : 69
- },
- {
- "drilldown" : "059",
- "name" : "#059",
- "y" : 89
- },
- {
- "drilldown" : "060",
- "name" : "#060",
- "y" : 85
- },
- {
- "drilldown" : "061",
- "name" : "#061",
- "y" : 81
- },
- {
- "name" : "#062",
- "y" : 56,
- "drilldown" : "062"
- },
- {
- "y" : 89,
- "name" : "#063",
- "drilldown" : "063"
- },
- {
- "drilldown" : "064",
- "y" : 80,
- "name" : "#064"
- },
- {
- "name" : "#065",
- "y" : 73,
- "drilldown" : "065"
- },
- {
- "drilldown" : "066",
- "name" : "#066",
- "y" : 84
- },
- {
- "y" : 90,
- "name" : "#067",
- "drilldown" : "067"
- },
- {
- "name" : "#068",
- "y" : 75,
- "drilldown" : "068"
- },
- {
- "y" : 83,
- "name" : "#069",
- "drilldown" : "069"
- },
- {
- "name" : "#070",
- "y" : 93,
- "drilldown" : "070"
- },
- {
- "y" : 78,
- "name" : "#071",
- "drilldown" : "071"
- },
- {
- "drilldown" : "072",
- "y" : 112,
- "name" : "#072"
- },
- {
- "y" : 110,
- "name" : "#073",
- "drilldown" : "073"
- },
- {
- "y" : 115,
- "name" : "#074",
- "drilldown" : "074"
- },
- {
- "drilldown" : "075",
- "y" : 113,
- "name" : "#075"
- },
- {
- "y" : 97,
- "name" : "#076",
- "drilldown" : "076"
- },
- {
- "name" : "#077",
- "y" : 98,
- "drilldown" : "077"
- },
- {
- "drilldown" : "078",
- "name" : "#078",
- "y" : 127
- },
- {
- "y" : 122,
- "name" : "#079",
- "drilldown" : "079"
- },
- {
- "name" : "#080",
- "y" : 127,
- "drilldown" : "080"
- },
- {
- "y" : 114,
- "name" : "#081",
- "drilldown" : "081"
- },
- {
- "y" : 114,
- "name" : "#082",
- "drilldown" : "082"
- },
- {
- "drilldown" : "083",
- "name" : "#083",
- "y" : 127
- },
- {
- "drilldown" : "084",
- "y" : 119,
- "name" : "#084"
- },
- {
- "y" : 114,
- "name" : "#085",
- "drilldown" : "085"
- },
- {
- "y" : 104,
- "name" : "#086",
- "drilldown" : "086"
- },
- {
- "name" : "#087",
- "y" : 101,
- "drilldown" : "087"
- },
- {
- "name" : "#088",
- "y" : 121,
- "drilldown" : "088"
- },
- {
- "drilldown" : "089",
- "name" : "#089",
- "y" : 113
- },
- {
- "name" : "#090",
- "y" : 113,
- "drilldown" : "090"
- },
- {
- "name" : "#091",
- "y" : 106,
- "drilldown" : "091"
- },
- {
- "drilldown" : "092",
- "y" : 93,
- "name" : "#092"
- },
- {
- "name" : "#093",
- "y" : 85,
- "drilldown" : "093"
- },
- {
- "y" : 83,
- "name" : "#094",
- "drilldown" : "094"
- },
- {
- "name" : "#095",
- "y" : 25,
- "drilldown" : "095"
- }
- ],
- "name" : "Perl Weekly Challenge Languages",
- "colorByPoint" : "true"
- }
- ],
- "yAxis" : {
- "title" : {
- "text" : "Total Solutions"
- }
- },
- "plotOptions" : {
- "series" : {
- "dataLabels" : {
- "enabled" : 1,
- "format" : "{point.y}"
- },
- "borderWidth" : 0
- }
- },
- "subtitle" : {
- "text" : "Click the columns to drilldown the language breakdown. Last updated at 2021-01-12 01:19:07 GMT"
- },
- "tooltip" : {
- "pointFormat" : "<span style=\"color:{point.color}\">Challenge {point.name}</span>: <b>{point.y:f}</b><br/>",
- "followPointer" : "true",
- "headerFormat" : "<span style=\"font-size:11px\"></span>"
- },
- "xAxis" : {
- "type" : "category"
- },
"legend" : {
"enabled" : "false"
},
- "chart" : {
- "type" : "column"
- },
"drilldown" : {
"series" : [
{
- "id" : "001",
"name" : "001",
"data" : [
[
@@ -534,9 +19,11 @@
"Blog",
11
]
- ]
+ ],
+ "id" : "001"
},
{
+ "id" : "002",
"data" : [
[
"Perl",
@@ -551,8 +38,7 @@
10
]
],
- "name" : "002",
- "id" : "002"
+ "name" : "002"
},
{
"data" : [
@@ -569,11 +55,11 @@
9
]
],
- "name" : "003",
- "id" : "003"
+ "id" : "003",
+ "name" : "003"
},
{
- "name" : "004",
+ "id" : "004",
"data" : [
[
"Perl",
@@ -588,11 +74,11 @@
10
]
],
- "id" : "004"
+ "name" : "004"
},
{
- "id" : "005",
"name" : "005",
+ "id" : "005",
"data" : [
[
"Perl",
@@ -609,7 +95,6 @@
]
},
{
- "id" : "006",
"name" : "006",
"data" : [
[
@@ -624,9 +109,11 @@
"Blog",
7
]
- ]
+ ],
+ "id" : "006"
},
{
+ "name" : "007",
"id" : "007",
"data" : [
[
@@ -641,8 +128,7 @@
"Blog",
10
]
- ],
- "n