aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rwxr-xr-xchallenge-069/roger-bell-west/perl/ch-2.pl47
-rwxr-xr-xchallenge-069/roger-bell-west/raku/ch-2.p641
-rw-r--r--stats/pwc-current.json126
-rw-r--r--stats/pwc-language-breakdown-summary.json82
-rw-r--r--stats/pwc-language-breakdown.json438
-rw-r--r--stats/pwc-leaders.json706
-rw-r--r--stats/pwc-summary-1-30.json42
-rw-r--r--stats/pwc-summary-121-150.json46
-rw-r--r--stats/pwc-summary-151-180.json108
-rw-r--r--stats/pwc-summary-31-60.json130
-rw-r--r--stats/pwc-summary-61-90.json56
-rw-r--r--stats/pwc-summary-91-120.json98
-rw-r--r--stats/pwc-summary.json384
13 files changed, 1196 insertions, 1108 deletions
diff --git a/challenge-069/roger-bell-west/perl/ch-2.pl b/challenge-069/roger-bell-west/perl/ch-2.pl
new file mode 100755
index 0000000000..a254375183
--- /dev/null
+++ b/challenge-069/roger-bell-west/perl/ch-2.pl
@@ -0,0 +1,47 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+
+use List::Util qw(min);
+
+my $s=30;
+my $l=2**$s-1;
+
+my $pos=1;
+my $seq=4;
+while (1) {
+ my $p1=$seq-1;
+ my $n0=min($p1-$pos,$l-$pos);
+ print '0' x $n0;
+ $pos+=$n0;
+ if ($p1<=$l) {
+ print '1';
+ $pos++;
+ }
+ if ($pos>$l) {
+ last;
+ }
+ $seq=nextseq($seq);
+}
+print "\n";
+
+sub nextseq {
+ my $prev=shift;
+ my $c=$prev;
+ while (1) {
+ $c++;
+ my $t=$c-1;
+ while (1) {
+ my $r=int($t/2);
+ if ($t % 2 != 0) {
+ last;
+ }
+ $t=$r;
+ }
+ if ($t % 4 == 3) {
+ last;
+ }
+ }
+ return $c;
+}
diff --git a/challenge-069/roger-bell-west/raku/ch-2.p6 b/challenge-069/roger-bell-west/raku/ch-2.p6
new file mode 100755
index 0000000000..65a1befc84
--- /dev/null
+++ b/challenge-069/roger-bell-west/raku/ch-2.p6
@@ -0,0 +1,41 @@
+#! /usr/bin/perl6
+
+my $s=30;
+my $l=2**$s-1;
+
+my $pos=1;
+my $seq=4;
+while (1) {
+ my $p1=$seq-1;
+ my $n0=min($p1-$pos,$l-$pos);
+ print '0' x $n0;
+ $pos+=$n0;
+ if ($p1 <= $l) {
+ print '1';
+ $pos++;
+ }
+ if ($pos > $l) {
+ last;
+ }
+ $seq=nextseq($seq);
+}
+print "\n";
+
+sub nextseq ($prev) {
+ my $c=$prev;
+ while (1) {
+ $c++;
+ my $t=$c-1;
+ while (1) {
+ my $r=truncate($t/2);
+ if ($t % 2 != 0) {
+ last;
+ }
+ $t=$r;
+ }
+ if ($t % 4 == 3) {
+ last;
+ }
+ }
+ return $c;
+}
diff --git a/stats/pwc-current.json b/stats/pwc-current.json
index f5449d4588..c7775750d2 100644
--- a/stats/pwc-current.json
+++ b/stats/pwc-current.json
@@ -1,53 +1,26 @@
{
- "series" : [
- {
- "data" : [
- {
- "y" : 2,
- "name" : "Andrew Shitov",
- "drilldown" : "Andrew Shitov"
- },
- {
- "drilldown" : "Javier Luque",
- "y" : 5,
- "name" : "Javier Luque"
- },
- {
- "name" : "Luca Ferrari",
- "y" : 4,
- "drilldown" : "Luca Ferrari"
- },
- {
- "y" : 2,
- "name" : "Roger Bell_West",
- "drilldown" : "Roger Bell_West"
- },
- {
- "name" : "Simon Miner",
- "y" : 1,
- "drilldown" : "Simon Miner"
- }
- ],
- "colorByPoint" : 1,
- "name" : "Perl Weekly Challenge - 069"
- }
- ],
- "xAxis" : {
- "type" : "category"
+ "chart" : {
+ "type" : "column"
},
- "legend" : {
- "enabled" : 0
+ "subtitle" : {
+ "text" : "[Champions: 5] Last updated at 2020-07-13 17:36:31 GMT"
},
"yAxis" : {
"title" : {
"text" : "Total Solutions"
}
},
- "chart" : {
- "type" : "column"
+ "plotOptions" : {
+ "series" : {
+ "borderWidth" : 0,
+ "dataLabels" : {
+ "format" : "{point.y}",
+ "enabled" : 1
+ }
+ }
},
- "subtitle" : {
- "text" : "[Champions: 5] Last updated at 2020-07-13 17:08:02 GMT"
+ "xAxis" : {
+ "type" : "category"
},
"title" : {
"text" : "Perl Weekly Challenge - 069"
@@ -69,6 +42,7 @@
"id" : "Andrew Shitov"
},
{
+ "name" : "Javier Luque",
"id" : "Javier Luque",
"data" : [
[
@@ -83,11 +57,10 @@
"Blog",
1
]
- ],
- "name" : "Javier Luque"
+ ]
},
{
- "id" : "Luca Ferrari",
+ "name" : "Luca Ferrari",
"data" : [
[
"Raku",
@@ -98,46 +71,73 @@
2
]
],
- "name" : "Luca Ferrari"
+ "id" : "Luca Ferrari"
},
{
+ "name" : "Roger Bell_West",
"data" : [
[
"Perl",
- 1
+ 2
],
[
"Raku",
- 1
+ 2
]
],
- "id" : "Roger Bell_West",
- "name" : "Roger Bell_West"
+ "id" : "Roger Bell_West"
},
{
- "name" : "Simon Miner",
+ "id" : "Simon Miner",
"data" : [
[
"Perl",
1
]
],
- "id" : "Simon Miner"
+ "name" : "Simon Miner"
}
]
},
- "plotOptions" : {
- "series" : {
- "dataLabels" : {
- "enabled" : 1,
- "format" : "{point.y}"
- },
- "borderWidth" : 0
- }
- },
"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/>"
- }
+ "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>",
+ "followPointer" : 1
+ },
+ "legend" : {
+ "enabled" : 0
+ },
+ "series" : [
+ {
+ "colorByPoint" : 1,
+ "name" : "Perl Weekly Challenge - 069",
+ "data" : [
+ {
+ "name" : "Andrew Shitov",
+ "y" : 2,
+ "drilldown" : "Andrew Shitov"
+ },
+ {
+ "name" : "Javier Luque",
+ "drilldown" : "Javier Luque",
+ "y" : 5
+ },
+ {
+ "y" : 4,
+ "drilldown" : "Luca Ferrari",
+ "name" : "Luca Ferrari"
+ },
+ {
+ "name" : "Roger Bell_West",
+ "y" : 4,
+ "drilldown" : "Roger Bell_West"
+ },
+ {
+ "name" : "Simon Miner",
+ "drilldown" : "Simon Miner",
+ "y" : 1
+ }
+ ]
+ }
+ ]
}
diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json
index cc011aa093..4752358706 100644
--- a/stats/pwc-language-breakdown-summary.json
+++ b/stats/pwc-language-breakdown-summary.json
@@ -1,31 +1,36 @@
{
- "legend" : {
- "enabled" : "false"
+ "chart" : {
+ "type" : "column"
+ },
+ "subtitle" : {
+ "text" : "Last updated at 2020-07-13 17:36:31 GMT"
+ },
+ "yAxis" : {
+ "title" : {
+ "text" : null
+ },
+ "min" : 0
+ },
+ "title" : {
+ "text" : "Perl Weekly Challenge Contributions [2019 - 2020]"
},
"xAxis" : {
- "type" : "category",
"labels" : {
"style" : {
- "fontFamily" : "Verdana, sans-serif",
- "fontSize" : "13px"
+ "fontSize" : "13px",
+ "fontFamily" : "Verdana, sans-serif"
}
- }
+ },
+ "type" : "category"
+ },
+ "tooltip" : {
+ "pointFormat" : "<b>{point.y:.0f}</b>"
+ },
+ "legend" : {
+ "enabled" : "false"
},
"series" : [
{
- "dataLabels" : {
- "style" : {
- "fontSize" : "13px",
- "fontFamily" : "Verdana, sans-serif"
- },
- "y" : 10,
- "color" : "#FFFFFF",
- "align" : "right",
- "format" : "{point.y:.0f}",
- "enabled" : "true",
- "rotation" : -90
- },
- "name" : "Contributions",
"data" : [
[
"Blog",
@@ -33,31 +38,26 @@
],
[
"Perl",
- 2823
+ 2824
],
[
"Raku",
- 1813
+ 1814
]
- ]
- }
- ],
- "tooltip" : {
- "pointFormat" : "<b>{point.y:.0f}</b>"
- },
- "yAxis" : {
- "min" : 0,
- "title" : {
- "text" : null
+ ],
+ "name" : "Contributions",
+ "dataLabels" : {
+ "align" : "right",
+ "format" : "{point.y:.0f}",
+ "rotation" : -90,
+ "color" : "#FFFFFF",
+ "y" : 10,
+ "enabled" : "true",
+ "style" : {
+ "fontSize" : "13px",
+ "fontFamily" : "Verdana, sans-serif"
+ }
+ }
}
- },
- "chart" : {
- "type" : "column"
- },
- "subtitle" : {
- "text" : "Last updated at 2020-07-13 17:08:02 GMT"
- },
- "title" : {
- "text" : "Perl Weekly Challenge Contributions [2019 - 2020]"
- }
+ ]
}
diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json
index c125b11f91..0d18cc24d5 100644
--- a/stats/pwc-language-breakdown.json
+++ b/stats/pwc-language-breakdown.json
@@ -1,27 +1,24 @@
{
- "chart" : {
- "type" : "column"
+ "xAxis" : {
+ "type" : "category"
},
- "subtitle" : {
- "text" : "Click the columns to drilldown the language breakdown. Last updated at 2020-07-13 17:08:02 GMT"
+ "plotOptions" : {
+ "series" : {
+ "dataLabels" : {
+ "enabled" : 1,
+ "format" : "{point.y}"
+ },
+ "borderWidth" : 0
+ }
},
"title" : {
"text" : "Perl Weekly Challenge Language"
},
- "yAxis" : {
- "title" : {
- "text" : "Total Solutions"
- }
- },
- "tooltip" : {
- "followPointer" : "true",
- "pointFormat" : "<span style=\"color:{point.color}\">Challenge {point.name}</span>: <b>{point.y:f}</b><br/>",
- "headerFormat" : "<span style=\"font-size:11px\"></span>"
- },
"drilldown" : {
"series" : [
{
"name" : "001",
+ "id" : "001",
"data" : [
[
"Perl",
@@ -35,8 +32,7 @@
"Blog",
11
]
- ],
- "id" : "001"
+ ]
},
{
"name" : "002",
@@ -76,6 +72,7 @@
},
{
"name" : "004",
+ "id" : "004",
"data" : [
[
"Perl",
@@ -89,12 +86,9 @@
"Blog",
10
]
- ],
- "id" : "004"
+ ]
},
{
- "name" : "005",
- "id" : "005",
"data" : [
[
"Perl",
@@ -108,7 +102,9 @@
"Blog",
12
]
- ]
+ ],
+ "id" : "005",
+ "name" : "005"
},
{
"id" : "006",
@@ -129,6 +125,8 @@
"name" : "006"
},
{
+ "name" : "007",
+ "id" : "007",
"data" : [
[
"Perl",
@@ -142,12 +140,10 @@
"Blog",
10
]
- ],
- "id" : "007",
- "name" : "007"
+ ]
},
{
- "id" : "008",
+ "name" : "008",
"data" : [
[
"Perl",
@@ -162,10 +158,9 @@
12
]
],
- "name" : "008"
+ "id" : "008"
},
{
- "id" : "009",
"data" : [
[
"Perl",
@@ -180,10 +175,10 @@
13
]
],
+ "id" : "009",
"name" : "009"
},
{
- "name" : "010",
"data" : [
[
"Perl",
@@ -198,10 +193,10 @@
11
]
],
- "id" : "010"
+ "id" : "010",
+ "name" : "010"
},
{
- "id" : "011",
"data" : [
[
"Perl",
@@ -216,10 +211,10 @@
10
]
],
+ "id" : "011",
"name" : "011"
},
{
- "id" : "012",
"data" : [
[
"Perl",
@@ -234,10 +229,12 @@
11
]
],
+ "id" : "012",
"name" : "012"
},
{
"name" : "013",
+ "id" : "013",
"data" : [
[
"Perl",
@@ -251,8 +248,7 @@
"Blog",
13
]
- ],
- "id" : "013"
+ ]
},
{
"data" : [
@@ -291,6 +287,7 @@
"name" : "015"
},
{
+ "id" : "016",
"data" : [
[
"Perl",
@@ -305,11 +302,9 @@
12
]
],
- "id" : "016",
"name" : "016"
},
{
- "name" : "017",
"id" : "017",
"data" : [
[
@@ -324,10 +319,10 @@
"Blog",
12
]
- ]
+ ],
+ "name" : "017"
},
{
- "id" : "018",
"data" : [
[
"Perl",
@@ -342,9 +337,11 @@
14
]
],
+ "id" : "018",
"name" : "018"
},
{
+ "name" : "019",
"id" : "019",
"data" : [
[
@@ -359,8 +356,7 @@
"Blog",
13
]
- ],
- "name" : "019"
+ ]
},
{
"name" : "020",
@@ -382,6 +378,7 @@
},
{
"name" : "021",
+ "id" : "021",
"data" : [
[
"Perl",
@@ -395,10 +392,10 @@
"Blog",
10
]
- ],
- "id" : "021"
+ ]
},
{
+ "id" : "022",
"data" : [
[
"Perl",
@@ -413,10 +410,10 @@
10
]
],
- "id" : "022",
"name" : "022"
},
{
+ "name" : "023",
"id" : "023",
"data" : [
[
@@ -431,11 +428,10 @@
"Blog",
12
]
- ],
- "name" : "023"
+ ]
},
{
- "name" : "024",
+ "id" : "024",
"data" : [
[
"Perl",
@@ -450,9 +446,10 @@
11
]
],
- "id" : "024"
+ "name" : "024"
},
{
+ "id" : "025",
"data" : [
[
"Perl",
@@ -467,11 +464,10 @@
12
]
],
- "id" : "025",
"name" : "025"
},
{
- "id" : "026",
+ "name" : "026",
"data" : [
[
"Perl",
@@ -486,9 +482,10 @@
10
]
],
- "name" : "026"
+ "id" : "026"
},
{
+ "name" : "027",
"id" : "027",
"data" : [
[
@@ -503,8 +500,7 @@
"Blog",
9
]
- ],
- "name" : "027"
+ ]
},
{
"data" : [
@@ -525,7 +521,6 @@
"name" : "028"
},
{
- "id" : "029",
"data" : [
[
"Perl",
@@ -540,10 +535,10 @@
12
]
],
+ "id" : "029",
"name" : "029"
},
{
- "name" : "030",
"id" : "030",
"data" : [
[
@@ -558,7 +553,8 @@
"Blog",
10
]
- ]
+ ],
+ "name" : "030"
},
{
"id" : "031",
@@ -579,7 +575,6 @@
"name" : "031"
},
{
- "name" : "032",
"id" : "032",
"data" : [
[
@@ -594,9 +589,11 @@
"Blog",
10
]
- ]
+ ],
+ "name" : "032"
},
{
+ "name" : "033",
"id" : "033",
"data" : [
[
@@ -611,11 +608,9 @@
"Blog",
10
]
- ],
- "name" : "033"
+ ]
},
{
- "name" : "034",
"data" : [
[
"Perl",
@@ -630,9 +625,11 @@
11
]
],
- "id" : "034"
+ "id" : "034",
+ "name" : "034"
},
{
+ "name" : "035",
"id" : "035",
"data" : [
[
@@ -647,11 +644,10 @@
"Blog",
9
]
- ],
- "name" : "035"
+ ]
},
{
- "name" : "036",
+ "id" : "036",
"data" : [
[
"Perl",
@@ -666,7 +662,7 @@
11
]
],
- "id" : "036"
+ "name" : "036"
},
{
"id" : "037",
@@ -723,7 +719,7 @@
"name" : "039"
},
{
- "name" : "040",
+ "id" : "040",
"data" : [
[
"Perl",
@@ -738,9 +734,10 @@
10
]
],
- "id" : "040"
+ "name" : "040"
},
{
+ "name" : "041",
"id" : "041",
"data" : [
[
@@ -755,11 +752,9 @@
"Blog",
9
]
- ],
- "name" : "041"
+ ]
},
{
- "name" : "042",
"data" : [
[
"Perl",
@@ -774,10 +769,11 @@
11
]
],
- "id" : "042"
+ "id" : "042",
+ "name" : "042"
},
{
- "id" : "043",
+ "name" : "043",
"data" : [
[
"Perl",
@@ -792,7 +788,7 @@
11
]
],
- "name" : "043"
+ "id" : "043"
},
{
"name" : "044",
@@ -813,6 +809,7 @@
]
},
{
+ "id" : "045",
"data" : [
[
"Perl",
@@ -827,10 +824,10 @@
11
]
],
- "id" : "045",
"name" : "045"
},
{
+ "name" : "046",
"data" : [
[
"Perl",
@@ -845,11 +842,11 @@
10
]
],
- "id" : "046",
- "name" : "046"
+ "id" : "046"
},
{
"name" : "047",
+ "id" : "047",
"data" : [
[
"Perl",
@@ -863,11 +860,9 @@
"Blog",
10
]
- ],
- "id" : "047"
+ ]
},
{
- "name" : "048",
"data" : [
[
"Perl",
@@ -882,9 +877,11 @@
12
]
],
- "id" : "048"
+ "id" : "048",
+ "name" : "048"
},
{
+ "name" : "049",
"data" : [
[
"Perl",
@@ -899,11 +896,10 @@
12
]
],
- "id" : "049",
- "name" : "049"
+ "id" : "049"
},
{
- "id" : "050",
+ "name" : "050",
"data" : [
[
"Perl",
@@ -918,7 +914,7 @@
12
]
],
- "name" : "050"
+ "id" : "050"
},
{
"name" : "051",
@@ -939,6 +935,8 @@
]
},
{
+ "name" : "052",
+ "id" : "052",
"data" : [
[
"Perl",
@@ -952,9 +950,7 @@
"Blog",
14
]
- ],
- "id" : "052",
- "name" : "052"
+ ]
},
{
"id" : "053",
@@ -975,7 +971,6 @@
"name" : "053"
},
{
- "id" : "054",
"data" : [
[
"Perl",
@@ -990,10 +985,10 @@
18
]
],
+ "id" : "054",
"name" : "054"
},
{
- "name" : "055",
"id" : "055",
"data" : [
[
@@ -1008,7 +1003,8 @@
"Blog",
14
]
- ]
+ ],
+ "name" : "055"
},
{
"id" : "056",
@@ -1029,7 +1025,6 @@
"name" : "056"
},
{
- "id" : "057",
"data" : [
[
"Perl",
@@ -1044,10 +1039,10 @@
15
]
],
+ "id" : "057",
"name" : "057"
},
{
- "id" : "058",
"data" : [
[
"Perl",
@@ -1062,10 +1057,10 @@
12
]
],
+ "id" : "058",
"name" : "058"
},
{
- "name" : "059",
"id" : "059",
"data" : [
[
@@ -1080,7 +1075,8 @@
"Blog",
15
]
- ]
+ ],
+ "name" : "059"
},
{
"name" : "060",
@@ -1101,7 +1097,6 @@
]
},
{
- "name" : "061",
"data" : [
[
"Perl",
@@ -1116,10 +1111,11 @@
14
]
],
- "id" : "061"
+ "id" : "061",
+ "name" : "061"
},
{
- "id" : "062",
+ "name" : "062",
"data" : [
[
"Perl",
@@ -1134,10 +1130,9 @@
11
]
],
- "name" : "062"
+ "id" : "062"
},
{
- "name" : "063",
"id" : "063",
"data" : [
[
@@ -1152,7 +1147,8 @@
"Blog",
13
]
- ]
+ ],
+ "name" : "063"
},
{
"name" : "064",
@@ -1173,6 +1169,7 @@
"id" : "064"
},
{
+ "name" : "065",
"id" : "065",
"data" : [
[
@@ -1187,11 +1184,10 @@
"Blog",
15
]
- ],
- "name" : "065"
+ ]
},
{
- "name" : "066",
+ "id" : "066",
"data" : [
[
"Perl",
@@ -1206,9 +1202,10 @@
13
]
],
- "id" : "066"
+ "name" : "066"
},
{
+ "name" : "067",
"data" : [
[
"Perl",
@@ -1223,10 +1220,10 @@
17
]
],
- "id" : "067",
- "name" : "067"
+ "id" : "067"
},
{
+ "name" : "068",
"id" : "068",
"data" : [
[
@@ -1241,94 +1238,90 @@
"Blog",
9
]
- ],
- "name" : "068"
+ ]
},
{
"name" : "069",
- "id" : "069",
"data" : [
[
"Perl",
- 4
+ 5
],
[
"Raku",
- 6
+ 7
],
[
"Blog",
4
]
- ]
+ ],
+ "id" : "069"
}
]
},
- "plotOptions" : {
- "series" : {
- "borderWidth" : 0,
- "dataLabels" : {
- "format" : "{point.y}",
- "enabled" : 1
- }
- }
+ "tooltip" : {
+ "followPointer" : "true",
+ "headerFormat" : "<span style=\"font-size:11px\"></span>",
+ "pointFormat" : "<span style=\"color:{point.color}\">Challenge {point.name}</span>: <b>{point.y:f}</b><br/>"
},
- "xAxis" : {
- "type" : "category"
+ "legend" : {
+ "enabled" : "false"
},
"series" : [
{
+ "colorByPoint" : "true",
"name" : "Perl Weekly Challenge Languages",
"data" : [
{
- "drilldown" : "001",
"name" : "#001",
- "y" : 142
+ "y" : 142,
+ "drilldown" : "001"
},
{
- "y" : 109,
"name" : "#002",
- "drilldown" : "002"
+ "drilldown" : "002",
+ "y" : 109
},
{
"name" : "#003",
- "y" : 71,
- "drilldown" : "003"
+ "drilldown" : "003",
+ "y" : 71
},
{
"drilldown" : "004",
- "name" : "#004",
- "y" : 91
+ "y" : 91,
+ "name" : "#004"
},