From a1160c7179238737c95fc2dd8fdf72d6c4610b68 Mon Sep 17 00:00:00 2001 From: Francis Whittle Date: Mon, 15 Apr 2019 10:46:30 +1000 Subject: Challenge 004.1 solution --- challenge-004/fjwhittle/perl6/ch-1.p6 | 1 + 1 file changed, 1 insertion(+) create mode 100644 challenge-004/fjwhittle/perl6/ch-1.p6 diff --git a/challenge-004/fjwhittle/perl6/ch-1.p6 b/challenge-004/fjwhittle/perl6/ch-1.p6 new file mode 100644 index 0000000000..7d60b2b87e --- /dev/null +++ b/challenge-004/fjwhittle/perl6/ch-1.p6 @@ -0,0 +1 @@ +printf "%.16f",pi \ No newline at end of file -- cgit From 3433662b2e77d72d895a03aaaa34146317b72be5 Mon Sep 17 00:00:00 2001 From: Francis Whittle Date: Mon, 15 Apr 2019 22:38:30 +1000 Subject: Redo challenge 004 part 1 with pi calculation --- challenge-004/fjwhittle/perl6/ch-1--first.p6 | 1 + challenge-004/fjwhittle/perl6/ch-1.p6 | 9 ++++++++- 2 files changed, 9 insertions(+), 1 deletion(-) create mode 100644 challenge-004/fjwhittle/perl6/ch-1--first.p6 diff --git a/challenge-004/fjwhittle/perl6/ch-1--first.p6 b/challenge-004/fjwhittle/perl6/ch-1--first.p6 new file mode 100644 index 0000000000..7d60b2b87e --- /dev/null +++ b/challenge-004/fjwhittle/perl6/ch-1--first.p6 @@ -0,0 +1 @@ +printf "%.16f",pi \ No newline at end of file diff --git a/challenge-004/fjwhittle/perl6/ch-1.p6 b/challenge-004/fjwhittle/perl6/ch-1.p6 index 7d60b2b87e..3ae01ddb41 100644 --- a/challenge-004/fjwhittle/perl6/ch-1.p6 +++ b/challenge-004/fjwhittle/perl6/ch-1.p6 @@ -1 +1,8 @@ -printf "%.16f",pi \ No newline at end of file +my $eu-seq = gather { + take 1; + for 1..* -> $n { take $eu-seq[$n - 1] * FatRat.new($n, 2 * $n + 1) } +} + +my \π := 2 * [+] $eu-seq[^608]; + +put π.Str.substr: ^($?FILE.IO.s+1); -- cgit From f8aeea6b0a63b0c0983ec66c799c7b35052ed142 Mon Sep 17 00:00:00 2001 From: Francis Whittle Date: Mon, 15 Apr 2019 23:56:08 +1000 Subject: Add blog link for challenge 004 --- challenge-004/fjwhittle/blog.txt | 1 + 1 file changed, 1 insertion(+) create mode 100644 challenge-004/fjwhittle/blog.txt diff --git a/challenge-004/fjwhittle/blog.txt b/challenge-004/fjwhittle/blog.txt new file mode 100644 index 0000000000..55e8085e45 --- /dev/null +++ b/challenge-004/fjwhittle/blog.txt @@ -0,0 +1 @@ +https://rage.powered.ninja/2019/04/15/no-pi-file.html -- cgit From 010b302870886327f53966cbf906b68f2b13b446 Mon Sep 17 00:00:00 2001 From: Mohammad S Anwar Date: Mon, 15 Apr 2019 15:43:20 +0100 Subject: - Updated chart stats. --- stats/pwc-current.json | 87 ++++++++++++++++++++++++------------------ stats/pwc-summary-1-30.json | 24 ++++++------ stats/pwc-summary-31-60.json | 90 ++++++++++++++++++++++---------------------- stats/pwc-summary-61-90.json | 56 +++++++++++++-------------- stats/pwc-summary.json | 30 +++++++-------- 5 files changed, 151 insertions(+), 136 deletions(-) diff --git a/stats/pwc-current.json b/stats/pwc-current.json index d4bb12538b..465f60009b 100644 --- a/stats/pwc-current.json +++ b/stats/pwc-current.json @@ -1,66 +1,69 @@ { - "legend" : { - "enabled" : 0 - }, - "title" : { - "text" : "Perl Weekly Challenge - 004" - }, - "subtitle" : { - "text" : "[Champions: 3] Last updated at 2019-04-15 13:45:21 GMT" - }, - "xAxis" : { - "type" : "category" - }, "yAxis" : { "title" : { "text" : "Total Solutions" } }, - "chart" : { - "type" : "column" - }, - "tooltip" : { - "headerFormat" : "{series.name}
", - "pointerFormat" : "{point.name}: {point.y:f}
", - "followPointer" : 1 - }, "series" : [ { "data" : [ { - "y" : 4, + "name" : "Francis Whittle", + "drilldown" : "Francis Whittle", + "y" : 1 + }, + { + "name" : "Dr James A. Smith", "drilldown" : "Dr James A. Smith", - "name" : "Dr James A. Smith" + "y" : 4 }, { - "y" : 1, + "drilldown" : "Kivanc Yazan", "name" : "Kivanc Yazan", - "drilldown" : "Kivanc Yazan" + "y" : 1 }, { "y" : 1, - "name" : "Maxim Kolodyazhny", - "drilldown" : "Maxim Kolodyazhny" + "drilldown" : "Maxim Kolodyazhny", + "name" : "Maxim Kolodyazhny" } ], - "name" : "Champions", - "colorByPoint" : 1 + "colorByPoint" : 1, + "name" : "Champions" } ], "plotOptions" : { "series" : { - "borderWidth" : 0, "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" : [ + { + "id" : "Francis Whittle", + "data" : [ + [ + "Perl 6", + 1 + ] + ], + "name" : "Francis Whittle" + }, { "name" : "Dr James A. Smith", - "id" : "Dr James A. Smith", "data" : [ [ "Perl 5", @@ -70,11 +73,12 @@ "Perl 6", 2 ] - ] + ], + "id" : "Dr James A. Smith" }, { - "name" : "Kivanc Yazan", "id" : "Kivanc Yazan", + "name" : "Kivanc Yazan", "data" : [ [ "Perl 5", @@ -83,15 +87,26 @@ ] }, { - "id" : "Maxim Kolodyazhny", - "name" : "Maxim Kolodyazhny", "data" : [ [ "Perl 5", 1 ] - ] + ], + "name" : "Maxim Kolodyazhny", + "id" : "Maxim Kolodyazhny" } ] + }, + "tooltip" : { + "followPointer" : 1, + "pointerFormat" : "{point.name}: {point.y:f}
", + "headerFormat" : "{series.name}
" + }, + "legend" : { + "enabled" : 0 + }, + "title" : { + "text" : "Perl Weekly Challenge - 004" } } diff --git a/stats/pwc-summary-1-30.json b/stats/pwc-summary-1-30.json index 7f484c7029..f793172d2e 100644 --- a/stats/pwc-summary-1-30.json +++ b/stats/pwc-summary-1-30.json @@ -1,16 +1,13 @@ { - "subtitle" : { - "text" : "[Champions: 30] Last updated at 2019-04-15 13:45:21 GMT" + "chart" : { + "type" : "column" }, "tooltip" : { "shared" : 1, "pointFormat" : "{series.name}: {point.y}
" }, - "yAxis" : { - "min" : 0, - "title" : { - "text" : "" - } + "title" : { + "text" : "Perl Weekly Challenge - 2019" }, "series" : [ { @@ -74,7 +71,7 @@ 0, 0, 2, - 2, + 3, 0, 0, 0, @@ -123,10 +120,13 @@ "stacking" : "percent" } }, - "title" : { - "text" : "Perl Weekly Challenge - 2019" + "yAxis" : { + "title" : { + "text" : "" + }, + "min" : 0 }, - "chart" : { - "type" : "column" + "subtitle" : { + "text" : "[Champions: 30] Last updated at 2019-04-15 14:42:47 GMT" } } diff --git a/stats/pwc-summary-31-60.json b/stats/pwc-summary-31-60.json index cd12e55843..cd98346340 100644 --- a/stats/pwc-summary-31-60.json +++ b/stats/pwc-summary-31-60.json @@ -2,48 +2,27 @@ "title" : { "text" : "Perl Weekly Challenge - 2019" }, + "tooltip" : { + "shared" : 1, + "pointFormat" : "{series.name}: {point.y}
" + }, "chart" : { "type" : "column" }, - "xAxis" : { - "categories" : [ - "Dr James A. Smith", - "Jeff", - "Jeremy Carman", - "Jim Bacon", - "JJ Merelo", - "Jo Christian Oterhals", - "Joelle Maslak", - "John Barrett", - "Juan Caballero", - "Khalid", - "Kian-Meng Ang", - "Kivanc Yazan", - "Lars Balker", - "Laurent Rosenfeld", - "Magnus Woldrich", - "Mark Senn", - "Martin Mugeni", - "Matt Latusek", - "Maxim Kolodyazhny", - "Michael Schaap", - "Neil Bowers", - "Nick Logan", - "Chenyf", - "Oleskii Tsvitenov", - "Ozzy", - "Pavel Jurca", - "Pete Houston", - "Philippe Bruhat", - "Prajith P", - "Robert Gratza" - ] + "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" : [ @@ -116,17 +95,38 @@ ] } ], - "subtitle" : { - "text" : "[Champions: 30] Last updated at 2019-04-15 13:45:21 GMT" - }, - "tooltip" : { - "pointFormat" : "{series.name}: {point.y}
", - "shared" : 1 - }, - "yAxis" : { - "title" : { - "text" : "" - }, - "min" : 0 + "xAxis" : { + "categories" : [ + "Dr James A. Smith", + "Jeff", + "Jeremy Carman", + "Jim Bacon", + "JJ Merelo", + "Jo Christian Oterhals", + "Joelle Maslak", + "John Barrett", + "Juan Caballero", + "Khalid", + "Kian-Meng Ang", + "Kivanc Yazan", + "Lars Balker", + "Laurent Rosenfeld", + "Magnus Woldrich", + "Mark Senn", + "Martin Mugeni", + "Matt Latusek", + "Maxim Kolodyazhny", + "Michael Schaap", + "Neil Bowers", + "Nick Logan", + "Chenyf", + "Oleskii Tsvitenov", + "Ozzy", + "Pavel Jurca", + "Pete Houston", + "Philippe Bruhat", + "Prajith P", + "Robert Gratza" + ] } } diff --git a/stats/pwc-summary-61-90.json b/stats/pwc-summary-61-90.json index fa35dea973..3d9c3fe5d1 100644 --- a/stats/pwc-summary-61-90.json +++ b/stats/pwc-summary-61-90.json @@ -1,6 +1,17 @@ { + "chart" : { + "type" : "column" + }, + "tooltip" : { + "pointFormat" : "{series.name}: {point.y}
", + "shared" : 1 + }, + "title" : { + "text" : "Perl Weekly Challenge - 2019" + }, "series" : [ { + "name" : "Perl 5", "data" : [ 4, 0, @@ -14,11 +25,9 @@ 2, 3, 1 - ], - "name" : "Perl 5" + ] }, { - "name" : "Perl 6", "data" : [ 4, 3, @@ -32,33 +41,10 @@ 0, 0, 0 - ] + ], + "name" : "Perl 6" } ], - "yAxis" : { - "title" : { - "text" : "" - }, - "min" : 0 - }, - "subtitle" : { - "text" : "[Champions: 12] Last updated at 2019-04-15 13:45:21 GMT" - }, - "tooltip" : { - "pointFormat" : "{series.name}: {point.y}
", - "shared" : 1 - }, - "chart" : { - "type" : "column" - }, - "title" : { - "text" : "Perl Weekly Challenge - 2019" - }, - "plotOptions" : { - "column" : { - "stacking" : "percent" - } - }, "xAxis" : { "categories" : [ "Ruben Westerberg", @@ -74,5 +60,19 @@ "Veesh Goldman", "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" : "" + } } } diff --git a/stats/pwc-summary.json b/stats/pwc-summary.json index c65b42c3a5..55d5fca900 100644 --- a/stats/pwc-summary.json +++ b/stats/pwc-summary.json @@ -2,8 +2,12 @@ "title" : { "text" : "Perl Weekly Challenge - 2019" }, + "tooltip" : { + "shared" : 1, + "pointFormat" : "{series.name}: {point.y}
" + }, "subtitle" : { - "text" : "[Champions: 72] Last updated at 2019-04-15 13:45:21 GMT" + "text" : "[Champions: 72] Last updated at 2019-04-15 14:42:47 GMT" }, "xAxis" : { "categories" : [ @@ -81,6 +85,11 @@ "William Gilmore" ] }, + "plotOptions" : { + "column" : { + "stacking" : "percent" + } + }, "series" : [ { "data" : [ @@ -160,7 +169,6 @@ "name" : "Perl 5" }, { - "name" : "Perl 6", "data" : [ 0, 0, @@ -185,7 +193,7 @@ 0, 0, 2, - 2, + 3, 0, 0, 0, @@ -234,25 +242,17 @@ 0, 0, 0 - ] + ], + "name" : "Perl 6" } ], - "tooltip" : { - "pointFormat" : "{series.name}: {point.y}
", - "shared" : 1 - }, - "plotOptions" : { - "column" : { - "stacking" : "percent" - } + "chart" : { + "type" : "column" }, "yAxis" : { "min" : 0, "title" : { "text" : "" } - }, - "chart" : { - "type" : "column" } } -- cgit From 591a110f8cf0134164bb347716349edb48d2fce4 Mon Sep 17 00:00:00 2001 From: Mohammad S Anwar Date: Mon, 15 Apr 2019 17:39:36 +0100 Subject: - Added solutions by Abigail. --- challenge-004/abigail/perl5/ch-1.pl | 1 + challenge-004/abigail/perl5/ch-2.pl | 26 +++++++ stats/pwc-current.json | 141 ++++++++++++++++++++---------------- stats/pwc-summary-1-30.json | 88 +++++++++++----------- stats/pwc-summary-31-60.json | 52 ++++++------- stats/pwc-summary-61-90.json | 42 +++++------ stats/pwc-summary.json | 42 +++++------ 7 files changed, 217 insertions(+), 175 deletions(-) create mode 100644 challenge-004/abigail/perl5/ch-1.pl create mode 100644 challenge-004/abigail/perl5/ch-2.pl 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 () { + 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,57 +1,16 @@ { - "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" : "{point.name}: {point.y:f}
", - "headerFormat" : "{series.name}
" + "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" : "{series.name}
", + "pointerFormat" : "{point.name}: {point.y:f}
" + }, + "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" : "{series.name}: {point.y}
" }, + "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" : "{series.name}: {point.y}
" - }, - "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" : "{series.name}: {point.y}
", + "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" : "{series.name}: {point.y}
", - "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" : "{series.name}: {point.y}
", + "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" : "{series.name}: {point.y}
" - }, - "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" : "{series.name}: {point.y}
" } } -- cgit From 892c19c426f1a8f551811647497db9acb81ed9eb Mon Sep 17 00:00:00 2001 From: Mohammad S Anwar Date: Mon, 15 Apr 2019 21:36:39 +0100 Subject: - Added solutions by Jo Christian Oterhals. --- challenge-004/jo-christian-oterhals/blog.txt | 1 + challenge-004/jo-christian-oterhals/perl5/ch-1.pl | 6 ++++++ challenge-004/jo-christian-oterhals/perl6/ch-1.p6 | 5 +++++ challenge-004/jo-christian-oterhals/perl6/ch-2.p6 | 17 +++++++++++++++++ 4 files changed, 29 insertions(+) create mode 100644 challenge-004/jo-christian-oterhals/blog.txt create mode 100644 challenge-004/jo-christian-oterhals/perl5/ch-1.pl create mode 100644 challenge-004/jo-christian-oterhals/perl6/ch-1.p6 create mode 100644 challenge-004/jo-christian-oterhals/perl6/ch-2.p6 diff --git a/challenge-004/jo-christian-oterhals/blog.txt b/challenge-004/jo-christian-oterhals/blog.txt new file mode 100644 index 0000000000..8a154b3848 --- /dev/null +++ b/challenge-004/jo-christian-oterhals/blog.txt @@ -0,0 +1 @@ +https://medium.com/@jcoterhals/perl-6-small-stuff-17-a-weekly-challenge-of-big-pis-bags-and-modules-6c6c0867cb0a diff --git a/challenge-004/jo-christian-oterhals/perl5/ch-1.pl b/challenge-004/jo-christian-oterhals/perl5/ch-1.pl new file mode 100644 index 0000000000..4ba99c8189 --- /dev/null +++ b/challenge-004/jo-christian-oterhals/perl5/ch-1.pl @@ -0,0 +1,6 @@ +#!/usr/bin/env perl + +use v5.18; +use Math::BigFloat 'bpi'; + +say bpi(-s $ARGV[0]); diff --git a/challenge-004/jo-christian-oterhals/perl6/ch-1.p6 b/challenge-004/jo-christian-oterhals/perl6/ch-1.p6 new file mode 100644 index 0000000000..97c5d21a65 --- /dev/null +++ b/challenge-004/jo-christian-oterhals/perl6/ch-1.p6 @@ -0,0 +1,5 @@ +#!/usr/bin/env perl6 + +use BigPI; + +say BigPI::pi $?FILE.IO.s; diff --git a/challenge-004/jo-christian-oterhals/perl6/ch-2.p6 b/challenge-004/jo-christian-oterhals/perl6/ch-2.p6 new file mode 100644 index 0000000000..09daf599ff --- /dev/null +++ b/challenge-004/jo-christian-oterhals/perl6/ch-2.p6 @@ -0,0 +1,17 @@ +#!/usr/bin/env perl6 + +my $letters = ( gather for 1..500 { take ('a'..'z').pick } ).BagHash; + +say ([+] $letters.values) ~ " letters matches..."; + +for "random-2000.dict".IO.lines.sort({ rand }) -> $word { + my $wbh = $word.lc.comb.BagHash; + if ($wbh (<=) $letters) { + $letters = $letters (-) $wbh; + say "\t" ~ $word; + } +} + +say ([+] $letters.values) ~ " letters remain."; + + -- cgit From 1c3bd5b76575eaecc235163752053d307f0d289d Mon Sep 17 00:00:00 2001 From: John Barrett Date: Mon, 15 Apr 2019 21:36:59 +0100 Subject: Print pi to $filesize digits --- challenge-004/john-barrett/perl5/ch-1.pl | 1 + 1 file changed, 1 insertion(+) create mode 100644 challenge-004/john-barrett/perl5/ch-1.pl diff --git a/challenge-004/john-barrett/perl5/ch-1.pl b/challenge-004/john-barrett/perl5/ch-1.pl new file mode 100644 index 0000000000..51356fba61 --- /dev/null +++ b/challenge-004/john-barrett/perl5/ch-1.pl @@ -0,0 +1 @@ +printf'%.0'.((stat'ch-1.pl')[7]-1).'f',pi; -- cgit From c61d4a488e56c01f5e77aae2fb4f7858e535ec1c Mon Sep 17 00:00:00 2001 From: Mohammad S Anwar Date: Mon, 15 Apr 2019 21:38:28 +0100 Subject: - Updated chart stats. --- stats/pwc-current.json | 109 +++++++++++++++++++++++++------------------ stats/pwc-summary-1-30.json | 86 +++++++++++++++++----------------- stats/pwc-summary-31-60.json | 36 +++++++------- stats/pwc-summary-61-90.json | 56 +++++++++++----------- stats/pwc-summary.json | 42 ++++++++--------- 5 files changed, 174 insertions(+), 155 deletions(-) diff --git a/stats/pwc-current.json b/stats/pwc-current.json index e5f454f450..e27b20435a 100644 --- a/stats/pwc-current.json +++ b/stats/pwc-current.json @@ -1,15 +1,37 @@ { + "tooltip" : { + "followPointer" : 1, + "headerFormat" : "{series.name}
", + "pointerFormat" : "{point.name}: {point.y:f}
" + }, + "yAxis" : { + "title" : { + "text" : "Total Solutions" + } + }, + "title" : { + "text" : "Perl Weekly Challenge - 004" + }, + "chart" : { + "type" : "column" + }, + "subtitle" : { + "text" : "[Champions: 6] Last updated at 2019-04-15 20:37:27 GMT" + }, + "legend" : { + "enabled" : 0 + }, "drilldown" : { "series" : [ { + "id" : "Abigail", "name" : "Abigail", "data" : [ [ "Perl 5", 2 ] - ], - "id" : "Abigail" + ] }, { "id" : "Francis Whittle", @@ -22,8 +44,8 @@ "name" : "Francis Whittle" }, { - "name" : "Dr James A. Smith", "id" : "Dr James A. Smith", + "name" : "Dr James A. Smith", "data" : [ [ "Perl 5", @@ -36,92 +58,89 @@ ] }, { - "id" : "Kivanc Yazan", + "name" : "Jo Christian Oterhals", "data" : [ [ "Perl 5", 1 + ], + [ + "Perl 6", + 2 ] ], - "name" : "Kivanc Yazan" + "id" : "Jo Christian Oterhals" }, { + "name" : "Kivanc Yazan", "data" : [ [ "Perl 5", 1 ] ], + "id" : "Kivanc Yazan" + }, + { "id" : "Maxim Kolodyazhny", - "name" : "Maxim Kolodyazhny" + "name" : "Maxim Kolodyazhny", + "data" : [ + [ + "Perl 5", + 1 + ] + ] } ] }, - "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 - }, - "xAxis" : { - "type" : "category" - }, "series" : [ { - "colorByPoint" : 1, - "name" : "Champions", "data" : [ { + "name" : "Abigail", "drilldown" : "Abigail", - "y" : 2, - "name" : "Abigail" + "y" : 2 }, { + "y" : 1, "drilldown" : "Francis Whittle", - "name" : "Francis Whittle", - "y" : 1 + "name" : "Francis Whittle" }, { - "drilldown" : "Dr James A. Smith", "y" : 4, + "drilldown" : "Dr James A. Smith", "name" : "Dr James A. Smith" }, { + "drilldown" : "Jo Christian Oterhals", + "name" : "Jo Christian Oterhals", + "y" : 3 + }, + { + "y" : 1, "drilldown" : "Kivanc Yazan", - "name" : "Kivanc Yazan", - "y" : 1 + "name" : "Kivanc Yazan" }, { + "y" : 1, "drilldown" : "Maxim Kolodyazhny", - "name" : "Maxim Kolodyazhny", - "y" : 1 + "name" : "Maxim Kolodyazhny" } - ] + ], + "colorByPoint" : 1, + "name" : "Champions" } ], - "tooltip" : { - "followPointer" : 1, - "headerFormat" : "{series.name}
", - "pointerFormat" : "{point.name}: {point.y:f}
" - }, "plotOptions" : { "series" : { - "borderWidth" : 0, "dataLabels" : { "enabled" : 1, "format" : "{point.y}" - } + }, + "borderWidth" : 0 } + }, + "xAxis" : { + "type" : "category" } } diff --git a/stats/pwc-summary-1-30.json b/stats/pwc-summary-1-30.json index a42a3b3c61..97bcd7b44d 100644 --- a/stats/pwc-summary-1-30.json +++ b/stats/pwc-summary-1-30.json @@ -5,47 +5,6 @@ "text" : "" } }, - "tooltip" : { - "shared" : 1, - "pointFormat" : "{series.name}: {point.y}
" - }, - "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" : [ @@ -118,14 +77,55 @@ ] } ], - "subtitle" : { - "text" : "[Champions: 30] Last updated at 2019-04-15 16:39:07 GMT" + "title" : { + "text" : "Perl Weekly Challenge - 2019" }, "plotOptions" : { "column" : { "stacking" : "percent" } }, + "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 20:37:28 GMT" + }, + "tooltip" : { + "pointFormat" : "{series.name}: {point.y}
", + "shared" : 1 + }, "chart" : { "type" : "column" } diff --git a/stats/pwc-summary-31-60.json b/stats/pwc-summary-31-60.json index 9b03d96812..0dab34785d 100644 --- a/stats/pwc-summary-31-60.json +++ b/stats/pwc-summary-31-60.json @@ -1,4 +1,14 @@ { + "subtitle" : { + "text" : "[Champions: 30] Last updated at 2019-04-15 20:37:28 GMT" + }, + "chart" : { + "type" : "column" + }, + "tooltip" : { + "pointFormat" : "{series.name}: {point.y}
", + "shared" : 1 + }, "series" : [ { "data" : [ @@ -7,7 +17,7 @@ 2, 1, 0, - 4, + 5, 4, 3, 2, @@ -42,7 +52,7 @@ 1, 0, 1, - 4, + 6, 6, 0, 0, @@ -71,17 +81,17 @@ "name" : "Perl 6" } ], + "yAxis" : { + "title" : { + "text" : "" + }, + "min" : 0 + }, "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", @@ -116,17 +126,7 @@ "Robert Gratza" ] }, - "tooltip" : { - "pointFormat" : "{series.name}: {point.y}
", - "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 a766893a02..f9d8e1ada5 100644 --- a/stats/pwc-summary-61-90.json +++ b/stats/pwc-summary-61-90.json @@ -4,14 +4,28 @@ "stacking" : "percent" } }, - "chart" : { - "type" : "column" + "xAxis" : { + "categories" : [ + "Ruben Westerberg", + "Sean Meininger", + "Sergio Iglesias", + "Simon Proctor", + "Simon Reinhardt", + "Steve Rogerson", + "Steven Lembark", + "Steven Wilson", + "Tiago Stock", + "Tore Andersson", + "Veesh Goldman", + "William Gilmore" + ] }, - "subtitle" : { - "text" : "[Champions: 12] Last updated at 2019-04-15 16:39:07 GMT" + "title" : { + "text" : "Perl Weekly Challenge - 2019" }, "series" : [ { + "name" : "Perl 5", "data" : [ 4, 0, @@ -25,10 +39,10 @@ 2, 3, 1 - ], - "name" : "Perl 5" + ] }, { + "name" : "Perl 6", "data" : [ 4, 3, @@ -42,8 +56,7 @@ 0, 0, 0 - ], - "name" : "Perl 6" + ] } ], "yAxis" : { @@ -52,27 +65,14 @@ "text" : "" } }, - "title" : { - "text" : "Perl Weekly Challenge - 2019" - }, - "xAxis" : { - "categories" : [ - "Ruben Westerberg", - "Sean Meininger", - "Sergio Iglesias", - "Simon Proctor", - "Simon Reinhardt", - "Steve Rogerson", - "Steven Lembark", - "Steven Wilson", - "Tiago Stock", - "Tore Andersson", - "Veesh Goldman", - "William Gilmore" - ] + "chart" : { + "type" : "column" }, "tooltip" : { - "pointFormat" : "{series.name}: {point.y}
", - "shared" : 1 + "shared" : 1, + "pointFormat" : "{series.name}: {point.y}
" + }, + "subtitle" : { + "text" : "[Champions: 12] Last updated at 2019-04-15 20:37:28 GMT" } } diff --git a/stats/pwc-summary.json b/stats/pwc-summary.json index 94d9a1d50b..a6f6ff3e25 100644 --- a/stats/pwc-summary.json +++ b/stats/pwc-summary.json @@ -1,19 +1,4 @@ { - "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" - }, - "chart" : { - "type" : "column" - }, "xAxis" : { "categories" : [ "Abigail", @@ -92,7 +77,6 @@ }, "series" : [ { - "name" : "Perl 5", "data" : [ 2, 6, @@ -129,7 +113,7 @@ 2, 1, 0, - 4, + 5, 4, 3, 2, @@ -166,9 +150,11 @@ 2, 3, 1 - ] + ], + "name" : "Perl 5" }, { + "name" : "Perl 6", "data" : [ 0, 0, @@ -205,7 +191,7 @@ 1, 0, 1, - 4, + 6, 6, 0, 0, @@ -242,8 +228,7 @@ 0, 0, 0 - ], - "name" : "Perl 6" + ] } ], "plotOptions" : { @@ -251,8 +236,23 @@ "stacking" : "percent" } }, + "yAxis" : { + "title" : { + "text" : "" + }, + "min" : 0 + }, "tooltip" : { "shared" : 1, "pointFormat" : "{series.name}: {point.y}
" + }, + "subtitle" : { + "text" : "[Champions: 72] Last updated at 2019-04-15 20:37:27 GMT" + }, + "chart" : { + "type" : "column" + }, + "title" : { + "text" : "Perl Weekly Challenge - 2019" } } -- cgit From 60e3e497a47959c2e13f900379a06bb133d7bb32 Mon Sep 17 00:00:00 2001 From: John Barrett Date: Mon, 15 Apr 2019 21:44:25 +0100 Subject: Challenge 4 part 1 --- challenge-004/john-barrett/perl5/README.md | 8 ++++++++ 1 file changed, 8 insertions(+) create mode 100644 challenge-004/john-barrett/perl5/README.md diff --git a/challenge-004/john-barrett/perl5/README.md b/challenge-004/john-barrett/perl5/README.md new file mode 100644 index 0000000000..9a98597b12 --- /dev/null +++ b/challenge-004/john-barrett/perl5/README.md @@ -0,0 +1,8 @@ +# How I cheated this week... + +## Part 1: + +You need to run... + +`$ perl -MMath::Trig ch-1.pl` + -- cgit From 1a973fe01229adfce9a048893fb894030c4ac2c4 Mon Sep 17 00:00:00 2001 From: John Barrett Date: Mon, 15 Apr 2019 22:09:57 +0100 Subject: Challenge 4 part 2 --- challenge-004/john-barrett/perl5/ch-1.pl | 0 challenge-004/john-barrett/perl5/ch-2.pl | 31 +++++++++++++++++++++++++++++++ 2 files changed, 31 insertions(+) mode change 100644 => 100755 challenge-004/john-barrett/perl5/ch-1.pl create mode 100755 challenge-004/john-barrett/perl5/ch-2.pl diff --git a/challenge-004/john-barrett/perl5/ch-1.pl b/challenge-004/john-barrett/perl5/ch-1.pl old mode 100644 new mode 100755 diff --git a/challenge-004/john-barrett/perl5/ch-2.pl b/challenge-004/john-barrett/perl5/ch-2.pl new file mode 100755 index 0000000000..840eeba777 --- /dev/null +++ b/challenge-004/john-barrett/perl5/ch-2.pl @@ -0,0 +1,31 @@ +#!/usr/bin/env perl + +use strict; +use warnings; + +print "Usage: $0 letters to find in dict\n" and exit unless @ARGV; + +my $fn = '/usr/share/dict/words'; +my $findletters; +$findletters->{$_}++ for map { map { lc } split '' } @ARGV; + +my @found; + +open my $fh, '<', $fn; + +WORD: while ( my $word = <$fh> ) { + chomp $word; + my $wordletters; + $wordletters->{$_}++ for map { lc } split '', $word; + # Change this to 'keys %{ $findletters }' to find + # all words containing the specified letters. + # This finds all words composed of the specified letters + # which I think fulfills "you don’t have to use all the letters" + for my $letter ( keys %{ $wordletters } ) { + no warnings 'uninitialized'; + next WORD unless $wordletters->{ $letter } <= $findletters->{ $letter }; + } + push @found, $word; +} + +print "$_\n" for @found; -- cgit From 29a2314ec091e02a4c3a02cc5d54e7dc7055a440 Mon Sep 17 00:00:00 2001 From: John Barrett Date: Mon, 15 Apr 2019 22:22:09 +0100 Subject: Remove hardcoded path --- challenge-004/john-barrett/perl5/ch-1.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/challenge-004/john-barrett/perl5/ch-1.pl b/challenge-004/john-barrett/perl5/ch-1.pl index 51356fba61..945ae5ca13 100755 --- a/challenge-004/john-barrett/perl5/ch-1.pl +++ b/challenge-004/john-barrett/perl5/ch-1.pl @@ -1 +1 @@ -printf'%.0'.((stat'ch-1.pl')[7]-1).'f',pi; +printf'%.0'.((stat$0)[7]-1).'f',pi; -- cgit From b60ea1e4d152a0c948678b504c5796646548ce53 Mon Sep 17 00:00:00 2001 From: Mohammad S Anwar Date: Mon, 15 Apr 2019 22:36:18 +0100 Subject: - Updated chart stats. --- stats/pwc-current.json | 109 ++++++++++++++++++++++++------------------ stats/pwc-summary-1-30.json | 110 +++++++++++++++++++++---------------------- stats/pwc-summary-31-60.json | 108 +++++++++++++++++++++--------------------- stats/pwc-summary-61-90.json | 66 +++++++++++++------------- stats/pwc-summary.json | 44 ++++++++--------- 5 files changed, 226 insertions(+), 211 deletions(-) diff --git a/stats/pwc-current.json b/stats/pwc-current.json index e27b20435a..b6dc768a39 100644 --- a/stats/pwc-current.json +++ b/stats/pwc-current.json @@ -1,51 +1,30 @@ { - "tooltip" : { - "followPointer" : 1, - "headerFormat" : "{series.name}
", - "pointerFormat" : "{point.name}: {point.y:f}
" - }, - "yAxis" : { - "title" : { - "text" : "Total Solutions" - } - }, - "title" : { - "text" : "Perl Weekly Challenge - 004" - }, - "chart" : { - "type" : "column" - }, "subtitle" : { - "text" : "[Champions: 6] Last updated at 2019-04-15 20:37:27 GMT" - }, - "legend" : { - "enabled" : 0 + "text" : "[Champions: 7] Last updated at 2019-04-15 21:35:41 GMT" }, "drilldown" : { "series" : [ { - "id" : "Abigail", - "name" : "Abigail", "data" : [ [ "Perl 5", 2 ] - ] + ], + "name" : "Abigail", + "id" : "Abigail" }, { "id" : "Francis Whittle", + "name" : "Francis Whittle", "data" : [ [ "Perl 6", 1 ] - ], - "name" : "Francis Whittle" + ] }, { - "id" : "Dr James A. Smith", - "name" : "Dr James A. Smith", "data" : [ [ "Perl 5", @@ -55,10 +34,11 @@ "Perl 6", 2 ] - ] + ], + "id" : "Dr James A. Smith", + "name" : "Dr James A. Smith" }, { - "name" : "Jo Christian Oterhals", "data" : [ [ "Perl 5", @@ -69,17 +49,28 @@ 2 ] ], - "id" : "Jo Christian Oterhals" + "id" : "Jo Christian Oterhals", + "name" : "Jo Christian Oterhals" + }, + { + "name" : "John Barrett", + "id" : "John Barrett", + "data" : [ + [ + "Perl 5", + 2 + ] + ] }, { + "id" : "Kivanc Yazan", "name" : "Kivanc Yazan", "data" : [ [ "Perl 5", 1 ] - ], - "id" : "Kivanc Yazan" + ] }, { "id" : "Maxim Kolodyazhny", @@ -93,29 +84,58 @@ } ] }, + "tooltip" : { + "pointerFormat" : "{point.name}: {point.y:f}
", + "headerFormat" : "{series.name}
", + "followPointer" : 1 + }, + "yAxis" : { + "title" : { + "text" : "Total Solutions" + } + }, + "xAxis" : { + "type" : "category" + }, + "legend" : { + "enabled" : 0 + }, + "title" : { + "text" : "Perl Weekly Challenge - 004" + }, + "chart" : { + "type" : "column" + }, "series" : [ { + "name" : "Champions", + "colorByPoint" : 1, "data" : [ { - "name" : "Abigail", "drilldown" : "Abigail", + "name" : "Abigail", "y" : 2 }, { - "y" : 1, "drilldown" : "Francis Whittle", - "name" : "Francis Whittle" + "name" : "Francis Whittle", + "y" : 1 }, { - "y" : 4, + "name" : "Dr James A. Smith", "drilldown" : "Dr James A. Smith", - "name" : "Dr James A. Smith" + "y" : 4 }, { "drilldown" : "Jo Christian Oterhals", "name" : "Jo Christian Oterhals", "y" : 3 }, + { + "y" : 2, + "drilldown" : "John Barrett", + "name" : "John Barrett" + }, { "y" : 1, "drilldown" : "Kivanc Yazan", @@ -126,21 +146,16 @@ "drilldown" : "Maxim Kolodyazhny", "name" : "Maxim Kolodyazhny" } - ], - "colorByPoint" : 1, - "name" : "Champions" + ] } ], "plotOptions" : { "series" : { + "borderWidth" : 0, "dataLabels" : { - "enabled" : 1, - "format" : "{point.y}" - }, - "borderWidth" : 0 + "format" : "{point.y}", + "enabled" : 1 + } } - }, - "xAxis" : { - "type" : "category" } } diff --git a/stats/pwc-summary-1-30.json b/stats/pwc-summary-1-30.json index 97bcd7b44d..8fb33697a3 100644 --- a/stats/pwc-summary-1-30.json +++ b/stats/pwc-summary-1-30.json @@ -1,10 +1,62 @@ { + "plotOptions" : { + "column" : { + "stacking" : "percent" + } + }, + "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" + }, + "chart" : { + "type" : "column" + }, "yAxis" : { "min" : 0, "title" : { "text" : "" } }, + "subtitle" : { + "text" : "[Champions: 30] Last updated at 2019-04-15 21:35:41 GMT" + }, + "tooltip" : { + "shared" : 1, + "pointFormat" : "{series.name}: {point.y}
" + }, "series" : [ { "data" : [ @@ -42,7 +94,6 @@ "name" : "Perl 5" }, { - "name" : "Perl 6", "data" : [ 0, 0, @@ -74,59 +125,8 @@ 0, 0, 6 - ] - } - ], - "title" : { - "text" : "Perl Weekly Challenge - 2019" - }, - "plotOptions" : { - "column" : { - "stacking" : "percent" + ], + "name" : "Perl 6" } - }, - "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 20:37:28 GMT" - }, - "tooltip" : { - "pointFormat" : "{series.name}: {point.y}
", - "shared" : 1 - }, - "chart" : { - "type" : "column" - } + ] } diff --git a/stats/pwc-summary-31-60.json b/stats/pwc-summary-31-60.json index 0dab34785d..d23d7deae6 100644 --- a/stats/pwc-summary-31-60.json +++ b/stats/pwc-summary-31-60.json @@ -1,16 +1,62 @@ { - "subtitle" : { - "text" : "[Champions: 30] Last updated at 2019-04-15 20:37:28 GMT" + "yAxis" : { + "title" : { + "text" : "" + }, + "min" : 0 }, "chart" : { "type" : "column" }, + "xAxis" : { + "categories" : [ + "Dr James A. Smith", + "Jeff", + "Jeremy Carman", + "Jim Bacon", + "JJ Merelo", + "Jo Christian Oterhals", + "Joelle Maslak", + "John Barrett", + "Juan Caballero", + "Khalid", + "Kian-Meng Ang", + "Kivanc Yazan", + "Lars Balker", + "Laurent Rosenfeld", + "Magnus Woldrich", + "Mark Senn", + "Martin Mugeni", + "Matt Latusek", + "Maxim Kolodyazhny", + "Michael Schaap", + "Neil Bowers", + "Nick Logan", + "Chenyf", + "Oleskii Tsvitenov", + "Ozzy", + "Pavel Jurca", + "Pete Houston", + "Philippe Bruhat", + "Prajith P", + "Robert Gratza" + ] + }, + "title" : { + "text" : "Perl Weekly Challenge - 2019" + }, + "plotOptions" : { + "column" : { + "stacking" : "percent" + } + }, "tooltip" : { "pointFormat" : "{series.name}: {point.y}
", "shared" : 1 }, "series" : [ { + "name" : "Perl 5", "data" : [ 8, 2, @@ -19,7 +65,7 @@ 0, 5, 4, - 3, + 5, 2, 4, 6, @@ -42,10 +88,10 @@ 4, 2, 2 - ], - "name" : "Perl 5" + ] }, { + "name" : "Perl 6", "data" : [ 8, 0, @@ -77,56 +123,10 @@ 0, 0, 2 - ], - "name" : "Perl 6" + ] } ], - "yAxis" : { - "title" : { - "text" : "" - }, - "min" : 0 - }, - "plotOptions" : { - "column" : { - "stacking" : "percent" - } - }, - "xAxis" : { - "categories" : [ - "Dr James A. Smith", - "Jeff", - "Jeremy Carman", - "Jim Bacon", - "JJ Merelo", - "Jo Christian Oterhals", - "Joelle Maslak", - "John Barrett", - "Juan Caballero", - "Khalid", - "Kian-Meng Ang", - "Kivanc Yazan", - "Lars Balker", - "Laurent Rosenfeld", - "Magnus Woldrich", - "Mark Senn", - "Martin Mugeni", - "Matt Latusek", - "Maxim Kolodyazhny", - "Michael Schaap", - "Neil Bowers", - "Nick Logan", - "Chenyf", - "Oleskii Tsvitenov", - "Ozzy", - "Pavel Jurca", - "Pete Houston", - "Philippe Bruhat", - "Prajith P", - "Robert Gratza" - ] - }, - "title" : { - "text" : "Perl Weekly Challenge - 2019" + "subtitle" : { + "text" : "[Champions: 30] Last updated at 2019-04-15 21:35:41 GMT" } } diff --git a/stats/pwc-summary-61-90.json b/stats/pwc-summary-61-90.json index f9d8e1ada5..f9898682a3 100644 --- a/stats/pwc-summary-61-90.json +++ b/stats/pwc-summary-61-90.json @@ -1,27 +1,6 @@ { - "plotOptions" : { - "column" : { - "stacking" : "percent" - } - }, - "xAxis" : { - "categories" : [ - "Ruben Westerberg", - "Sean Meininger", - "Sergio Iglesias", - "Simon Proctor", - "Simon Reinhardt", - "Steve Rogerson", - "Steven Lembark", - "Steven Wilson", - "Tiago Stock", - "Tore Andersson", - "Veesh Goldman", - "William Gilmore" - ] - }, - "title" : { - "text" : "Perl Weekly Challenge - 2019" + "subtitle" : { + "text" : "[Champions: 12] Last updated at 2019-04-15 21:35:41 GMT" }, "series" : [ { @@ -59,20 +38,41 @@ ] } ], - "yAxis" : { - "min" : 0, - "title" : { - "text" : "" + "tooltip" : { + "shared" : 1, + "pointFormat" : "{series.name}: {point.y}
" + }, + "plotOptions" : { + "column" : { + "stacking" : "percent" } }, + "xAxis" : { + "categories" : [ + "Ruben Westerberg", + "Sean Meininger", + "Sergio Iglesias", + "Simon Proctor", + "Simon Reinhardt", + "Steve Rogerson", + "Steven Lembark", + "Steven Wilson", + "Tiago Stock", + "Tore Andersson", + "Veesh Goldman", + "William Gilmore" + ] + }, + "title" : { + "text" : "Perl Weekly Challenge - 2019" + }, "chart" : { "type" : "column" }, - "tooltip" : { - "shared" : 1, - "pointFormat" : "{series.name}: {point.y}
" - }, - "subtitle" : { - "text" : "[Champions: 12] Last updated at 2019-04-15 20:37:28 GMT" + "yAxis" : { + "min" : 0, + "title" : { + "text" : "" + } } } diff --git a/stats/pwc-summary.json b/stats/pwc-summary.json index a6f6ff3e25..25c43e5273 100644 --- a/stats/pwc-summary.json +++ b/stats/pwc-summary.json @@ -1,4 +1,7 @@ { + "subtitle" : { + "text" : "[Champions: 72] Last updated at 2019-04-15 21:35:41 GMT" + }, "xAxis" : { "categories" : [ "Abigail", @@ -75,8 +78,25 @@ "William Gilmore" ] }, + "yAxis" : { + "title" : { + "text" : "" + }, + "min" : 0 + }, + "tooltip" : { + "pointFormat" : "{series.name}: {point.y}
", + "shared" : 1 + }, + "chart" : { + "type" : "column" + }, + "title" : { + "text" : "Perl Weekly Challenge - 2019" + }, "series" : [ { + "name" : "Perl 5", "data" : [ 2, 6, @@ -115,7 +135,7 @@ 0, 5, 4, - 3, + 5, 2, 4, 6, @@ -150,8 +170,7 @@ 2, 3, 1 - ], - "name" : "Perl 5" + ] }, { "name" : "Perl 6", @@ -235,24 +254,5 @@ "column" : { "stacking" : "percent" } - }, - "yAxis" : { - "title" : { - "text" : "" - }, - "min" : 0 - }, - "tooltip" : { - "shared" : 1, - "pointFormat" : "{series.name}: {point.y}
" - }, - "subtitle" : { - "text" : "[Champions: 72] Last updated at 2019-04-15 20:37:27 GMT" - }, - "chart" : { - "type" : "column" - }, - "title" : { - "text" : "Perl Weekly Challenge - 2019" } } -- cgit From 54e320fd6e41de9ce1ddd9441924ad37eb245206 Mon Sep 17 00:00:00 2001 From: Mohammad S Anwar Date: Mon, 15 Apr 2019 23:57:12 +0100 Subject: - Added solutions by Matt Latusek. --- challenge-004/matt-latusek/perl5/ch-1.pl | 0 challenge-004/matt-latusek/perl5/ch-2.pl | 23 +++++++++++++++++++++++ 2 files changed, 23 insertions(+) create mode 100755 challenge-004/matt-latusek