diff options
| -rw-r--r-- | challenge-085/pete-houston/perl/ch-1.pl | 47 | ||||
| -rw-r--r-- | challenge-085/pete-houston/perl/ch-2.pl | 32 | ||||
| -rw-r--r-- | stats/pwc-current.json | 509 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown-summary.json | 66 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown.json | 640 | ||||
| -rw-r--r-- | stats/pwc-leaders.json | 394 | ||||
| -rw-r--r-- | stats/pwc-summary-1-30.json | 112 | ||||
| -rw-r--r-- | stats/pwc-summary-121-150.json | 28 | ||||
| -rw-r--r-- | stats/pwc-summary-151-180.json | 26 | ||||
| -rw-r--r-- | stats/pwc-summary-181-210.json | 22 | ||||
| -rw-r--r-- | stats/pwc-summary-31-60.json | 96 | ||||
| -rw-r--r-- | stats/pwc-summary-61-90.json | 20 | ||||
| -rw-r--r-- | stats/pwc-summary-91-120.json | 98 | ||||
| -rw-r--r-- | stats/pwc-summary.json | 34 |
14 files changed, 1109 insertions, 1015 deletions
diff --git a/challenge-085/pete-houston/perl/ch-1.pl b/challenge-085/pete-houston/perl/ch-1.pl new file mode 100644 index 0000000000..2647337677 --- /dev/null +++ b/challenge-085/pete-houston/perl/ch-1.pl @@ -0,0 +1,47 @@ +#!/usr/bin/env perl +#=============================================================================== +# +# FILE: 8501.pl +# +# USAGE: ./8501.pl N1 N2 ... +# +# DESCRIPTION: Given an array of positive floats determine if a sum +# of any three of them may fall between 1 and 2 +# +# AUTHOR: Pete Houston (pete), cpan@openstrike.co.uk +# ORGANIZATION: Openstrike +# VERSION: 1.0 +# CREATED: 04/11/20 +#=============================================================================== + +use strict; +use warnings; + +my $ge = 1; +my $lt = 2; +my @valid = grep { $_ < $lt } @ARGV; +if ($#valid < 2) { + print "0\n"; + exit; +} + +find_sum (3, $ge, $lt, @valid); +print "0\n"; + +sub find_sum { + my ($count, $ge, $lt, @num) = @_; + if ($count < 2) { + my $res = grep { $_ >= $ge && $_ < $lt } @num; + if ($res) { + print "1\n"; + exit; + } + return; + } + for my $i (0 .. $#num) { + my $diff = $num[$i]; + my @new = @num; + splice (@new, $i, 1); + find_sum ($count - 1, $ge - $diff, $lt - $diff, @new); + } +} diff --git a/challenge-085/pete-houston/perl/ch-2.pl b/challenge-085/pete-houston/perl/ch-2.pl new file mode 100644 index 0000000000..e6dfb242d7 --- /dev/null +++ b/challenge-085/pete-houston/perl/ch-2.pl @@ -0,0 +1,32 @@ +#!/usr/bin/env perl +#=============================================================================== +# +# FILE: 8502.pl +# +# USAGE: ./8502.pl N +# +# DESCRIPTION: Determine if whole number N can be expressed as an integer power +# +# REQUIREMENTS: Math::GMP +# NOTES: Gives details of which root and power match +# AUTHOR: Pete Houston (pete), cpan@openstrike.co.uk +# ORGANIZATION: Openstrike +# VERSION: 1.0 +# CREATED: 04/11/20 +#=============================================================================== + +use strict; +use warnings; + +use Math::GMP; + +my $target = Math::GMP->new (shift @ARGV); +for my $power (2 .. $target) { + my ($root, $rem) = $target->brootrem ($power); + unless ($rem) { + print "$root ** $power = $target\n1\n"; + exit; + } + last if $root < 2; +} +print "0\n"; diff --git a/stats/pwc-current.json b/stats/pwc-current.json index 908885bf61..bf0230bb81 100644 --- a/stats/pwc-current.json +++ b/stats/pwc-current.json @@ -1,24 +1,204 @@ { - "plotOptions" : { - "series" : { - "borderWidth" : 0, - "dataLabels" : { - "format" : "{point.y}", - "enabled" : 1 - } + "yAxis" : { + "title" : { + "text" : "Total Solutions" } }, + "series" : [ + { + "colorByPoint" : 1, + "name" : "Perl Weekly Challenge - 085", + "data" : [ + { + "name" : "Abigail", + "y" : 2, + "drilldown" : "Abigail" + }, + { + "drilldown" : "Andrew Shitov", + "y" : 3, + "name" : "Andrew Shitov" + }, + { + "y" : 5, + "drilldown" : "Arne Sommer", + "name" : "Arne Sommer" + }, + { + "drilldown" : "Athanasius", + "y" : 4, + "name" : "Athanasius" + }, + { + "name" : "Cheok-Yin Fung", + "y" : 1, + "drilldown" : "Cheok-Yin Fung" + }, + { + "drilldown" : "Colin Crain", + "y" : 1, + "name" : "Colin Crain" + }, + { + "name" : "Cristina Heredia", + "drilldown" : "Cristina Heredia", + "y" : 2 + }, + { + "name" : "E. Choroba", + "drilldown" : "E. Choroba", + "y" : 2 + }, + { + "name" : "Feng Chang", + "y" : 2, + "drilldown" : "Feng Chang" + }, + { + "y" : 4, + "drilldown" : "Flavio Poletti", + "name" : "Flavio Poletti" + }, + { + "name" : "James Smith", + "y" : 2, + "drilldown" : "James Smith" + }, + { + "name" : "Jan Krnavek", + "y" : 2, + "drilldown" : "Jan Krnavek" + }, + { + "name" : "Jorg Sommrey", + "y" : 3, + "drilldown" : "Jorg Sommrey" + }, + { + "drilldown" : "Julio de Castro", + "y" : 4, + "name" : "Julio de Castro" + }, + { + "y" : 2, + "drilldown" : "Kang-min Liu", + "name" : "Kang-min Liu" + }, + { + "name" : "Lars Thegler", + "y" : 2, + "drilldown" : "Lars Thegler" + }, + { + "name" : "Laurent Rosenfeld", + "y" : 5, + "drilldown" : "Laurent Rosenfeld" + }, + { + "y" : 2, + "drilldown" : "Lubos Kolouch", + "name" : "Lubos Kolouch" + }, + { + "drilldown" : "Mark Anderson", + "y" : 2, + "name" : "Mark Anderson" + }, + { + "name" : "Myoungjin Jeon", + "y" : 6, + "drilldown" : "Myoungjin Jeon" + }, + { + "y" : 2, + "drilldown" : "Niels van Dijke", + "name" : "Niels van Dijke" + }, + { + "y" : 2, + "drilldown" : "Nuno Vieira", + "name" : "Nuno Vieira" + }, + { + "name" : "Pete Houston", + "y" : 2, + "drilldown" : "Pete Houston" + }, + { + "drilldown" : "Roger Bell_West", + "y" : 5, + "name" : "Roger Bell_West" + }, + { + "y" : 3, + "drilldown" : "Samir Parikh", + "name" : "Samir Parikh" + }, + { + "y" : 2, + "drilldown" : "Shawn Wagner", + "name" : "Shawn Wagner" + }, + { + "y" : 3, + "drilldown" : "Simon Green", + "name" : "Simon Green" + }, + { + "y" : 2, + "drilldown" : "Simon Proctor", + "name" : "Simon Proctor" + }, + { + "drilldown" : "Steve Rogerson", + "y" : 2, + "name" : "Steve Rogerson" + }, + { + "name" : "Stuart Little", + "drilldown" : "Stuart Little", + "y" : 2 + }, + { + "drilldown" : "Ulrich Rieke", + "y" : 4, + "name" : "Ulrich Rieke" + }, + { + "y" : 2, + "drilldown" : "Walt Mankowski", + "name" : "Walt Mankowski" + }, + { + "name" : "Wanderdoc", + "y" : 2, + "drilldown" : "Wanderdoc" + } + ] + } + ], + "title" : { + "text" : "Perl Weekly Challenge - 085" + }, + "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: 33] Last updated at 2020-11-08 17:38:52 GMT" + }, "drilldown" : { "series" : [ { - "id" : "Abigail", - "name" : "Abigail", "data" : [ [ "Perl", 2 ] - ] + ], + "name" : "Abigail", + "id" : "Abigail" }, { "data" : [ @@ -35,6 +215,7 @@ "id" : "Andrew Shitov" }, { + "name" : "Arne Sommer", "id" : "Arne Sommer", "data" : [ [ @@ -49,11 +230,9 @@ "Blog", 1 ] - ], - "name" : "Arne Sommer" + ] }, { - "name" : "Athanasius", "data" : [ [ "Perl", @@ -64,17 +243,18 @@ 2 ] ], + "name" : "Athanasius", "id" : "Athanasius" }, { "id" : "Cheok-Yin Fung", + "name" : "Cheok-Yin Fung", "data" : [ [ "Perl", 1 ] - ], - "name" : "Cheok-Yin Fung" + ] }, { "data" : [ @@ -87,14 +267,14 @@ "id" : "Colin Crain" }, { - "id" : "Cristina Heredia", "data" : [ [ "Perl", 2 ] ], - "name" : "Cristina Heredia" + "name" : "Cristina Heredia", + "id" : "Cristina Heredia" }, { "data" : [ @@ -107,18 +287,16 @@ "id" : "E. Choroba" }, { - "name" : "Feng Chang", "data" : [ [ "Raku", 2 ] ], + "name" : "Feng Chang", "id" : "Feng Chang" }, { - "id" : "Flavio Poletti", - "name" : "Flavio Poletti", "data" : [ [ "Perl", @@ -128,31 +306,33 @@ "Blog", 2 ] - ] + ], + "name" : "Flavio Poletti", + "id" : "Flavio Poletti" }, { + "id" : "James Smith", "name" : "James Smith", "data" : [ [ "Perl", 2 ] - ], - "id" : "James Smith" + ] }, { + "id" : "Jan Krnavek", "name" : "Jan Krnavek", "data" : [ [ "Raku", 2 ] - ], - "id" : "Jan Krnavek" + ] }, { - "id" : "Jorg Sommrey", "name" : "Jorg Sommrey", + "id" : "Jorg Sommrey", "data" : [ [ "Perl", @@ -165,6 +345,8 @@ ] }, { + "id" : "Julio de Castro", + "name" : "Julio de Castro", "data" : [ [ "Perl", @@ -174,9 +356,7 @@ "Raku", 2 ] - ], - "name" : "Julio de Castro", - "id" : "Julio de Castro" + ] }, { "data" : [ @@ -189,14 +369,14 @@ "id" : "Kang-min Liu" }, { + "name" : "Lars Thegler", "id" : "Lars Thegler", "data" : [ [ "Perl", 2 ] - ], - "name" : "Lars Thegler" + ] }, { "id" : "Laurent Rosenfeld", @@ -227,17 +407,16 @@ ] }, { + "name" : "Mark Anderson", "id" : "Mark Anderson", "data" : [ [ "Raku", 2 ] - ], - "name" : "Mark Anderson" + ] }, { - "id" : "Myoungjin Jeon", "data" : [ [ "Perl", @@ -252,27 +431,38 @@ 2 ] ], - "name" : "Myoungjin Jeon" + "name" : "Myoungjin Jeon", + "id" : "Myoungjin Jeon" }, { + "name" : "Niels van Dijke", + "id" : "Niels van Dijke", "data" : [ [ "Perl", 2 ] - ], - "name" : "Niels van Dijke", - "id" : "Niels van Dijke" + ] }, { "name" : "Nuno Vieira", + "id" : "Nuno Vieira", + "data" : [ + [ + "Perl", + 2 + ] + ] + }, + { "data" : [ [ "Perl", 2 ] ], - "id" : "Nuno Vieira" + "id" : "Pete Houston", + "name" : "Pete Houston" }, { "data" : [ @@ -293,6 +483,8 @@ "id" : "Roger Bell_West" }, { + "name" : "Samir Parikh", + "id" : "Samir Parikh", "data" : [ [ "Perl", @@ -302,21 +494,21 @@ "Blog", 1 ] - ], - "name" : "Samir Parikh", - "id" : "Samir Parikh" + ] }, { + "id" : "Shawn Wagner", "name" : "Shawn Wagner", "data" : [ [ "Perl", 2 ] - ], - "id" : "Shawn Wagner" + ] }, { + "id" : "Simon Green", + "name" : "Simon Green", "data" : [ [ "Perl", @@ -326,42 +518,41 @@ "Blog", 1 ] - ], - "name" : "Simon Green", - "id" : "Simon Green" + ] }, { - "id" : "Simon Proctor", - "name" : "Simon Proctor", "data" : [ [ "Raku", 2 ] - ] + ], + "name" : "Simon Proctor", + "id" : "Simon Proctor" }, { - "id" : "Steve Rogerson", - "name" : "Steve Rogerson", "data" : [ [ "Perl", 2 ] - ] + ], + "id" : "Steve Rogerson", + "name" : "Steve Rogerson" }, { - "id" : "Stuart Little", "data" : [ [ "Raku", 2 ] ], - "name" : "Stuart Little" + "name" : "Stuart Little", + "id" : "Stuart Little" }, { "name" : "Ulrich Rieke", + "id" : "Ulrich Rieke", "data" : [ [ "Perl", @@ -371,222 +562,46 @@ "Raku", 2 ] - ], - "id" : "Ulrich Rieke" + ] }, { - "id" : "Walt Mankowski", - "name" : "Walt Mankowski", "data" : [ [ "Perl", 2 ] - ] + ], + "id" : "Walt Mankowski", + "name" : "Walt Mankowski" }, { - "name" : "Wanderdoc", "data" : [ [ "Perl", 2 ] ], + "name" : "Wanderdoc", "id" : "Wanderdoc" } ] }, - "chart" : { - "type" : "column" + "xAxis" : { + "type" : "category" }, - "series" : [ - { - "data" : [ - { - "y" : 2, - "name" : "Abigail", - "drilldown" : "Abigail" - }, - { - "drilldown" : "Andrew Shitov", - "y" : 3, - "name" : "Andrew Shitov" - }, - { - "drilldown" : "Arne Sommer", - "y" : 5, - "name" : "Arne Sommer" - }, - { - "drilldown" : "Athanasius", - "y" : 4, - "name" : "Athanasius" - }, - { - "y" : 1, - "name" : "Cheok-Yin Fung", - "drilldown" : "Cheok-Yin Fung" - }, - { - "drilldown" : "Colin Crain", - "y" : 1, - "name" : "Colin Crain" - }, - { - "y" : 2, - "name" : "Cristina Heredia", - "drilldown" : "Cristina Heredia" - }, - { - "drilldown" : "E. Choroba", - "name" : "E. Choroba", - "y" : 2 - }, - { - "drilldown" : "Feng Chang", - "name" : "Feng Chang", - "y" : 2 - }, - { - "drilldown" : "Flavio Poletti", - "name" : "Flavio Poletti", - "y" : 4 - }, - { - "y" : 2, - "name" : "James Smith", - "drilldown" : "James Smith" - }, - { - "drilldown" : "Jan Krnavek", - "name" : "Jan Krnavek", - "y" : 2 - }, - { - "drilldown" : "Jorg Sommrey", - "y" : 3, - "name" : "Jorg Sommrey" - }, - { - "drilldown" : "Julio de Castro", - "name" : "Julio de Castro", - "y" : 4 - }, - { - "name" : "Kang-min Liu", - "y" : 2, - "drilldown" : "Kang-min Liu" - }, - { - "name" : "Lars Thegler", - "y" : 2, - "drilldown" : "Lars Thegler" - }, - { - "drilldown" : "Laurent Rosenfeld", - "name" : "Laurent Rosenfeld", - "y" : 5 - }, - { - "drilldown" : "Lubos Kolouch", - "name" : "Lubos Kolouch", - "y" : 2 - }, - { - "drilldown" : "Mark Anderson", - "name" : "Mark Anderson", - "y" : 2 - }, - { - "y" : 6, - "name" : "Myoungjin Jeon", - "drilldown" : "Myoungjin Jeon" - }, - { - "drilldown" : "Niels van Dijke", - "name" : "Niels van Dijke", - "y" : 2 - }, - { - "name" : "Nuno Vieira", - "y" : 2, - "drilldown" : "Nuno Vieira" - }, - { - "y" : 5, - "name" : "Roger Bell_West", - "drilldown" : "Roger Bell_West" - }, - { - "y" : 3, - "name" : "Samir Parikh", - "drilldown" : "Samir Parikh" - }, - { - "drilldown" : "Shawn Wagner", - "name" : "Shawn Wagner", - "y" : 2 - }, - { - "y" : 3, - "name" : "Simon Green", - "drilldown" : "Simon Green" - }, - { - "drilldown" : "Simon Proctor", - "name" : "Simon Proctor", - "y" : 2 - }, - { - "y" : 2, - "name" : "Steve Rogerson", - "drilldown" : "Steve Rogerson" - }, - { - "drilldown" : "Stuart Little", - "y" : 2, - "name" : "Stuart Little" - }, - { - "drilldown" : "Ulrich Rieke", - "name" : "Ulrich Rieke", - "y" : 4 - }, - { - "name" : "Walt Mankowski", - "y" : 2, - "drilldown" : "Walt Mankowski" - }, - { - "name" : "Wanderdoc", - "y" : 2, - "drilldown" : "Wanderdoc" - } - ], - "colorByPoint" : 1, - "name" : "Perl Weekly Challenge - 085" - } - ], "legend" : { "enabled" : 0 }, - "yAxis" : { - "title" : { - "text" : "Total Solutions" + "plotOptions" : { + "series" : { + "borderWidth" : 0, + "dataLabels" : { + "format" : "{point.y}", + "enabled" : 1 + } } }, - "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: 32] Last updated at 2020-11-08 17:29:52 GMT" - }, - "xAxis" : { - "type" : "category" - }, - "title" : { - "text" : "Perl Weekly Challenge - 085" + "chart" : { + "type" : "column" } } diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json index cf6e6df18d..85627cfeef 100644 --- a/stats/pwc-language-breakdown-summary.json +++ b/stats/pwc-language-breakdown-summary.json @@ -2,32 +2,32 @@ "chart" : { "type" : "column" }, + "legend" : { + "enabled" : "false" + }, "subtitle" : { - "text" : "Last updated at 2020-11-08 17:29:52 GMT" + "text" : "Last updated at 2020-11-08 17:38:52 GMT" }, - "tooltip" : { - "pointFormat" : "<b>{point.y:.0f}</b>" + "xAxis" : { + "type" : "category", + "labels" : { + "style" : { + "fontFamily" : "Verdana, sans-serif", + "fontSize" : "13px" + } + } }, "yAxis" : { - "min" : 0, "title" : { "text" : null - } + }, + "min" : 0 + }, + "title" : { + "text" : "Perl Weekly Challenge Contributions [2019 - 2020]" }, "series" : [ { - "dataLabels" : { - "y" : 10, - "format" : "{point.y:.0f}", - "rotation" : -90, - "color" : "#FFFFFF", - "align" : "right", - "style" : { - "fontFamily" : "Verdana, sans-serif", - "fontSize" : "13px" - }, - "enabled" : "true" - }, "name" : "Contributions", "data" : [ [ @@ -36,28 +36,28 @@ ], [ "Perl", - 3774 + 3776 ], [ "Raku", 2422 ] - ] + ], + "dataLabels" : { + "y" : 10, + "align" : "right", + "style" : { + "fontSize" : "13px", + "fontFamily" : "Verdana, sans-serif" + }, + "color" : "#FFFFFF", + "rotation" : -90, + "format" : "{point.y:.0f}", + "enabled" : "true" + } } ], - "legend" : { - "enabled" : "false" - }, - "xAxis" : { - "labels" : { - "style" : { - "fontSize" : "13px", - "fontFamily" : "Verdana, sans-serif" - } - }, - "type" : "category" - }, - "title" : { - "text" : "Perl Weekly Challenge Contributions [2019 - 2020]" + "tooltip" : { + "pointFormat" : "<b>{point.y:.0f}</b>" } } diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json index 235946d52c..777576572c 100644 --- a/stats/pwc-language-breakdown.json +++ b/stats/pwc-language-breakdown.json @@ -1,7 +1,30 @@ { + "chart" : { + "type" : "column" + }, + "plotOptions" : { + "series" : { + "dataLabels" : { + "enabled" : 1, + "format" : "{point.y}" + }, + "borderWidth" : 0 + } + }, + "legend" : { + "enabled" : "false" + }, + "xAxis" : { + "type" : "category" + }, + "subtitle" : { + "text" : "Click the columns to drilldown the language breakdown. Last updated at 2020-11-08 17:38:52 GMT" + }, "drilldown" : { "series" : [ { + "name" : "001", + "id" : "001", "data" : [ [ "Perl", @@ -15,9 +38,7 @@ "Blog", 11 ] - ], - "name" : "001", - "id" : "001" + ] }, { "data" : [ @@ -34,10 +55,12 @@ 10 ] ], - "name" : "002", - "id" : "002" + "id" : "002", + "name" : "002" }, { + "id" : "003", + "name" : "003", "data" : [ [ "Perl", @@ -51,13 +74,9 @@ "Blog", 9 ] - ], - "name" : "003", - "id" : "003" + ] }, { - "id" : "004", - "name" : "004", "data" : [ [ "Perl", @@ -71,9 +90,13 @@ "Blog", 10 ] - ] + ], + "name" : "004", + "id" : "004" }, { + "name" : "005", + "id" : "005", "data" : [ [ "Perl", @@ -87,9 +110,7 @@ "Blog", 12 ] - ], - "name" : "005", - "id" : "005" + ] }, { "data" : [ @@ -106,11 +127,10 @@ 7 ] ], - "name" : "006", - "id" : "006" + "id" : "006", + "name" : "006" }, { - "name" : "007", "data" : [ [ "Perl", @@ -125,10 +145,12 @@ 10 ] ], - "id" : "007" + "id" : "007", + "name" : "007" }, { "id" : "008", + "name" : "008", "data" : [ [ "Perl", @@ -142,8 +164,7 @@ "Blog", 12 ] - ], - "name" : "008" + ] }, { "data" : [ @@ -164,7 +185,6 @@ "id" : "009" }, { - "name" : "010", "data" : [ [ "Perl", @@ -179,10 +199,10 @@ 11 ] ], + "name" : "010", "id" : "010" }, { - "id" : "011", "data" : [ [ "Perl", @@ -197,10 +217,10 @@ 10 ] ], - "name" : "011" + "name" : "011", + "id" : "011" }, { - "name" : "012", "data" : [ [ "Perl", @@ -215,9 +235,12 @@ 11 ] ], + "name" : "012", "id" : "012" }, { + "name" : "013", + "id" : "013", "data" : [ [ "Perl", @@ -231,11 +254,11 @@ "Blog", 13 ] |
