diff options
| -rwxr-xr-x | challenge-023/roger-bell-west/perl5/ch-1.pl | 17 | ||||
| -rwxr-xr-x | challenge-023/roger-bell-west/perl5/ch-2.pl | 34 | ||||
| -rwxr-xr-x | challenge-023/roger-bell-west/perl6/ch-1.p6 | 11 | ||||
| -rwxr-xr-x | challenge-023/roger-bell-west/perl6/ch-2.p6 | 29 | ||||
| -rw-r--r-- | stats/pwc-challenge-022.json | 438 | ||||
| -rw-r--r-- | stats/pwc-current.json | 433 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown-summary.json | 66 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown.json | 369 | ||||
| -rw-r--r-- | stats/pwc-leaders.json | 500 | ||||
| -rw-r--r-- | stats/pwc-master-stats.json | 122 | ||||
| -rw-r--r-- | stats/pwc-summary-1-30.json | 122 | ||||
| -rw-r--r-- | stats/pwc-summary-31-60.json | 58 | ||||
| -rw-r--r-- | stats/pwc-summary-61-90.json | 110 | ||||
| -rw-r--r-- | stats/pwc-summary-91-120.json | 106 | ||||
| -rw-r--r-- | stats/pwc-summary.json | 40 |
15 files changed, 1320 insertions, 1135 deletions
diff --git a/challenge-023/roger-bell-west/perl5/ch-1.pl b/challenge-023/roger-bell-west/perl5/ch-1.pl new file mode 100755 index 0000000000..8c81a61d9d --- /dev/null +++ b/challenge-023/roger-bell-west/perl5/ch-1.pl @@ -0,0 +1,17 @@ +#! /usr/bin/perl + +use strict; +use warnings; + +use Getopt::Std; + +my %o=('d' => 2); +getopts('d:',\%o); +my @seq=@ARGV; + +foreach (1..$o{d}) { + my @o=map {$seq[$_+1]-$seq[$_]} (0..$#seq-1); + @seq=@o; +} + +print join(' ',@seq),"\n"; diff --git a/challenge-023/roger-bell-west/perl5/ch-2.pl b/challenge-023/roger-bell-west/perl5/ch-2.pl new file mode 100755 index 0000000000..138da57be4 --- /dev/null +++ b/challenge-023/roger-bell-west/perl5/ch-2.pl @@ -0,0 +1,34 @@ +#! /usr/bin/perl + +use strict; +use warnings; + +use Math::BigInt lib => 'GMP'; + +foreach my $i (@ARGV) { + my $f=primefactor(Math::BigInt->new($i)); + my @o="$i:"; + foreach my $ff (sort {$a <=> $b} keys %{$f}) { + push @o,($ff) x $f->{$ff}; + } + print join(' ',@o),"\n"; +} + +sub primefactor { + my $n=shift; + my %out; + while ($n%2 == 0) { + $out{2}++; + $n/=2; + } + my $k=Math::BigInt->new(3); + while ($k*$k <= $n) { + while ($n % $k == 0) { + $out{$k}++; + $n /= $k; + } + $k+=2; + } + $out{$n}++; + return \%out; +} diff --git a/challenge-023/roger-bell-west/perl6/ch-1.p6 b/challenge-023/roger-bell-west/perl6/ch-1.p6 new file mode 100755 index 0000000000..4f0da6316f --- /dev/null +++ b/challenge-023/roger-bell-west/perl6/ch-1.p6 @@ -0,0 +1,11 @@ +#! /usr/bin/perl6 + +my @seq=@*ARGS; +my $depth=shift @seq; + +for (1..$depth) { + my @o=map {@seq[$_+1]-@seq[$_]}, (0..@seq.end-1); + @seq=@o; +} + +say join(' ',@seq); diff --git a/challenge-023/roger-bell-west/perl6/ch-2.p6 b/challenge-023/roger-bell-west/perl6/ch-2.p6 new file mode 100755 index 0000000000..1dad19ab17 --- /dev/null +++ b/challenge-023/roger-bell-west/perl6/ch-2.p6 @@ -0,0 +1,29 @@ +#! /usr/bin/perl6 + +for @*ARGS -> $i { + my %f=primefactor($i); + my @o="$i:"; + for %f.keys.sort({$^a <=> $^b}) -> $ff { + push @o,($ff) xx %f{$ff}; + } + say join(' ',@o); +} + +sub primefactor ($nn) { + my $n=$nn; + my %out; + while ($n%2 == 0) { + %out{2}++; + $n/=2; + } + my $k=3; + while ($k*$k <= $n) { + while ($n % $k == 0) { + %out{$k}++; + $n /= $k; + } + $k+=2; + } + %out{$n}++; + return %out; +} diff --git a/stats/pwc-challenge-022.json b/stats/pwc-challenge-022.json new file mode 100644 index 0000000000..3523e8bc73 --- /dev/null +++ b/stats/pwc-challenge-022.json @@ -0,0 +1,438 @@ +{ + "yAxis" : { + "title" : { + "text" : "Total Solutions" + } + }, + "legend" : { + "enabled" : 0 + }, + "subtitle" : { + "text" : "[Champions: 22] Last updated at 2019-08-25 23:59:57 GMT" + }, + "series" : [ + { + "colorByPoint" : 1, + "data" : [ + { + "y" : 3, + "name" : "Adam Russell", + "drilldown" : "Adam Russell" + }, + { + "y" : 1, + "drilldown" : "Andrezgz", + "name" : "Andrezgz" + }, + { + "y" : 3, + "drilldown" : "Arne Sommer", + "name" : "Arne Sommer" + }, + { + "y" : 4, + "drilldown" : "Athanasius", + "name" : "Athanasius" + }, + { + "drilldown" : "Daniel Mantovani", + "name" : "Daniel Mantovani", + "y" : 1 + }, + { + "y" : 2, + "name" : "Duane Powell", + "drilldown" : "Duane Powell" + }, + { + "y" : 2, + "name" : "Duncan C. White", + "drilldown" : "Duncan C. White" + }, + { + "y" : 2, + "name" : "E. Choroba", + "drilldown" : "E. Choroba" + }, + { + "drilldown" : "Guillermo Ramos", + "name" : "Guillermo Ramos", + "y" : 2 + }, + { + "y" : 5, + "drilldown" : "Jaldhar H. Vyas", + "name" : "Jaldhar H. Vyas" + }, + { + "name" : "Joelle Maslak", + "drilldown" : "Joelle Maslak", + "y" : 4 + }, + { + "drilldown" : "Kevin Colyer", + "name" : "Kevin Colyer", + "y" : 2 + }, + { + "name" : "Kian-Meng Ang", + "drilldown" : "Kian-Meng Ang", + "y" : 1 + }, + { + "y" : 5, + "name" : "Laurent Rosenfeld", + "drilldown" : "Laurent Rosenfeld" + }, + { + "y" : 2, + "name" : "Mark Senn", + "drilldown" : "Mark Senn" + }, + { + "name" : "Ozzy", + "drilldown" : "Ozzy", + "y" : 1 + }, + { + "y" : 4, + "drilldown" : "Randy Lauen", + "name" : "Randy Lauen" + }, + { + "y" : 4, + "name" : "Roger Bell West", + "drilldown" : "Roger Bell West" + }, + { + "y" : 4, + "drilldown" : "Ruben Westerberg", + "name" : "Ruben Westerberg" + }, + { + "drilldown" : "Simon Proctor", + "name" : "Simon Proctor", + "y" : 2 + }, + { + "name" : "Steven Wilson", + "drilldown" : "Steven Wilson", + "y" : 1 + }, + { + "y" : 5, + "drilldown" : "Yet Ebreo", + "name" : "Yet Ebreo" + } + ], + "name" : "Perl Weekly Challenge - 022" + } + ], + "drilldown" : { + "series" : [ + { + "data" : [ + [ + "Perl 5", + 2 + ], + [ + "Blog", + 1 + ] + ], + "name" : "Adam Russell", + "id" : "Adam Russell" + }, + { + "id" : "Andrezgz", + "data" : [ + [ + "Perl 5", + 1 + ] + ], + "name" : "Andrezgz" + }, + { + "id" : "Arne Sommer", + "name" : "Arne Sommer", + "data" : [ + [ + "Perl 6", + 2 + ], + [ + "Blog", + 1 + ] + ] + }, + { + "id" : "Athanasius", + "name" : "Athanasius", + "data" : [ + [ + "Perl 5", + 2 + ], + [ + "Perl 6", + 2 + ] + ] + }, + { + "name" : "Daniel Mantovani", + "data" : [ + [ + "Perl 5", + 1 + ] + ], + "id" : "Daniel Mantovani" + }, + { + "data" : [ + [ + "Perl 5", + 2 + ] + ], + "name" : "Duane Powell", + "id" : "Duane Powell" + }, + { + "id" : "Duncan C. White", + "name" : "Duncan C. White", + "data" : [ + [ + "Perl 5", + 2 + ] + ] + }, + { + "id" : "E. Choroba", + "data" : [ + [ + "Perl 5", + 2 + ] + ], + "name" : "E. Choroba" + }, + { + "name" : "Guillermo Ramos", + "data" : [ + [ + "Perl 5", + 2 + ] + ], + "id" : "Guillermo Ramos" + }, + { + "data" : [ + [ + "Perl 5", + 2 + ], + [ + "Perl 6", + 2 + ], + [ + "Blog", + 1 + ] + ], + "name" : "Jaldhar H. Vyas", + "id" : "Jaldhar H. Vyas" + }, + { + "name" : "Joelle Maslak", + "data" : [ + [ + "Perl 5", + 2 + ], + [ + "Perl 6", + 2 + ] + ], + "id" : "Joelle Maslak" + }, + { + "id" : "Kevin Colyer", + "name" : "Kevin Colyer", + "data" : [ + [ + "Perl 5", + 2 + ] + ] + }, + { + "data" : [ + [ + "Perl 5", + 1 + ] + ], + "name" : "Kian-Meng Ang", + "id" : "Kian-Meng Ang" + }, + { + "id" : "Laurent Rosenfeld", + "data" : [ + [ + "Perl 5", + 2 + ], + [ + "Perl 6", + 2 + ], + [ + "Blog", + 1 + ] + ], + "name" : "Laurent Rosenfeld" + }, + { + "id" : "Mark Senn", + "data" : [ + [ + "Perl 6", + 1 + ], + [ + "Blog", + 1 + ] + ], + "name" : "Mark Senn" + }, + { + "data" : [ + [ + "Perl 6", + 1 + ] + ], + "name" : "Ozzy", + "id" : "Ozzy" + }, + { + "id" : "Randy Lauen", + "name" : "Randy Lauen", + "data" : [ + [ + "Perl 5", + 2 + ], + [ + "Perl 6", + 2 + ] + ] + }, + { + "id" : "Roger Bell West", + "data" : [ + [ + "Perl 5", + 2 + ], + [ + "Perl 6", + 1 + ], + [ + "Blog", + 1 + ] + ], + "name" : "Roger Bell West" + }, + { + "data" : [ + [ + "Perl 5", + 2 + ], + [ + "Perl 6", + 2 + ] + ], + "name" : "Ruben Westerberg", + "id" : "Ruben Westerberg" + }, + { + "name" : "Simon Proctor", + "data" : [ + [ + "Perl 6", + 2 + ] + ], + "id" : "Simon Proctor" + }, + { + "id" : "Steven Wilson", + "name" : "Steven Wilson", + "data" : [ + [ + "Perl 5", + 1 + ] + ] + }, + { + "data" : [ + [ + "Perl 5", + 2 + ], + [ + "Perl 6", + 2 + ], + [ + "Blog", + 1 + ] + ], + "name" : "Yet Ebreo", + "id" : "Yet Ebreo" + } + ] + }, + "xAxis" : { + "type" : "category" + }, + "plotOptions" : { + "series" : { + "dataLabels" : { + "format" : "{point.y}", + "enabled" : 1 + }, + "borderWidth" : 0 + } + }, + "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/>" + }, + "chart" : { + "type" : "column" + }, + "title" : { + "text" : "Perl Weekly Challenge - 022" + } +} diff --git a/stats/pwc-current.json b/stats/pwc-current.json index 3523e8bc73..5bd6173550 100644 --- a/stats/pwc-current.json +++ b/stats/pwc-current.json @@ -4,130 +4,21 @@ "text" : "Total Solutions" } }, - "legend" : { - "enabled" : 0 + "chart" : { + "type" : "column" }, - "subtitle" : { - "text" : "[Champions: 22] Last updated at 2019-08-25 23:59:57 GMT" + "xAxis" : { + "type" : "category" }, - "series" : [ - { - "colorByPoint" : 1, - "data" : [ - { - "y" : 3, - "name" : "Adam Russell", - "drilldown" : "Adam Russell" - }, - { - "y" : 1, - "drilldown" : "Andrezgz", - "name" : "Andrezgz" - }, - { - "y" : 3, - "drilldown" : "Arne Sommer", - "name" : "Arne Sommer" - }, - { - "y" : 4, - "drilldown" : "Athanasius", - "name" : "Athanasius" - }, - { - "drilldown" : "Daniel Mantovani", - "name" : "Daniel Mantovani", - "y" : 1 - }, - { - "y" : 2, - "name" : "Duane Powell", - "drilldown" : "Duane Powell" - }, - { - "y" : 2, - "name" : "Duncan C. White", - "drilldown" : "Duncan C. White" - }, - { - "y" : 2, - "name" : "E. Choroba", - "drilldown" : "E. Choroba" - }, - { - "drilldown" : "Guillermo Ramos", - "name" : "Guillermo Ramos", - "y" : 2 - }, - { - "y" : 5, - "drilldown" : "Jaldhar H. Vyas", - "name" : "Jaldhar H. Vyas" - }, - { - "name" : "Joelle Maslak", - "drilldown" : "Joelle Maslak", - "y" : 4 - }, - { - "drilldown" : "Kevin Colyer", - "name" : "Kevin Colyer", - "y" : 2 - }, - { - "name" : "Kian-Meng Ang", - "drilldown" : "Kian-Meng Ang", - "y" : 1 - }, - { - "y" : 5, - "name" : "Laurent Rosenfeld", - "drilldown" : "Laurent Rosenfeld" - }, - { - "y" : 2, - "name" : "Mark Senn", - "drilldown" : "Mark Senn" - }, - { - "name" : "Ozzy", - "drilldown" : "Ozzy", - "y" : 1 - }, - { - "y" : 4, - "drilldown" : "Randy Lauen", - "name" : "Randy Lauen" - }, - { - "y" : 4, - "name" : "Roger Bell West", - "drilldown" : "Roger Bell West" - }, - { - "y" : 4, - "drilldown" : "Ruben Westerberg", - "name" : "Ruben Westerberg" - }, - { - "drilldown" : "Simon Proctor", - "name" : "Simon Proctor", - "y" : 2 - }, - { - "name" : "Steven Wilson", - "drilldown" : "Steven Wilson", - "y" : 1 - }, - { - "y" : 5, - "drilldown" : "Yet Ebreo", - "name" : "Yet Ebreo" - } - ], - "name" : "Perl Weekly Challenge - 022" + "plotOptions" : { + "series" : { + "borderWidth" : 0, + "dataLabels" : { + "format" : "{point.y}", + "enabled" : 1 + } } - ], + }, "drilldown" : { "series" : [ { @@ -137,302 +28,40 @@ 2 ], [ - "Blog", - 1 - ] - ], - "name" : "Adam Russell", - "id" : "Adam Russell" - }, - { - "id" : "Andrezgz", - "data" : [ - [ - "Perl 5", - 1 - ] - ], - "name" : "Andrezgz" - }, - { - "id" : "Arne Sommer", - "name" : "Arne Sommer", - "data" : [ - [ "Perl 6", 2 - ], - [ - "Blog", - 1 - ] - ] - }, - { - "id" : "Athanasius", - "name" : "Athanasius", - "data" : [ - [ - "Perl 5", - 2 - ], - [ - "Perl 6", - 2 - ] - ] - }, - { - "name" : "Daniel Mantovani", - "data" : [ - [ - "Perl 5", - 1 - ] - ], - "id" : "Daniel Mantovani" - }, - { - "data" : [ - [ - "Perl 5", - 2 - ] - ], - "name" : "Duane Powell", - "id" : "Duane Powell" - }, - { - "id" : "Duncan C. White", - "name" : "Duncan C. White", - "data" : [ - [ - "Perl 5", - 2 - ] - ] - }, - { - "id" : "E. Choroba", - "data" : [ - [ - "Perl 5", - 2 - ] - ], - "name" : "E. Choroba" - }, - { - "name" : "Guillermo Ramos", - "data" : [ - [ - "Perl 5", - 2 ] ], - "id" : "Guillermo Ramos" - }, - { - "data" : [ - [ - "Perl 5", - 2 - ], - [ - "Perl 6", - 2 - ], - [ - "Blog", - 1 - ] - ], - "name" : "Jaldhar H. Vyas", - "id" : "Jaldhar H. Vyas" - }, - { - "name" : "Joelle Maslak", - "data" : [ - [ - "Perl 5", - 2 - ], - [ - "Perl 6", - 2 - ] - ], - "id" : "Joelle Maslak" - }, - { - "id" : "Kevin Colyer", - "name" : "Kevin Colyer", - "data" : [ - [ - "Perl 5", - 2 - ] - ] - }, - { - "data" : [ - [ - "Perl 5", - 1 - ] - ], - "name" : "Kian-Meng Ang", - "id" : "Kian-Meng Ang" - }, - { - "id" : "Laurent Rosenfeld", - "data" : [ - [ - "Perl 5", - 2 - ], - [ - "Perl 6", - 2 - ], - [ - "Blog", - 1 - ] - ], - "name" : "Laurent Rosenfeld" - }, - { - "id" : "Mark Senn", - "data" : [ - [ - "Perl 6", - 1 - ], - [ - "Blog", - 1 - ] - ], - "name" : "Mark Senn" - }, - { - "data" : [ - [ - "Perl 6", - 1 - ] - ], - "name" : "Ozzy", - "id" : "Ozzy" - }, - { - "id" : "Randy Lauen", - "name" : "Randy Lauen", - "data" : [ - [ - "Perl 5", - 2 - ], - [ - "Perl 6", - 2 - ] - ] - }, - { "id" : "Roger Bell West", - "data" : [ - [ - "Perl 5", - 2 - ], - [ - "Perl 6", - 1 - ], - [ - "Blog", - 1 - ] - ], "name" : "Roger Bell West" - }, - { - "data" : [ - [ - "Perl 5", - 2 - ], - [ - "Perl 6", - 2 - ] - ], - "name" : "Ruben Westerberg", - "id" : "Ruben Westerberg" - }, - { - "name" : "Simon Proctor", - "data" : [ - [ - "Perl 6", - 2 - ] - ], - "id" : "Simon Proctor" - }, - { - "id" : "Steven Wilson", - "name" : "Steven Wilson", - "data" : [ - [ - "Perl 5", - 1 - ] - ] - }, - { - "data" : [ - [ - "Perl 5", - 2 - ], - [ - "Perl 6", - 2 - ], - [ - "Blog", - 1 - ] - ], - "name" : "Yet Ebreo", - "id" : "Yet Ebreo" } ] }, - "xAxis" : { - "type" : "category" + "subtitle" : { + "text" : "[Champions: 1] Last updated at 2019-08-26 14:15:33 GMT" }, - "plotOptions" : { - "series" : { - "dataLabels" : { - "format" : "{point.y}", - "enabled" : 1 - }, - "borderWidth" : 0 + "series" : [ + { + "data" : [ + { + "drilldown" : "Roger Bell West", + "y" : 4, + "name" : "Roger Bell West" + } + ], + "colorByPoint" : 1, + "name" : "Perl Weekly Challenge - 023" } + ], + "title" : { + "text" : "Perl Weekly Challenge - 023" }, "tooltip" : { - "pointFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>", "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/>" }, - "chart" : { - "type" : "column" - }, - "title" : { - "text" : "Perl Weekly Challenge - 022" + "legend" : { + "enabled" : 0 } } diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json index 1c42dcbca3..682ab08b23 100644 --- a/stats/pwc-language-breakdown-summary.json +++ b/stats/pwc-language-breakdown-summary.json @@ -1,37 +1,48 @@ { - "xAxis" : { - "labels" : { - "style" : { - "fontSize" : "13px", - "fontFamily" : "Verdana, sans-serif" - } - }, - "type" : "category" - }, - "legend" : { - "enabled" : "false" + "tooltip" : { + "pointFormat" : "<b>{point.y:.0f}</b>" }, "chart" : { "type" : "column" }, - "subtitle" : { - "text" : "Last updated at 2019-08-26 00:00:07 GMT" - }, - "tooltip" : { - "pointFormat" : "<b>{point.y:.0f}</b>" - }, "title" : { "text" : "Perl Weekly Challenge Contributions - 2019" }, "yAxis" : { + "min" : 0, "title" : { "text" : null + } + }, + "subtitle" : { + "text" : "Last updated at 2019-08-26 14:15:42 GMT" + }, + "xAxis" : { + "labels" : { + "style" : { + "fontSize" : "13px", + "fontFamily" : "Verdana, sans-serif" + } }, - "min" : 0 + "type" : "category" + }, + "legend" : { + "enabled" : "false" }, "series" : [ { - "name" : "Contributions", + "dataLabels" : { + "y" : 10, + "rotation" : -90, + "format" : "{point.y:.0f}", + "align" : "right", + "enabled" : "true", + "color" : "#FFFFFF", + "style" : { + "fontSize" : "13px", + "fontFamily" : "Verdana, sans-serif" + } + }, "data" : [ [ "Blog", @@ -39,25 +50,14 @@ ], [ "Perl 5", - 918 + 920 ], [ "Perl 6", - 550 + 552 ] ], - "dataLabels" : { - "y" : 10, - "color" : "#FFFFFF", - "enabled" : "true", - "rotation" : -90, - "align" : "right", - "format" : "{point.y:.0f}", - "style" : { - "fontFamily" : "Verdana, sans-serif", - "fontSize" : "13px" - } - } + "name" : "Contributions" } ] } diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json index 5a8a16e533..70c725f48e 100644 --- a/stats/pwc-language-breakdown.json +++ b/stats/pwc-language-breakdown.json @@ -1,29 +1,166 @@ { + "series" : [ + { + "data" : [ + { + "y" : 127, + "drilldown" : "001", + "name" : "#001" + }, + { + "y" : 104, + "drilldown" : "002", + "name" : "#002" + }, + { + "y" : 66, + "name" : "#003", + "drilldown" : "003" + }, + { + "y" : 84, + "name" : "#004", + "drilldown" : "004" + }, + { + "drilldown" : "005", + "name" : "#005", + "y |
