aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--challenge-069/arne-sommer/blog.txt1
-rwxr-xr-xchallenge-069/arne-sommer/perl/01-string-perl23
-rwxr-xr-xchallenge-069/arne-sommer/perl/ch-1.pl45
-rwxr-xr-xchallenge-069/arne-sommer/perl/ch-2.pl23
-rwxr-xr-xchallenge-069/arne-sommer/perl/strobonum-perl45
-rwxr-xr-xchallenge-069/arne-sommer/raku/01-string22
-rwxr-xr-xchallenge-069/arne-sommer/raku/01-string-smart21
-rwxr-xr-xchallenge-069/arne-sommer/raku/ch-1.raku20
-rwxr-xr-xchallenge-069/arne-sommer/raku/ch-2.raku21
-rwxr-xr-xchallenge-069/arne-sommer/raku/strobonum27
-rwxr-xr-xchallenge-069/arne-sommer/raku/strobonum-grep20
-rw-r--r--stats/pwc-current.json349
-rw-r--r--stats/pwc-language-breakdown-summary.json70
-rw-r--r--stats/pwc-language-breakdown.json988
-rw-r--r--stats/pwc-leaders.json404
-rw-r--r--stats/pwc-summary-1-30.json26
-rw-r--r--stats/pwc-summary-121-150.json118
-rw-r--r--stats/pwc-summary-151-180.json86
-rw-r--r--stats/pwc-summary-31-60.json30
-rw-r--r--stats/pwc-summary-61-90.json30
-rw-r--r--stats/pwc-summary-91-120.json126
-rw-r--r--stats/pwc-summary.json390
22 files changed, 1588 insertions, 1297 deletions
diff --git a/challenge-069/arne-sommer/blog.txt b/challenge-069/arne-sommer/blog.txt
new file mode 100644
index 0000000000..1ac799d84a
--- /dev/null
+++ b/challenge-069/arne-sommer/blog.txt
@@ -0,0 +1 @@
+https://raku-musings.com/binary-strobe.html
diff --git a/challenge-069/arne-sommer/perl/01-string-perl b/challenge-069/arne-sommer/perl/01-string-perl
new file mode 100755
index 0000000000..4c3134abc1
--- /dev/null
+++ b/challenge-069/arne-sommer/perl/01-string-perl
@@ -0,0 +1,23 @@
+#! /usr/bin/env perl
+
+use strict;
+use warnings;
+use feature 'say';
+use feature 'signatures';
+
+no warnings "experimental::signatures";
+
+my $limit = $ARGV[0] // 30;
+
+sub switch ($string)
+{
+ return join("", map { $_ eq "1" ? 0 : 1 } split("", $string));
+}
+
+my $prev = "";
+
+for my $counter (0 .. $limit)
+{
+ say "S" . $counter++ . " = \"$prev\"";
+ $prev = $prev . "0" . switch(reverse($prev));
+}
diff --git a/challenge-069/arne-sommer/perl/ch-1.pl b/challenge-069/arne-sommer/perl/ch-1.pl
new file mode 100755
index 0000000000..4666b711a9
--- /dev/null
+++ b/challenge-069/arne-sommer/perl/ch-1.pl
@@ -0,0 +1,45 @@
+#! /usr/bin/env perl
+
+use strict;
+use warnings;
+use feature 'say';
+use feature 'signatures';
+use List::Util qw(all any);
+
+no warnings "experimental::signatures";
+
+my $verbose;
+my $calculator;
+
+while (@ARGV && substr($ARGV[0],0,2) eq "--")
+{
+ my $arg = shift(@ARGV);
+ if ($arg eq "--calculator") { $calculator++ }
+ elsif ($arg eq "--verbose" ) { $verbose++ }
+}
+
+my $A = shift(@ARGV) // die 'Please specify $A and $B';
+my $B = shift(@ARGV) // die 'Please specify $A and $B';
+
+die "$A: Not a positive integer" unless $A =~ /^\d+$/;
+die "$B: Not a positive integer" unless $B =~ /^\d+$/;
+
+die "$A: Out of range" unless $A >= 1 && $A <= 10 ** 15;
+die "$B: Out of range" unless $B >= $A && $B <= 10 ** 15;
+
+my %strobo = $calculator
+ ? ( 0 => 0, 1 => 1, 2 => 5, 5 => 2, 6 => 9, 8 => 8, 9 => 6 )
+ : ( 0 => 0, 1 => 1, 6 => 9, 8 => 8, 9 => 6 );
+
+sub is_strobogrammatic ($number)
+{
+ # return 0 unless all { split("", $number) eq any {} keys %strobo };
+
+ my $strobo = join("", map { $strobo{$_} // return 0 } split("", reverse($number)) );
+
+ say ": $number -> $strobo" if $verbose;
+
+ return $strobo eq $number;
+}
+
+say join(", ", grep { is_strobogrammatic($_) } ($A .. $B));
diff --git a/challenge-069/arne-sommer/perl/ch-2.pl b/challenge-069/arne-sommer/perl/ch-2.pl
new file mode 100755
index 0000000000..4c3134abc1
--- /dev/null
+++ b/challenge-069/arne-sommer/perl/ch-2.pl
@@ -0,0 +1,23 @@
+#! /usr/bin/env perl
+
+use strict;
+use warnings;
+use feature 'say';
+use feature 'signatures';
+
+no warnings "experimental::signatures";
+
+my $limit = $ARGV[0] // 30;
+
+sub switch ($string)
+{
+ return join("", map { $_ eq "1" ? 0 : 1 } split("", $string));
+}
+
+my $prev = "";
+
+for my $counter (0 .. $limit)
+{
+ say "S" . $counter++ . " = \"$prev\"";
+ $prev = $prev . "0" . switch(reverse($prev));
+}
diff --git a/challenge-069/arne-sommer/perl/strobonum-perl b/challenge-069/arne-sommer/perl/strobonum-perl
new file mode 100755
index 0000000000..4666b711a9
--- /dev/null
+++ b/challenge-069/arne-sommer/perl/strobonum-perl
@@ -0,0 +1,45 @@
+#! /usr/bin/env perl
+
+use strict;
+use warnings;
+use feature 'say';
+use feature 'signatures';
+use List::Util qw(all any);
+
+no warnings "experimental::signatures";
+
+my $verbose;
+my $calculator;
+
+while (@ARGV && substr($ARGV[0],0,2) eq "--")
+{
+ my $arg = shift(@ARGV);
+ if ($arg eq "--calculator") { $calculator++ }
+ elsif ($arg eq "--verbose" ) { $verbose++ }
+}
+
+my $A = shift(@ARGV) // die 'Please specify $A and $B';
+my $B = shift(@ARGV) // die 'Please specify $A and $B';
+
+die "$A: Not a positive integer" unless $A =~ /^\d+$/;
+die "$B: Not a positive integer" unless $B =~ /^\d+$/;
+
+die "$A: Out of range" unless $A >= 1 && $A <= 10 ** 15;
+die "$B: Out of range" unless $B >= $A && $B <= 10 ** 15;
+
+my %strobo = $calculator
+ ? ( 0 => 0, 1 => 1, 2 => 5, 5 => 2, 6 => 9, 8 => 8, 9 => 6 )
+ : ( 0 => 0, 1 => 1, 6 => 9, 8 => 8, 9 => 6 );
+
+sub is_strobogrammatic ($number)
+{
+ # return 0 unless all { split("", $number) eq any {} keys %strobo };
+
+ my $strobo = join("", map { $strobo{$_} // return 0 } split("", reverse($number)) );
+
+ say ": $number -> $strobo" if $verbose;
+
+ return $strobo eq $number;
+}
+
+say join(", ", grep { is_strobogrammatic($_) } ($A .. $B));
diff --git a/challenge-069/arne-sommer/raku/01-string b/challenge-069/arne-sommer/raku/01-string
new file mode 100755
index 0000000000..5a7f52c311
--- /dev/null
+++ b/challenge-069/arne-sommer/raku/01-string
@@ -0,0 +1,22 @@
+#! /usr/bin/env raku
+
+unit sub MAIN ($limit = 30);
+
+sub switch ($string)
+{
+ return $string.comb.map({ $_ eq "1" ?? 0 !! 1 }).join;
+}
+
+my $string01 := gather
+{
+ take "";
+ my $prev = "0"; take "0";
+
+ loop
+ {
+ $prev = $prev ~ "0" ~ switch($prev.flip);
+ take $prev;
+ }
+}
+
+say "S$_ = \"{ $string01[$_] }\"" for 0..$limit;
diff --git a/challenge-069/arne-sommer/raku/01-string-smart b/challenge-069/arne-sommer/raku/01-string-smart
new file mode 100755
index 0000000000..048f982d68
--- /dev/null
+++ b/challenge-069/arne-sommer/raku/01-string-smart
@@ -0,0 +1,21 @@
+#! /usr/bin/env raku
+
+unit sub MAIN ($limit = 30);
+
+sub switch ($string)
+{
+ return $string.comb.map({ $_ eq "1" ?? 0 !! 1 }).join;
+}
+
+my $string01 := gather
+{
+ my $prev = "";
+
+ loop
+ {
+ take $prev;
+ $prev = $prev ~ “0” ~ switch($prev.flip);
+ }
+}
+
+say "S$_ = \"{ $string01[$_] }\"" for 0..$limit;
diff --git a/challenge-069/arne-sommer/raku/ch-1.raku b/challenge-069/arne-sommer/raku/ch-1.raku
new file mode 100755
index 0000000000..311aed0ce4
--- /dev/null
+++ b/challenge-069/arne-sommer/raku/ch-1.raku
@@ -0,0 +1,20 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (Int $A where $A >= 1, Int $B where $B >= $A && $B <= 10 ** 15, :$calculator, :$v, :$verbose = $v);
+
+my %strobo = $calculator
+ ?? ( 0 => 0, 1 => 1, 2 => 5, 5 => 2, 6 => 9, 8 => 8, 9 => 6 )
+ !! ( 0 => 0, 1 => 1, 6 => 9, 8 => 8, 9 => 6 );
+
+sub is-strobogrammatic (Int $number)
+{
+ return False unless all($number.comb) eq any(%strobo.keys);
+
+ my $strobo = $number.flip.comb.map({ %strobo{$_} }).join;
+
+ say ": $number -> $strobo" if $verbose;
+
+ return $strobo eq $number;
+}
+
+($A .. $B).grep( *.&is-strobogrammatic ).join(", ").say;
diff --git a/challenge-069/arne-sommer/raku/ch-2.raku b/challenge-069/arne-sommer/raku/ch-2.raku
new file mode 100755
index 0000000000..048f982d68
--- /dev/null
+++ b/challenge-069/arne-sommer/raku/ch-2.raku
@@ -0,0 +1,21 @@
+#! /usr/bin/env raku
+
+unit sub MAIN ($limit = 30);
+
+sub switch ($string)
+{
+ return $string.comb.map({ $_ eq "1" ?? 0 !! 1 }).join;
+}
+
+my $string01 := gather
+{
+ my $prev = "";
+
+ loop
+ {
+ take $prev;
+ $prev = $prev ~ “0” ~ switch($prev.flip);
+ }
+}
+
+say "S$_ = \"{ $string01[$_] }\"" for 0..$limit;
diff --git a/challenge-069/arne-sommer/raku/strobonum b/challenge-069/arne-sommer/raku/strobonum
new file mode 100755
index 0000000000..b45482c312
--- /dev/null
+++ b/challenge-069/arne-sommer/raku/strobonum
@@ -0,0 +1,27 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (Int $A where $A >= 1, Int $B where $B >= $A && $B <= 10 ** 15, :$calculator, :$v, :$verbose = $v);
+
+my %strobo = $calculator
+ ?? ( 0 => 0, 1 => 1, 2 => 5, 5 => 2, 6 => 9, 8 => 8, 9 => 6 )
+ !! ( 0 => 0, 1 => 1, 6 => 9, 8 => 8, 9 => 6 );
+
+sub is-strobogrammatic (Int $number)
+{
+ return False unless all($number.comb) eq any(%strobo.keys);
+
+ my $strobo = $number.flip.comb.map({ %strobo{$_} }).join;
+
+ say ": $number -> $strobo" if $verbose;
+
+ return $strobo eq $number;
+}
+
+my @strobo;
+
+for $A .. $B -> $candidate
+{
+ @strobo.push: $candidate if $candidate.&is-strobogrammatic;
+}
+
+say @strobo.join(", ");
diff --git a/challenge-069/arne-sommer/raku/strobonum-grep b/challenge-069/arne-sommer/raku/strobonum-grep
new file mode 100755
index 0000000000..311aed0ce4
--- /dev/null
+++ b/challenge-069/arne-sommer/raku/strobonum-grep
@@ -0,0 +1,20 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (Int $A where $A >= 1, Int $B where $B >= $A && $B <= 10 ** 15, :$calculator, :$v, :$verbose = $v);
+
+my %strobo = $calculator
+ ?? ( 0 => 0, 1 => 1, 2 => 5, 5 => 2, 6 => 9, 8 => 8, 9 => 6 )
+ !! ( 0 => 0, 1 => 1, 6 => 9, 8 => 8, 9 => 6 );
+
+sub is-strobogrammatic (Int $number)
+{
+ return False unless all($number.comb) eq any(%strobo.keys);
+
+ my $strobo = $number.flip.comb.map({ %strobo{$_} }).join;
+
+ say ": $number -> $strobo" if $verbose;
+
+ return $strobo eq $number;
+}
+
+($A .. $B).grep( *.&is-strobogrammatic ).join(", ").say;
diff --git a/stats/pwc-current.json b/stats/pwc-current.json
index 9f4f790544..f84672b7dd 100644
--- a/stats/pwc-current.json
+++ b/stats/pwc-current.json
@@ -4,125 +4,11 @@
"text" : "Total Solutions"
}
},
- "subtitle" : {
- "text" : "[Champions: 19] Last updated at 2020-07-18 16:13:16 GMT"
- },
- "series" : [
- {
- "data" : [
- {
- "y" : 3,
- "name" : "Andrew Shitov",
- "drilldown" : "Andrew Shitov"
- },
- {
- "drilldown" : "Bartosz Jarzyna",
- "name" : "Bartosz Jarzyna",
- "y" : 1
- },
- {
- "name" : "Colin Crain",
- "drilldown" : "Colin Crain",
- "y" : 4
- },
- {
- "y" : 2,
- "name" : "Dave Jacoby",
- "drilldown" : "Dave Jacoby"
- },
- {
- "y" : 2,
- "name" : "Duncan C. White",
- "drilldown" : "Duncan C. White"
- },
- {
- "y" : 2,
- "name" : "E. Choroba",
- "drilldown" : "E. Choroba"
- },
- {
- "y" : 5,
- "drilldown" : "Javier Luque",
- "name" : "Javier Luque"
- },
- {
- "y" : 2,
- "name" : "Jorg Sommrey",
- "drilldown" : "Jorg Sommrey"
- },
- {
- "name" : "Laurent Rosenfeld",
- "drilldown" : "Laurent Rosenfeld",
- "y" : 5
- },
- {
- "name" : "Luca Ferrari",
- "drilldown" : "Luca Ferrari",
- "y" : 4
- },
- {
- "y" : 6,
- "drilldown" : "Mohammad S Anwar",
- "name" : "Mohammad S Anwar"
- },
- {
- "y" : 2,
- "name" : "Niels van Dijke",
- "drilldown" : "Niels van Dijke"
- },
- {
- "name" : "Pete Houston",
- "drilldown" : "Pete Houston",
- "y" : 1
- },
- {
- "drilldown" : "Roger Bell_West",
- "name" : "Roger Bell_West",
- "y" : 5
- },
- {
- "name" : "Simon Green",
- "drilldown" : "Simon Green",
- "y" : 3
- },
- {
- "y" : 1,
- "name" : "Simon Miner",
- "drilldown" : "Simon Miner"
- },
- {
- "drilldown" : "Ulrich Rieke",
- "name" : "Ulrich Rieke",
- "y" : 4
- },
- {
- "drilldown" : "Walt Mankowski",
- "name" : "Walt Mankowski",
- "y" : 2
- },
- {
- "drilldown" : "Wanderdoc",
- "name" : "Wanderdoc",
- "y" : 2
- }
- ],
- "colorByPoint" : 1,
- "name" : "Perl Weekly Challenge - 069"
- }
- ],
- "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
},
- "plotOptions" : {
- "series" : {
- "dataLabels" : {
- "format" : "{point.y}",
- "enabled" : 1
- },
- "borderWidth" : 0
- }
+ "subtitle" : {
+ "text" : "[Champions: 20] Last updated at 2020-07-19 07:09:46 GMT"
},
"drilldown" : {
"series" : [
@@ -141,14 +27,32 @@
"name" : "Andrew Shitov"
},
{
+ "data" : [
+ [
+ "Perl",
+ 2
+ ],
+ [
+ "Raku",
+ 2
+ ],
+ [
+ "Blog",
+ 1
+ ]
+ ],
+ "id" : "Arne Sommer",
+ "name" : "Arne Sommer"
+ },
+ {
"id" : "Bartosz Jarzyna",
- "name" : "Bartosz Jarzyna",
"data" : [
[
"Perl",
1
]
- ]
+ ],
+ "name" : "Bartosz Jarzyna"
},
{
"name" : "Colin Crain",
@@ -165,28 +69,28 @@
]
},
{
+ "name" : "Dave Jacoby",
+ "id" : "Dave Jacoby",
"data" : [
[
"Perl",
2
]
- ],
- "id" : "Dave Jacoby",
- "name" : "Dave Jacoby"
+ ]
},
{
"name" : "Duncan C. White",
- "id" : "Duncan C. White",
"data" : [
[
"Perl",
2
]
- ]
+ ],
+ "id" : "Duncan C. White"
},
{
- "id" : "E. Choroba",
"name" : "E. Choroba",
+ "id" : "E. Choroba",
"data" : [
[
"Perl",
@@ -195,6 +99,8 @@
]
},
{
+ "name" : "Javier Luque",
+ "id" : "Javier Luque",
"data" : [
[
"Perl",
@@ -208,21 +114,21 @@
"Blog",
1
]
- ],
- "id" : "Javier Luque",
- "name" : "Javier Luque"
+ ]
},
{
+ "name" : "Jorg Sommrey",
+ "id" : "Jorg Sommrey",
"data" : [
[
"Perl",
2
]
- ],
- "name" : "Jorg Sommrey",
- "id" : "Jorg Sommrey"
+ ]
},
{
+ "name" : "Laurent Rosenfeld",
+ "id" : "Laurent Rosenfeld",
"data" : [
[
"Perl",
@@ -236,12 +142,9 @@
"Blog",
1
]
- ],
- "name" : "Laurent Rosenfeld",
- "id" : "Laurent Rosenfeld"
+ ]
},
{
- "name" : "Luca Ferrari",
"id" : "Luca Ferrari",
"data" : [
[
@@ -252,10 +155,10 @@
"Blog",
2
]
- ]
+ ],
+ "name" : "Luca Ferrari"
},
{
- "name" : "Mohammad S Anwar",
"id" : "Mohammad S Anwar",
"data" : [
[
@@ -270,29 +173,31 @@
"Blog",
2
]
- ]
+ ],
+ "name" : "Mohammad S Anwar"
},
{
- "id" : "Niels van Dijke",
"name" : "Niels van Dijke",
"data" : [
[
"Perl",
2
]
- ]
+ ],
+ "id" : "Niels van Dijke"
},
{
+ "id" : "Pete Houston",
"data" : [
[
"Perl",
1
]
],
- "name" : "Pete Houston",
- "id" : "Pete Houston"
+ "name" : "Pete Houston"
},
{
+ "id" : "Roger Bell_West",
"data" : [
[
"Perl",
@@ -307,10 +212,11 @@
1
]
],
- "id" : "Roger Bell_West",
"name" : "Roger Bell_West"
},
{
+ "name" : "Simon Green",
+ "id" : "Simon Green",
"data" : [
[
"Perl",
@@ -320,21 +226,20 @@
"Blog",
1
]
- ],
- "id" : "Simon Green",
- "name" : "Simon Green"
+ ]
},
{
- "name" : "Simon Miner",
- "id" : "Simon Miner",
"data" : [
[
"Perl",
1
]
- ]
+ ],
+ "id" : "Simon Miner",
+ "name" : "Simon Miner"
},
{
+ "id" : "Ulrich Rieke",
"data" : [
[
"Perl",
@@ -345,40 +250,158 @@
2
]
],
- "name" : "Ulrich Rieke",
- "id" : "Ulrich Rieke"
+ "name" : "Ulrich Rieke"
},
{
+ "name" : "Walt Mankowski",
+ "id" : "Walt Mankowski",
"data" : [
[
"Perl",
2
]
- ],
- "id" : "Walt Mankowski",
- "name" : "Walt Mankowski"
+ ]
},
{
+ "name" : "Wanderdoc",
+ "id" : "Wanderdoc",
"data" : [
[
"Perl",
2
]
- ],
- "id" : "Wanderdoc",
- "name" : "Wanderdoc"
+ ]
}
]
},
- "legend" : {
- "enabled" : 0
+ "chart" : {
+ "type" : "column"
+ },
+ "plotOptions" : {
+ "series" : {
+ "borderWidth" : 0,
+ "dataLabels" : {
+ "enabled" : 1,
+ "format" : "{point.y}"
+ }
+ }
+ },
+ "tooltip" : {
+ "pointFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>",
+ "followPointer" : 1,
+ "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>"
},
"xAxis" : {
"type" : "category"
},
- "chart" : {
- "type" : "column"
- },
+ "series" : [
+ {
+ "data" : [
+ {
+ "y" : 3,
+ "name" : "Andrew Shitov",
+ "drilldown" : "Andrew Shitov"
+ },
+ {
+ "drilldown" : "Arne Sommer",
+ "name" : "Arne Sommer",
+ "y" : 5
+ },
+ {
+ "drilldown" : "Bartosz Jarzyna",
+ "y" : 1,
+ "name" : "Bartosz Jarzyna"
+ },
+ {
+ "y" : 4,
+ "name" : "Colin Crain",
+ "drilldown" : "Colin Crain"
+ },
+ {
+ "y" : 2,
+ "name" : "Dave Jacoby",
+ "drilldown" : "Dave Jacoby"
+ },
+ {
+ "drilldown" : "Duncan C. White",
+ "name" : "Duncan C. White",
+ "y" : 2
+ },
+ {
+ "drilldown" : "E. Choroba",
+ "name" : "E. Choroba",
+ "y" : 2
+ },
+ {
+ "name" : "Javier Luque",
+ "y" : 5,
+ "drilldown" : "Javier Luque"
+ },
+ {
+ "y" : 2,
+ "name" : "Jorg Sommrey",
+ "drilldown" : "Jorg Sommrey"
+ },
+ {
+ "drilldown" : "Laurent Rosenfeld",
+ "name" : "Laurent Rosenfeld",
+ "y" : 5
+ },
+ {
+ "drilldown" : "Luca Ferrari",
+ "name" : "Luca Ferrari",
+ "y" : 4
+ },
+ {
+ "name" : "Mohammad S Anwar",
+ "y" : 6,
+ "drilldown" : "Mohammad S Anwar"
+ },
+ {
+ "drilldown" : "Niels van Dijke",
+ "name" : "Niels van Dijke",
+ "y" : 2
+ },
+ {
+ "drilldown" : "Pete Houston",
+ "name" : "Pete Houston",
+ "y" : 1
+ },
+ {
+ "name" : "Roger Bell_West",
+ "y" : 5,
+ "drilldown" : "Roger Bell_West"
+ },
+ {
+ "name" : "Simon Green",
+ "y" : 3,
+ "drilldown" : "Simon Green"
+ },
+ {
+ "name" : "Simon Miner",
+ "y" : 1,
+ "drilldown" : "Simon Miner"
+ },
+ {
+ "name" : "Ulrich Rieke",
+ "y" : 4,
+ "drilldown" : "Ulrich Rieke"
+ },
+ {
+ "name" : "Walt Mankowski",
+ "y" : 2,
+ "drilldown" : "Walt Mankowski"
+ },
+ {
+ "name" : "Wanderdoc",
+ "y" : 2,
+ "drilldown" : "Wanderdoc"
+ }
+ ],
+ "name" : "Perl Weekly Challenge - 069",
+ "colorByPoint" : 1
+ }
+ ],
"title" : {
"text" : "Perl Weekly Challenge - 069"
}
diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json
index a73954aaa9..10d32ebf3e 100644
--- a/stats/pwc-language-breakdown-summary.json
+++ b/stats/pwc-language-breakdown-summary.json
@@ -1,63 +1,63 @@
{
- "title" : {
- "text" : "Perl Weekly Challenge Contributions [2019 - 2020]"
+ "tooltip" : {
+ "pointFormat" : "<b>{point.y:.0f}</b>"
},
"chart" : {
"type" : "column"
},
- "xAxis" : {
- "labels" : {
- "style" : {
- "fontSize" : "13px",
- "fontFamily" : "Verdana, sans-serif"
- }
- },
- "type" : "category"
+ "subtitle" : {
+ "text" : "Last updated at 2020-07-19 07:09:46 GMT"
},
"legend" : {
"enabled" : "false"
},
- "tooltip" : {
- "pointFormat" : "<b>{point.y:.0f}</b>"
+ "yAxis" : {
+ "min" : 0,
+ "title" : {
+ "text" : null
+ }
},
- "subtitle" : {
- "text" : "Last updated at 2020-07-18 16:13:16 GMT"
+ "title" : {
+ "text" : "Perl Weekly Challenge Contributions [2019 - 2020]"
},
"series" : [
{
+ "dataLabels" : {
+ "y" : 10,
+ "color" : "#FFFFFF",
+ "format" : "{point.y:.0f}",
+ "enabled" : "true",
+ "style" : {
+ "fontSize" : "13px",
+ "fontFamily" : "Verdana, sans-serif"
+ },
+ "rotation" : -90,
+ "align" : "right"
+ },
+ "name" : "Contributions",
"data" : [
[
"Blog",
- 815
+ 816
],
[
"Perl",
- 2851
+ 2853
],
[
"Raku",
- 1824
+ 1826
]
- ],
- "dataLabels" : {
- "rotation" : -90,
- "y" : 10,
- "align" : "right",
- "color" : "#FFFFFF",
- "enabled" : "true",
- "format" : "{point.y:.0f}",
- "style" : {
- "fontFamily" : "Verdana, sans-serif",
- "fontSize" : "13px"
- }
- },
- "name" : "Contributions"
+ ]
}
],
- "yAxis" : {
- "title" : {
- "text" : null
+ "xAxis" : {
+ "labels" : {
+ "style" : {
+ "fontFamily" : "Verdana, sans-serif",
+ "fontSize" : "13px"
+ }
},
- "min" : 0
+ "type" : "category"
}
}
diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json
index 05172ca65d..524eb6aacf 100644
--- a/stats/pwc-language-breakdown.json
+++ b/stats/pwc-language-breakdown.json
@@ -2,31 +2,383 @@
"title" : {
"text" : "Perl Weekly Challenge Language"
},
- "chart" : {
- "type" : "column"
- },
+ "series" : [
+ {
+ "name" : "Perl Weekly Challenge Languages",
+ "colorByPoint" : "true",
+ "data" : [
+ {
+ "y" : 142,
+ "name" : "#001",
+ "drilldown" : "001"
+ },
+ {
+ "drilldown" : "002",
+ "y" : 109,
+ "name" : "#002"
+ },
+ {
+ "drilldown" : "003",
+ "name" : "#003",
+ "y" : 71
+ },
+ {
+ "drilldown" : "004",
+ "name" : "#004",
+ "y" : 91
+ },
+ {
+ "drilldown" : "005",
+ "name" : "#005",
+ "y" : 72
+ },
+ {
+ "name" : "#006",
+ "y" : 52,
+ "drilldown" : "006"
+ },
+ {
+ "y" : 59,
+ "name" : "#007",
+ "drilldown" : "007"
+ },
+ {
+ "drilldown" : "008",
+ "name" : "#008",
+ "y" : 72
+ },
+ {
+ "name" : "#009",
+ "y" : 68,
+ "drilldown" : "009"
+ },
+ {
+ "y" : 60,
+ "name" : "#010",
+ "drilldown" : "010"
+ },
+ {
+ "drilldown" : "011",
+ "y" : 79,
+ "name" : "#011"
+ },
+ {
+ "drilldown" : "012",
+ "y" : 83,
+ "name" : "#012"<