aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--challenge-004/abigail/perl5/ch-1.pl1
-rw-r--r--challenge-004/abigail/perl5/ch-2.pl26
-rw-r--r--stats/pwc-current.json141
-rw-r--r--stats/pwc-summary-1-30.json88
-rw-r--r--stats/pwc-summary-31-60.json52
-rw-r--r--stats/pwc-summary-61-90.json42
-rw-r--r--stats/pwc-summary.json42
7 files changed, 217 insertions, 175 deletions
diff --git a/challenge-004/abigail/perl5/ch-1.pl b/challenge-004/abigail/perl5/ch-1.pl
new file mode 100644
index 0000000000..b6b556b801
--- /dev/null
+++ b/challenge-004/abigail/perl5/ch-1.pl
@@ -0,0 +1 @@
+say 2 * atan2 (1,0)
diff --git a/challenge-004/abigail/perl5/ch-2.pl b/challenge-004/abigail/perl5/ch-2.pl
new file mode 100644
index 0000000000..7d252aa886
--- /dev/null
+++ b/challenge-004/abigail/perl5/ch-2.pl
@@ -0,0 +1,26 @@
+use 5.026;
+
+use strict;
+use warnings;
+no warnings 'syntax';
+
+#
+# Assume the list of letters are the arguments. Read the list
+# of words from STDIN
+#
+my %letters;
+$letters {$_} ++ for "@ARGV" =~ /[a-z]/g;
+
+WORD: while (<STDIN>) {
+ chomp;
+ next if /[^a-z]/;
+ my %l;
+ $l {$_} ++ for split //;
+ foreach my $c (keys %l) {
+ no warnings 'uninitialized';
+ next WORD if $letters {$c} < $l {$c};
+ }
+ say;
+}
+
+__END__
diff --git a/stats/pwc-current.json b/stats/pwc-current.json
index 465f60009b..e5f454f450 100644
--- a/stats/pwc-current.json
+++ b/stats/pwc-current.json
@@ -1,58 +1,17 @@
{
- "yAxis" : {
- "title" : {
- "text" : "Total Solutions"
- }
- },
- "series" : [
- {
- "data" : [
- {
- "name" : "Francis Whittle",
- "drilldown" : "Francis Whittle",
- "y" : 1
- },
- {
- "name" : "Dr James A. Smith",
- "drilldown" : "Dr James A. Smith",
- "y" : 4
- },
- {
- "drilldown" : "Kivanc Yazan",
- "name" : "Kivanc Yazan",
- "y" : 1
- },
- {
- "y" : 1,
- "drilldown" : "Maxim Kolodyazhny",
- "name" : "Maxim Kolodyazhny"
- }
- ],
- "colorByPoint" : 1,
- "name" : "Champions"
- }
- ],
- "plotOptions" : {
- "series" : {
- "dataLabels" : {
- "format" : "{point.y}",
- "enabled" : 1
- },
- "borderWidth" : 0
- }
- },
- "chart" : {
- "type" : "column"
- },
- "subtitle" : {
- "text" : "[Champions: 4] Last updated at 2019-04-15 14:42:47 GMT"
- },
- "xAxis" : {
- "type" : "category"
- },
"drilldown" : {
"series" : [
{
+ "name" : "Abigail",
+ "data" : [
+ [
+ "Perl 5",
+ 2
+ ]
+ ],
+ "id" : "Abigail"
+ },
+ {
"id" : "Francis Whittle",
"data" : [
[
@@ -64,6 +23,7 @@
},
{
"name" : "Dr James A. Smith",
+ "id" : "Dr James A. Smith",
"data" : [
[
"Perl 5",
@@ -73,18 +33,17 @@
"Perl 6",
2
]
- ],
- "id" : "Dr James A. Smith"
+ ]
},
{
"id" : "Kivanc Yazan",
- "name" : "Kivanc Yazan",
"data" : [
[
"Perl 5",
1
]
- ]
+ ],
+ "name" : "Kivanc Yazan"
},
{
"data" : [
@@ -93,20 +52,76 @@
1
]
],
- "name" : "Maxim Kolodyazhny",
- "id" : "Maxim Kolodyazhny"
+ "id" : "Maxim Kolodyazhny",
+ "name" : "Maxim Kolodyazhny"
}
]
},
- "tooltip" : {
- "followPointer" : 1,
- "pointerFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>",
- "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>"
+ "title" : {
+ "text" : "Perl Weekly Challenge - 004"
+ },
+ "chart" : {
+ "type" : "column"
+ },
+ "subtitle" : {
+ "text" : "[Champions: 5] Last updated at 2019-04-15 16:39:07 GMT"
+ },
+ "yAxis" : {
+ "title" : {
+ "text" : "Total Solutions"
+ }
},
"legend" : {
"enabled" : 0
},
- "title" : {
- "text" : "Perl Weekly Challenge - 004"
+ "xAxis" : {
+ "type" : "category"
+ },
+ "series" : [
+ {
+ "colorByPoint" : 1,
+ "name" : "Champions",
+ "data" : [
+ {
+ "drilldown" : "Abigail",
+ "y" : 2,
+ "name" : "Abigail"
+ },
+ {
+ "drilldown" : "Francis Whittle",
+ "name" : "Francis Whittle",
+ "y" : 1
+ },
+ {
+ "drilldown" : "Dr James A. Smith",
+ "y" : 4,
+ "name" : "Dr James A. Smith"
+ },
+ {
+ "drilldown" : "Kivanc Yazan",
+ "name" : "Kivanc Yazan",
+ "y" : 1
+ },
+ {
+ "drilldown" : "Maxim Kolodyazhny",
+ "name" : "Maxim Kolodyazhny",
+ "y" : 1
+ }
+ ]
+ }
+ ],
+ "tooltip" : {
+ "followPointer" : 1,
+ "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>",
+ "pointerFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>"
+ },
+ "plotOptions" : {
+ "series" : {
+ "borderWidth" : 0,
+ "dataLabels" : {
+ "enabled" : 1,
+ "format" : "{point.y}"
+ }
+ }
}
}
diff --git a/stats/pwc-summary-1-30.json b/stats/pwc-summary-1-30.json
index f793172d2e..a42a3b3c61 100644
--- a/stats/pwc-summary-1-30.json
+++ b/stats/pwc-summary-1-30.json
@@ -1,18 +1,55 @@
{
- "chart" : {
- "type" : "column"
+ "yAxis" : {
+ "min" : 0,
+ "title" : {
+ "text" : ""
+ }
},
"tooltip" : {
"shared" : 1,
"pointFormat" : "<span style=\"color:{series.color}\">{series.name}</span>: <b>{point.y}</b><br/>"
},
+ "xAxis" : {
+ "categories" : [
+ "Abigail",
+ "Adam Russell",
+ "Ailbhe Tweedie",
+ "Alex Daniel",
+ "Alexander Karelas",
+ "Alexey Melezhik",
+ "Andrezgz",
+ "Antonio Gamiz",
+ "Arne Sommer",
+ "Arpad Toth",
+ "Athanasius",
+ "Aubrey Quarcoo",
+ "Bill Palmer",
+ "Bob Kleemann",
+ "Clive Holloway",
+ "Daniel Mantovani",
+ "Dave Cross",
+ "Dave Jacoby",
+ "David Kayal",
+ "Doug Schrag",
+ "Duncan C. White",
+ "Eddy HS",
+ "Finley",
+ "Francis Whittle",
+ "Fred Zinn",
+ "Freddie B",
+ "Gustavo Chaves",
+ "Jacques Guinnebault",
+ "Jaime Corchado",
+ "Jaldhar H. Vyas"
+ ]
+ },
"title" : {
"text" : "Perl Weekly Challenge - 2019"
},
"series" : [
{
"data" : [
- 0,
+ 2,
6,
3,
0,
@@ -81,52 +118,15 @@
]
}
],
- "xAxis" : {
- "categories" : [
- "Abigail",
- "Adam Russell",
- "Ailbhe Tweedie",
- "Alex Daniel",
- "Alexander Karelas",
- "Alexey Melezhik",
- "Andrezgz",
- "Antonio Gamiz",
- "Arne Sommer",
- "Arpad Toth",
- "Athanasius",
- "Aubrey Quarcoo",
- "Bill Palmer",
- "Bob Kleemann",
- "Clive Holloway",
- "Daniel Mantovani",
- "Dave Cross",
- "Dave Jacoby",
- "David Kayal",
- "Doug Schrag",
- "Duncan C. White",
- "Eddy HS",
- "Finley",
- "Francis Whittle",
- "Fred Zinn",
- "Freddie B",
- "Gustavo Chaves",
- "Jacques Guinnebault",
- "Jaime Corchado",
- "Jaldhar H. Vyas"
- ]
+ "subtitle" : {
+ "text" : "[Champions: 30] Last updated at 2019-04-15 16:39:07 GMT"
},
"plotOptions" : {
"column" : {
"stacking" : "percent"
}
},
- "yAxis" : {
- "title" : {
- "text" : ""
- },
- "min" : 0
- },
- "subtitle" : {
- "text" : "[Champions: 30] Last updated at 2019-04-15 14:42:47 GMT"
+ "chart" : {
+ "type" : "column"
}
}
diff --git a/stats/pwc-summary-31-60.json b/stats/pwc-summary-31-60.json
index cd98346340..9b03d96812 100644
--- a/stats/pwc-summary-31-60.json
+++ b/stats/pwc-summary-31-60.json
@@ -1,28 +1,4 @@
{
- "title" : {
- "text" : "Perl Weekly Challenge - 2019"
- },
- "tooltip" : {
- "shared" : 1,
- "pointFormat" : "<span style=\"color:{series.color}\">{series.name}</span>: <b>{point.y}</b><br/>"
- },
- "chart" : {
- "type" : "column"
- },
- "subtitle" : {
- "text" : "[Champions: 30] Last updated at 2019-04-15 14:42:47 GMT"
- },
- "plotOptions" : {
- "column" : {
- "stacking" : "percent"
- }
- },
- "yAxis" : {
- "title" : {
- "text" : ""
- },
- "min" : 0
- },
"series" : [
{
"data" : [
@@ -60,7 +36,6 @@
"name" : "Perl 5"
},
{
- "name" : "Perl 6",
"data" : [
8,
0,
@@ -92,9 +67,21 @@
0,
0,
2
- ]
+ ],
+ "name" : "Perl 6"
}
],
+ "plotOptions" : {
+ "column" : {
+ "stacking" : "percent"
+ }
+ },
+ "chart" : {
+ "type" : "column"
+ },
+ "subtitle" : {
+ "text" : "[Champions: 30] Last updated at 2019-04-15 16:39:07 GMT"
+ },
"xAxis" : {
"categories" : [
"Dr James A. Smith",
@@ -128,5 +115,18 @@
"Prajith P",
"Robert Gratza"
]
+ },
+ "tooltip" : {
+ "pointFormat" : "<span style=\"color:{series.color}\">{series.name}</span>: <b>{point.y}</b><br/>",
+ "shared" : 1
+ },
+ "title" : {
+ "text" : "Perl Weekly Challenge - 2019"
+ },
+ "yAxis" : {
+ "title" : {
+ "text" : ""
+ },
+ "min" : 0
}
}
diff --git a/stats/pwc-summary-61-90.json b/stats/pwc-summary-61-90.json
index 3d9c3fe5d1..a766893a02 100644
--- a/stats/pwc-summary-61-90.json
+++ b/stats/pwc-summary-61-90.json
@@ -1,17 +1,17 @@
{
+ "plotOptions" : {
+ "column" : {
+ "stacking" : "percent"
+ }
+ },
"chart" : {
"type" : "column"
},
- "tooltip" : {
- "pointFormat" : "<span style=\"color:{series.color}\">{series.name}</span>: <b>{point.y}</b><br/>",
- "shared" : 1
- },
- "title" : {
- "text" : "Perl Weekly Challenge - 2019"
+ "subtitle" : {
+ "text" : "[Champions: 12] Last updated at 2019-04-15 16:39:07 GMT"
},
"series" : [
{
- "name" : "Perl 5",
"data" : [
4,
0,
@@ -25,7 +25,8 @@
2,
3,
1
- ]
+ ],
+ "name" : "Perl 5"
},
{
"data" : [
@@ -45,6 +46,15 @@
"name" : "Perl 6"
}
],
+ "yAxis" : {
+ "min" : 0,
+ "title" : {
+ "text" : ""
+ }
+ },
+ "title" : {
+ "text" : "Perl Weekly Challenge - 2019"
+ },
"xAxis" : {
"categories" : [
"Ruben Westerberg",
@@ -61,18 +71,8 @@
"William Gilmore"
]
},
- "subtitle" : {
- "text" : "[Champions: 12] Last updated at 2019-04-15 14:42:47 GMT"
- },
- "plotOptions" : {
- "column" : {
- "stacking" : "percent"
- }
- },
- "yAxis" : {
- "min" : 0,
- "title" : {
- "text" : ""
- }
+ "tooltip" : {
+ "pointFormat" : "<span style=\"color:{series.color}\">{series.name}</span>: <b>{point.y}</b><br/>",
+ "shared" : 1
}
}
diff --git a/stats/pwc-summary.json b/stats/pwc-summary.json
index 55d5fca900..94d9a1d50b 100644
--- a/stats/pwc-summary.json
+++ b/stats/pwc-summary.json
@@ -1,13 +1,18 @@
{
+ "subtitle" : {
+ "text" : "[Champions: 72] Last updated at 2019-04-15 16:39:07 GMT"
+ },
+ "yAxis" : {
+ "title" : {
+ "text" : ""
+ },
+ "min" : 0
+ },
"title" : {
"text" : "Perl Weekly Challenge - 2019"
},
- "tooltip" : {
- "shared" : 1,
- "pointFormat" : "<span style=\"color:{series.color}\">{series.name}</span>: <b>{point.y}</b><br/>"
- },
- "subtitle" : {
- "text" : "[Champions: 72] Last updated at 2019-04-15 14:42:47 GMT"
+ "chart" : {
+ "type" : "column"
},
"xAxis" : {
"categories" : [
@@ -85,15 +90,11 @@
"William Gilmore"
]
},
- "plotOptions" : {
- "column" : {
- "stacking" : "percent"
- }
- },
"series" : [
{
+ "name" : "Perl 5",
"data" : [
- 0,
+ 2,
6,
3,
0,
@@ -165,8 +166,7 @@
2,
3,
1
- ],
- "name" : "Perl 5"
+ ]
},
{
"data" : [
@@ -246,13 +246,13 @@
"name" : "Perl 6"
}
],
- "chart" : {
- "type" : "column"
- },
- "yAxis" : {
- "min" : 0,
- "title" : {
- "text" : ""
+ "plotOptions" : {
+ "column" : {
+ "stacking" : "percent"
}
+ },
+ "tooltip" : {
+ "shared" : 1,
+ "pointFormat" : "<span style=\"color:{series.color}\">{series.name}</span>: <b>{point.y}</b><br/>"
}
}
generated by cgit (git 2.34.1) at 2026-07-02 12:49:47 +0000