aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--challenge-101/colin-crain/perl/ch-1.pl186
-rw-r--r--challenge-101/colin-crain/perl/ch-2.pl99
-rw-r--r--stats/pwc-current.json445
-rw-r--r--stats/pwc-language-breakdown-summary.json84
-rw-r--r--stats/pwc-language-breakdown.json710
-rw-r--r--stats/pwc-leaders.json742
-rw-r--r--stats/pwc-summary-1-30.json98
-rw-r--r--stats/pwc-summary-121-150.json50
-rw-r--r--stats/pwc-summary-151-180.json42
-rw-r--r--stats/pwc-summary-181-210.json114
-rw-r--r--stats/pwc-summary-211-240.json48
-rw-r--r--stats/pwc-summary-31-60.json40
-rw-r--r--stats/pwc-summary-61-90.json106
-rw-r--r--stats/pwc-summary-91-120.json56
-rw-r--r--stats/pwc-summary.json484
15 files changed, 1802 insertions, 1502 deletions
diff --git a/challenge-101/colin-crain/perl/ch-1.pl b/challenge-101/colin-crain/perl/ch-1.pl
new file mode 100644
index 0000000000..23ba68fddb
--- /dev/null
+++ b/challenge-101/colin-crain/perl/ch-1.pl
@@ -0,0 +1,186 @@
+#! /opt/local/bin/perl
+#
+# sprialling-out-of-control.pl
+#
+# PWC 101
+# TASK #1 › Pack a Spiral
+#
+# Submitted by: Stuart Little
+# You are given an array @A of items (integers say, but they can be
+# anything).
+#
+# Your task is to pack that array into an MxN matrix spirally
+# counterclockwise, as tightly as possible.
+#
+# ‘Tightly’ means the absolute value |M-N| of the difference has to
+# be as small as possible.
+#
+# Example 1:
+# Input: @A = (1,2,3,4)
+#
+# Output:
+#
+# 4 3
+# 1 2
+#
+# Since the given array is already a 1x4 matrix on its own, but
+# that's not as tight as possible. Instead, you'd spiral it
+# counterclockwise into
+#
+# 4 3
+# 1 2
+# Example 2:
+# Input: @A = (1..6)
+#
+# Output:
+#
+# 6 5 4
+# 1 2 3
+#
+# or
+#
+# 5 4
+# 6 3
+# 1 2
+#
+# Either will do as an answer, because they're equally tight.
+
+# method:
+# Given an array, there will always be one packing available, 1 x n,
+# the linear form of the array itself. Beyond that, a tighter
+# packing would have to contain the correct number of elements
+# before any spiralling can commence.
+#
+# THus the first course of action is to compute the ideal
+# 2-dimensional form from those avaailable.
+#
+# The absolute ideal two dimensional orthogonal packing would be a
+# square, so that (m-n) would be 0. Unfortunately this is only
+# available to arrays with lengths in the square numbers,
+# 1,4,9,16,25,36 etc.
+
+# In a general sense the dimensions of our rectangle, our
+# 2-dimensional matrix, will be composed of two integers such that m
+# x n = L, the length of the original array to be spiralized. As our
+# ideal is a square form, the ideal dimension is the square root of
+# L, and any divergence from that ideal will expand the gap between
+# m and n. Thus by finding the smallest factor of L less than the
+# square root we will locate m, and from that we can determine n.
+#
+# Once we have our dimensions determined, we can commence rotation
+# and scalar reduction.
+#
+#
+# conclusions and deep structure:
+# For testing we will make arrays from 1 to 100 items items long and
+# test them all. The actual values of the elements is
+# inconsequential so we will use sequentail values starting at 1;
+# this will make it easy to observe the spiralling.
+
+# The observed pattern of minimized rectangular ratio, hence
+# minimizing abs(m-n) is:
+#
+# 2,0,4,1,6,2,0,3,10,1,12,5,2,0,16,3,18,1,4,9,22,2,0,11,6,3,28...
+
+# from The On-Line Encyclopedia of Integer Sequences
+# 2,0,4,1,6,2,0,3,10,1,12,5,2,0,16,3,18,1,4,9,22,2,0,11,6,3,28
+# A056737
+# Minimum nonnegative integer m such that n = k*(k+m) for some
+# positive integer k.
+
+
+#
+# © 2021 colin crain
+## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ##
+
+
+
+use warnings;
+use strict;
+use feature ":5.26";
+use feature qw(signatures);
+no warnings 'experimental::signatures';
+use POSIX;
+use List::Util qw(max);
+
+
+my @arr;
+for my $n (3..100) {
+ @arr = (1..$n);
+ my ($m, $n) = find_dim( scalar @arr );
+ my $spiral = spiral_fill( $m, $n, @arr );
+ print_matrix( $spiral );
+ say '';
+
+}
+
+sub find_dim ($size) {
+## SV Int size -> (SV Int m, SV Int n)
+## find the largest factor less than or equal to the square root
+ my $try = (int sqrt $size) + 1;
+ while (--$try > 1) {
+ last unless $size % $try;
+ }
+ return ($try, int $size/$try);
+}
+
+sub spiral_fill ( $rows, $cols, @arr ) {
+## given dimensions and an array spiral fills a matrix with those dimensions
+ my $rank = 0;
+ my $mat;
+
+ while ( -spiralize ) {
+ ## lower - left to right
+ return $mat if $rank > ceil( $rows / 2 - 1);
+ for my $col ( $rank..$cols - $rank - 1) {
+ $mat->[$rows-$rank-1][$col] = shift @arr;
+ }
+
+ ## right - bottom to top
+ return $mat if $rank > ceil( $cols / 2 - 1);
+ for my $row ( reverse $rank+1..$rows-$rank-2 ) {
+ $mat->[$row][$cols-$rank-1] = shift @arr;
+ }
+
+ ## upper - right to left
+ return $mat if $rank > floor( $rows / 2 - 1);
+ for my $col ( reverse $rank..$cols - $rank - 1) {
+ $mat->[$rank][$col] = shift @arr;
+ }
+
+ ## left - top to bottom
+ return $mat if $rank > floor( $cols / 2 - 1);
+ for my $row ( $rank+1..$rows-$rank-2 ) {
+ $mat->[$row][$rank] = shift @arr;
+ }
+
+ ## close ranks
+ $rank++;
+ }
+}
+
+sub print_matrix ( $matrix ) {
+
+ if (scalar $matrix->@* == 1) {
+ say "$_->@*" for $matrix->@*;
+ }
+ else {
+ my @maxes = map { max $_->@* } $matrix->@*;
+ my $max = max @maxes;
+
+ my $order = 0;
+ $order++ while int($max/10**$order) > 0;
+ $order+=2; ## padding
+
+ my $fmt = ("%-" . $order . "d") x scalar $matrix->[0]->@*;
+ for (keys $matrix->@*) {
+ printf "$fmt\n", $matrix->[$_]->@*;
+ }
+
+ }
+
+}
+
+
+
+
diff --git a/challenge-101/colin-crain/perl/ch-2.pl b/challenge-101/colin-crain/perl/ch-2.pl
new file mode 100644
index 0000000000..9d594bd3f4
--- /dev/null
+++ b/challenge-101/colin-crain/perl/ch-2.pl
@@ -0,0 +1,99 @@
+#! /opt/local/bin/perl
+#
+# three-walls-around-me.pl
+#
+# TASK #2 › Origin-containing Triangle
+# Submitted by: Stuart Little
+# You are given three points in the plane, as a list of six
+# co-ordinates: A=(x1,y1), B=(x2,y2) and C=(x3,y3).
+#
+# Write a script to find out if the triangle formed by the given three
+# co-ordinates contain origin (0,0).
+#
+# Print 1 if found otherwise 0.
+#
+# Example 1:
+#
+# Input : A=(0,1), B=(1,0) and C=(2,2)
+# Output: 0 because that triangle does not contain (0,0).
+#
+# Example 2:
+#
+# Input : A=(1,1), B=(-1,1) and C=(0,-3)
+# Output: 1 because that triangle contains (0,0) in its interior.
+#
+# Example 3:
+#
+# Input : A=(0,1), B=(2,0) and C=(-6,0)
+# Output: 1 because (0,0) is on the edge connecting B and C.
+#
+# method:
+#
+# avoids having to orient the triangle by short-circuiting
+# should any dot product equal 0. Inside if all procucts are
+# positive, all negative, or any value is 0.
+#
+# 1. barycentric
+# 2. parametric
+# 3. product
+# 4. equal sum of triangle area
+# 5. single edge intersection with line from infinity
+#
+#
+# © 2021 colin crain
+## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ##
+
+
+
+use warnings;
+use strict;
+use feature ":5.26";
+
+
+package main;
+use feature qw(signatures);
+no warnings 'experimental::signatures';
+
+
+@ARGV = (0,-4, 0,4, - 4,0);
+
+say origin_inside_triangle( @ARGV ) if @ARGV;
+
+sub origin_inside_triangle ( @triangle ) {
+ return place_origin( @triangle );
+}
+
+sub dot_product ( $x1,$y1, $x2,$y2 ) {
+ my $v = (($y2-$y1)*(-$x1) + (-$x2+$x1)*(-$y1));
+ return $v > 0 ? 1 : $v < 0 ? -1 : 0;
+}
+
+sub place_origin ( $x1, $y1, $x2, $y2, $x3, $y3 ) {
+# return true if all positive, all negative or any 0
+ my $s1 = dot_product( $x1,$y1, $x2,$y2 );
+ my $s2 = dot_product( $x2,$y2, $x3,$y3 );
+ my $s3 = dot_product( $x3,$y3, $x1,$y1 );
+
+ return 1 if $s1*$s2*$s3 == 0;
+
+ my $sum = $s1 + $s2 + $s3;
+ return ($sum == -3 || $sum == 3) ? 1 : 0;
+}
+
+## TESTING
+use Test::More;
+
+is origin_inside_triangle(0,1, 1,0, 2,2) , 0, 'ex-1';
+is origin_inside_triangle(1,1, -1,1, 0,-3), 1, 'ex-2';
+is origin_inside_triangle(0,1, 2,0, -6,0) , 1, 'ex-3';
+
+
+is origin_inside_triangle(-4,-4, -2,4, 3,-4), 1, '3 quadrants';
+is origin_inside_triangle(-4,-4, -2,4, 3,-4), 1, 'origin is vertex';
+
+is origin_inside_triangle(-4,0, 4,0, 4,4 ), 1, 'origin on line - ccw orientation';
+is origin_inside_triangle(-4,0, 4,0, -4,-4 ), 1, 'origin on line - cw orientation';
+is origin_inside_triangle(-4,-4, -2,4, 3,-4), 1, 'origin is vertex';
+is origin_inside_triangle(-4,1, 4,1, 4,4), 0, 'outside';
+
+done_testing();
diff --git a/stats/pwc-current.json b/stats/pwc-current.json
index affd3be3d7..7bdfc565ad 100644
--- a/stats/pwc-current.json
+++ b/stats/pwc-current.json
@@ -1,156 +1,4 @@
{
- "subtitle" : {
- "text" : "[Champions: 27] Last updated at 2021-03-01 02:03:05 GMT"
- },
- "xAxis" : {
- "type" : "category"
- },
- "chart" : {
- "type" : "column"
- },
- "series" : [
- {
- "data" : [
- {
- "drilldown" : "Aaron Smith",
- "y" : 3,
- "name" : "Aaron Smith"
- },
- {
- "name" : "Abigail",
- "y" : 4,
- "drilldown" : "Abigail"
- },
- {
- "drilldown" : "Arne Sommer",
- "name" : "Arne Sommer",
- "y" : 4
- },
- {
- "drilldown" : "Athanasius",
- "name" : "Athanasius",
- "y" : 4
- },
- {
- "drilldown" : "Bob Lied",
- "name" : "Bob Lied",
- "y" : 2
- },
- {
- "drilldown" : "Dave Jacoby",
- "y" : 3,
- "name" : "Dave Jacoby"
- },
- {
- "drilldown" : "Duane Powell",
- "y" : 1,
- "name" : "Duane Powell"
- },
- {
- "name" : "Duncan C. White",
- "y" : 2,
- "drilldown" : "Duncan C. White"
- },
- {
- "y" : 2,
- "name" : "E. Choroba",
- "drilldown" : "E. Choroba"
- },
- {
- "y" : 2,
- "name" : "Feng Chang",
- "drilldown" : "Feng Chang"
- },
- {
- "y" : 2,
- "name" : "Gustavo Chaves",
- "drilldown" : "Gustavo Chaves"
- },
- {
- "drilldown" : "James Smith",
- "y" : 2,
- "name" : "James Smith"
- },
- {
- "y" : 2,
- "name" : "Jan Krnavek",
- "drilldown" : "Jan Krnavek"
- },
- {
- "y" : 2,
- "name" : "Joan Mimosinnet",
- "drilldown" : "Joan Mimosinnet"
- },
- {
- "drilldown" : "Jorg Sommrey",
- "y" : 2,
- "name" : "Jorg Sommrey"
- },
- {
- "drilldown" : "Lubos Kolouch",
- "name" : "Lubos Kolouch",
- "y" : 2
- },
- {
- "y" : 2,
- "name" : "Mark Anderson",
- "drilldown" : "Mark Anderson"
- },
- {
- "y" : 2,
- "name" : "Niels van Dijke",
- "drilldown" : "Niels van Dijke"
- },
- {
- "name" : "Paulo Custodio",
- "y" : 2,
- "drilldown" : "Paulo Custodio"
- },
- {
- "drilldown" : "Pete Houston",
- "y" : 2,
- "name" : "Pete Houston"
- },
- {
- "drilldown" : "Roger Bell_West",
- "name" : "Roger Bell_West",
- "y" : 5
- },
- {
- "name" : "Simon Green",
- "y" : 3,
- "drilldown" : "Simon Green"
- },
- {
- "name" : "Simon Proctor",
- "y" : 2,
- "drilldown" : "Simon Proctor"
- },
- {
- "y" : 4,
- "name" : "Stuart Little",
- "drilldown" : "Stuart Little"
- },
- {
- "drilldown" : "Ulrich Rieke",
- "name" : "Ulrich Rieke",
- "y" : 2
- },
- {
- "drilldown" : "W. Luis Mochan",
- "name" : "W. Luis Mochan",
- "y" : 3
- },
- {
- "y" : 2,
- "name" : "Wanderdoc",
- "drilldown" : "Wanderdoc"
- }
- ],
- "name" : "Perl Weekly Challenge - 101",
- "colorByPoint" : 1
- }
- ],
"drilldown" : {
"series" : [
{
@@ -164,12 +12,11 @@
1
]
],
- "name" : "Aaron Smith",
- "id" : "Aaron Smith"
+ "id" : "Aaron Smith",
+ "name" : "Aaron Smith"
},
{
"id" : "Abigail",
- "name" : "Abigail",
"data" : [
[
"Perl",
@@ -179,11 +26,12 @@
"Blog",
2
]
- ]
+ ],
+ "name" : "Abigail"
},
{
- "id" : "Arne Sommer",
"name" : "Arne Sommer",
+ "id" : "Arne Sommer",
"data" : [
[
"Perl",
@@ -201,6 +49,7 @@
},
{
"name" : "Athanasius",
+ "id" : "Athanasius",
"data" : [
[
"Perl",
@@ -210,21 +59,29 @@
"Raku",
2
]
+ ]
+ },
+ {
+ "id" : "Bob Lied",
+ "data" : [
+ [
+ "Perl",
+ 2
+ ]
],
- "id" : "Athanasius"
+ "name" : "Bob Lied"
},
{
+ "name" : "Colin Crain",
"data" : [
[
"Perl",
2
]
],
- "name" : "Bob Lied",
- "id" : "Bob Lied"
+ "id" : "Colin Crain"
},
{
- "id" : "Dave Jacoby",
"name" : "Dave Jacoby",
"data" : [
[
@@ -235,41 +92,42 @@
"Blog",
1
]
- ]
+ ],
+ "id" : "Dave Jacoby"
},
{
"id" : "Duane Powell",
- "name" : "Duane Powell",
"data" : [
[
"Perl",
1
]
- ]
+ ],
+ "name" : "Duane Powell"
},
{
- "id" : "Duncan C. White",
+ "name" : "Duncan C. White",
"data" : [
[
"Perl",
2
]
],
- "name" : "Duncan C. White"
+ "id" : "Duncan C. White"
},
{
+ "id" : "E. Choroba",
"data" : [
[
"Perl",
2
]
],
- "name" : "E. Choroba",
- "id" : "E. Choroba"
+ "name" : "E. Choroba"
},
{
- "id" : "Feng Chang",
"name" : "Feng Chang",
+ "id" : "Feng Chang",
"data" : [
[
"Raku",
@@ -278,106 +136,108 @@
]
},
{
- "id" : "Gustavo Chaves",
+ "name" : "Gustavo Chaves",
"data" : [
[
"Perl",
2
]
],
- "name" : "Gustavo Chaves"
+ "id" : "Gustavo Chaves"
},
{
- "id" : "James Smith",
- "name" : "James Smith",
"data" : [
[
"Perl",
2
]
- ]
+ ],
+ "id" : "James Smith",
+ "name" : "James Smith"
},
{
- "name" : "Jan Krnavek",
+ "id" : "Jan Krnavek",
"data" : [
[
"Raku",
2
]
],
- "id" : "Jan Krnavek"
+ "name" : "Jan Krnavek"
},
{
+ "name" : "Joan Mimosinnet",
"id" : "Joan Mimosinnet",
"data" : [
[
"Raku",
2
]
- ],
- "name" : "Joan Mimosinnet"
+ ]
},
{
- "name" : "Jorg Sommrey",
"data" : [
[
"Perl",
2
]
],
- "id" : "Jorg Sommrey"
+ "id" : "Jorg Sommrey",
+ "name" : "Jorg Sommrey"
},
{
- "name" : "Lubos Kolouch",
+ "id" : "Lubos Kolouch",
"data" : [
[
"Perl",
2
]
],
- "id" : "Lubos Kolouch"
+ "name" : "Lubos Kolouch"
},
{
"name" : "Mark Anderson",
+ "id" : "Mark Anderson",
"data" : [
[
"Raku",
2
]
- ],
- "id" : "Mark Anderson"
+ ]
},
{
- "id" : "Niels van Dijke",
"data" : [
[
"Perl",
2
]
],
+ "id" : "Niels van Dijke",
"name" : "Niels van Dijke"
},
{
- "id" : "Paulo Custodio",
"name" : "Paulo Custodio",
"data" : [
[
"Perl",
2
]
- ]
+ ],
+ "id" : "Paulo Custodio"
},
{
- "id" : "Pete Houston",
- "name" : "Pete Houston",
"data" : [
[
"Perl",
2
]
- ]
+ ],
+ "id" : "Pete Houston",
+ "name" : "Pete Houston"
},
{
+ "name" : "Roger Bell_West",
+ "id" : "Roger Bell_West",
"data" : [
[
"Perl",
@@ -391,13 +251,11 @@
"Blog",
1
]
- ],
- "name" : "Roger Bell_West",
- "id" : "Roger Bell_West"
+ ]
},
{
- "id" : "Simon Green",
"name" : "Simon Green",
+ "id" : "Simon Green",
"data" : [
[
"Perl",
@@ -410,17 +268,17 @@
]
},
{
- "name" : "Simon Proctor",
"data" : [
[
"Raku",
2
]
],
- "id" : "Simon Proctor"
+ "id" : "Simon Proctor",
+ "name" : "Simon Proctor"
},
{
- "name" : "Stuart Little",
+ "id" : "Stuart Little",
"data" : [
[
"Perl",
@@ -431,21 +289,19 @@
2
]
],
- "id" : "Stuart Little"
+ "name" : "Stuart Little"
},
{
"name" : "Ulrich Rieke",
+ "id" : "Ulrich Rieke",
"data" : [
[
"Raku",
2
]
- ],
- "id" : "Ulrich Rieke"
+ ]
},
{
- "id" : "W. Luis Mochan",
- "name" : "W. Luis Mochan",
"data" : [
[
"Perl",
@@ -455,43 +311,202 @@
"Blog",
1
]
- ]
+ ],
+ "id" : "W. Luis Mochan",
+ "name" : "W. Luis Mochan"
},
{
- "id" : "Wanderdoc",
+ "name" : "Wanderdoc",
"data" : [
[
"Perl",
2
]
],
- "name" : "Wanderdoc"
+ "id" : "Wanderdoc"
}
]
},
+ "chart" : {
+ "type" : "column"
+ },
+ "tooltip" : {
+ "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>",
+ "pointFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>",
+ "followPointer" : 1
+ },
+ "subtitle" : {
+ "text" : "[Champions: 28] Last updated at 2021-03-01 02:15:14 GMT"
+ },
"yAxis" : {
"title" : {
"text" : "Total Solutions"
}
},
- "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/>"
- },
"legend" : {
"enabled" : 0
},
- "title" : {
- "text" : "Perl Weekly Challenge - 101"
- },
+ "series" : [
+ {
+ "data" : [
+ {
+ "y" : 3,
+ "drilldown" : "Aaron Smith",
+ "name" : "Aaron Smith"
+ },
+ {
+ "drilldown" : "Abigail",
+ "y" : 4,
+ "name" : "Abigail"
+ },
+ {
+ "name" : "Arne Sommer",
+ "drilldown" : "Arne Sommer",
+ "y" : 4
+ },
+ {
+ "drilldown" : "Athanasius",
+ "name" : "Athanasius",
+ "y" : 4
+ },
+ {
+ "name" : "Bob Lied",
+ "drilldown" : "Bob Lied",
+ "y" : 2
+ },
+ {
+ "y" : 2,
+ "drilldown" : "Colin Crain",
+ "name" : "Colin Crain"
+ },
+ {
+ "drilldown" : "Dave Jacoby",
+ "name" : "Dave Jacoby",
+ "y" : 3
+ },
+ {
+ "drilldown" : "Duane Powell",
+ "y" : 1,
+ "name" : "Duane Powell"
+ },
+ {
+ "name" : "Duncan C. White",
+ "drilldown" : "Duncan C. White",
+ "y" : 2
+ },
+ {
+ "drilldown" : "E. Choroba",
+ "y" : 2,
+ "name" : "E. Choroba"
+ },
+ {
+ "name" : "Feng Chang",
+ "drilldown" : "Feng Chang",
+ "y" : 2
+ },
+ {
+ "name" : "Gustavo Chaves",
+ "drilldown" : "Gustavo Chaves",
+ "y" : 2
+ },
+ {
+ "drilldown" : "James Smith",
+ "name" : "James Smith",
+ "y" : 2
+ },
+ {
+ "drilldown" : "Jan Krnavek",
+ "name" : "Jan Krnavek",
+ "y" : 2
+ },
+ {
+ "y" : 2,
+ "drilldown" : "Joan Mimosinnet",
+ "name" : "Joan Mimosinnet"
+ },
+ {
+ "drilldown" : "Jorg Sommrey",
+ "y" : 2,
+ "name" : "Jorg Sommrey"
+ },
+ {
+ "drilldown" : "Lubos Kolouch",
+ "y" : 2,
+ "name" : "Lubos Kolouch"
+ },
+ {
+ "drilldown" : "Mark Anderson",
+ "y" : 2,
+ "name" : "Mark Anderson"
+ },
+ {
+ "name" : "Niels van Dijke",
+ "drilldown" : "Niels van Dijke",
+ "y" : 2
+ },
+ {
+ "drilldown" : "Paulo Custodio",
+ "name" : "Paulo Custodio",
+ "y" : 2
+ },
+ {
+ "drilldown" : "Pete Houston",
+ "y" : 2,
+ "name" : "Pete Houston"
+ },
+ {
+ "drilldown" : "Roger Bell_West",
+ "name" : "Roger Bell_West",
+ "y" : 5
+ },
+ {
+ "drilldown" : "Simon Green",
+ "y" : 3,
+ "name" : "Simon Green"
+ },
+ {
+ "name" : "Simon Proctor",
+ "drilldown" : "Simon Proctor",
+ "y" : 2
+ },
+ {
+ "y" : 4,
+ "drilldown" : "Stuart Little",
+ "name" : "Stuart Little"
+ },
+ {
+ "y" : 2,
+ "drilldown" : "Ulrich Rieke",
+ "name" : "Ulrich Rieke"
+ },
+ {
+ "drilldown" : "W. Luis Mochan",
+ "y" : 3,
+ "name" : "W. Luis Mochan"
+ },
+ {
+ "drilldown" : "Wanderdoc",
+ "y" : 2,
+ "name" : "Wanderdoc"
+ }
+ ],
+ "name" : "Perl Weekly Challenge - 101",
+ "colorByPoint" : 1
+ }
+ ],
"plotOptions" : {
"series" : {
"borderWidth" : 0,
"dataLabels" : {
- "enabled" : 1,
- "format" : "{point.y}"
+ "format" : "{point.y}",
+ "enabled" : 1
}
}
+ },
+ "xAxis" : {
+ "type" : "category"
+ },
+ "title" : {
+ "text" : "Perl Weekly Challenge - 101"
}
}
diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json
index 824b6036fd..2af47ca9a7 100644
--- a/stats/pwc-language-breakdown-summary.json
+++ b/stats/pwc-language-breakdown-summary.json
@@ -1,48 +1,9 @@
{
- "tooltip" : {
- "pointFormat" : "<b>{point.y:.0f}</b>"
- },
- "legend" : {
- "enabled" : "false"
- },
- "yAxis" : {
- "min" : 0,
- "title" : {
- "text" : null
- }
- },
"title" : {
"text" : "Perl Weekly Challenge Contributions [2019 - 2020]"
},
- "xAxis" : {
- "type" : "category",
- "labels" : {
- "style" : {
- "fontFamily" : "Verdana, sans-serif",
- "fontSize" : "13px"
- }
- }
- },
- "subtitle" : {
- "text" : "Last updated at 2021-03-01 02:03:05 GMT"
- },
- "chart" : {
- "type" : "column"
- },
"series" : [
{
- "dataLabels" : {
- "color" : "#FFFFFF",
- "format" : "{point.y:.0f}",
- "align" : "right",
- "rotation" : -90,
- "y" : 10,
- "style" : {
- "fontSize" : "13px",
- "fontFamily" : "Verdana, sans-serif"
- },
- "enabled" : "true"
- },
"name" : "Contributions",
"data" : [
[
@@ -51,13 +12,52 @@
],
[
"Perl",
- 4772
+ 4774
],
[
"Raku",
3066
]
- ]
+ ],
+ "dataLabels" : {
+ "y" : 10,
+ "style" : {
+ "fontFamily" : "Verdana, sans-serif",
+ "fontSize" : "13px"
+ },
+ "enabled" : "true",
+ "align" : "right",
+ "rotation" : -90,
+ "color" : "#FFFFFF",
+ "format" : "{point.y:.0f}"
+ }
+ }
+ ],
+ "xAxis" : {
+ "type" : "category",
+ "labels" : {
+ "style" : {
+ "fontFamily" : "Verdana, sans-serif",
+ "fontSize" : "13px"
+ }
}
- ]
+ },
+ "legend" : {
+ "enabled" : "false"
+ },
+ "yAxis" : {
+ "title" : {
+ "text" : null
+ },
+ "min" : 0
+ },
+ "tooltip" : {
+ "pointFormat" : "<b>{point.y:.0f}<