diff options
| -rwxr-xr-x | challenge-134/pete-houston/perl/ch-1.pl | 45 | ||||
| -rwxr-xr-x | challenge-134/pete-houston/perl/ch-2.pl | 42 | ||||
| -rw-r--r-- | stats/pwc-current.json | 405 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown-summary.json | 54 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown.json | 862 | ||||
| -rw-r--r-- | stats/pwc-leaders.json | 354 | ||||
| -rw-r--r-- | stats/pwc-summary-1-30.json | 100 | ||||
| -rw-r--r-- | stats/pwc-summary-121-150.json | 102 | ||||
| -rw-r--r-- | stats/pwc-summary-151-180.json | 112 | ||||
| -rw-r--r-- | stats/pwc-summary-181-210.json | 34 | ||||
| -rw-r--r-- | stats/pwc-summary-211-240.json | 50 | ||||
| -rw-r--r-- | stats/pwc-summary-241-270.json | 48 | ||||
| -rw-r--r-- | stats/pwc-summary-31-60.json | 104 | ||||
| -rw-r--r-- | stats/pwc-summary-61-90.json | 34 | ||||
| -rw-r--r-- | stats/pwc-summary-91-120.json | 94 | ||||
| -rw-r--r-- | stats/pwc-summary.json | 50 |
16 files changed, 1296 insertions, 1194 deletions
diff --git a/challenge-134/pete-houston/perl/ch-1.pl b/challenge-134/pete-houston/perl/ch-1.pl new file mode 100755 index 0000000000..a897760ce4 --- /dev/null +++ b/challenge-134/pete-houston/perl/ch-1.pl @@ -0,0 +1,45 @@ +#!/usr/bin/env perl +#=============================================================================== +# +# FILE: 13401.pl +# +# USAGE: ./13401.pl [ N ] +# +# DESCRIPTION: Print first 5 (or N) pandigital decimal numbers +# +# OPTIONS: If N is not provided, defaults to 5. +# REQUIREMENTS: Math::Combinatorics for permutations +# NOTES: This will fail for sufficiently high N (>10^6 or so) +# AUTHOR: Pete Houston (pete), cpan@openstrike.co.uk +# ORGANIZATION: Openstrike +# VERSION: 1.0 +# CREATED: 11/10/21 +#=============================================================================== + +use strict; +use warnings; +use Math::Combinatorics; + +# General case +my $n = $ARGV[0] // 5; +my $i = 1; +my $fac = 1; +$i++ while (($fac *= $i) < $n); + +# Permute the $i highest digits +my $smallest = "1023456789"; +my $post = substr $smallest, 10 - $i, $i, ''; +my @swaps = split (//, $post); + +my $combo = Math::Combinatorics->new (count => $i, data => [@swaps]); +my @pans; + +while (my @perm = $combo->next_permutation) { + push @pans, join '', $smallest, @perm; +} + +# Sort these, print the first $n +for my $pan (sort @pans) { + print "$pan\n"; + last unless --$n; +} diff --git a/challenge-134/pete-houston/perl/ch-2.pl b/challenge-134/pete-houston/perl/ch-2.pl new file mode 100755 index 0000000000..562fa1ddfb --- /dev/null +++ b/challenge-134/pete-houston/perl/ch-2.pl @@ -0,0 +1,42 @@ +#!/usr/bin/env perl +#=============================================================================== +# +# FILE: 13402.pl +# +# USAGE: ./13402.pl ROWS COLUMNS +# +# DESCRIPTION: Multiplication table and count of distinct products +# +# AUTHOR: Pete Houston (pete), cpan@openstrike.co.uk +# ORGANIZATION: Openstrike +# VERSION: 1.0 +# CREATED: 11/10/21 +#=============================================================================== + +use strict; +use warnings; + +my ($r, $c) = @ARGV; + +my $maxlenp = length ($r * $c) + 1; +my $maxlenr = length ($r); + +my $ifmt = "%${maxlenp}i"; +my $rfmt = "%${maxlenr}i"; + +my $row; +$row .= sprintf $ifmt, $_ for 1 .. $c; +printf "%${maxlenr}s | %s\n", 'x', $row; + +print (('-' x ${maxlenr}) . '-+-' . ('-' x ($maxlenp * $c)) . "\n"); + +my %seen; +for my $i (1 .. $r) { + my @rval = map { $_ *= $i } 1 .. $c; + @seen{@rval} = (1) x $r; + $row = ''; + $row .= sprintf $ifmt, $_ for @rval; + printf "$rfmt | %s\n", $i, $row; +} +print "\nDistinct Terms: " . join (', ', sort { $a <=> $b } keys %seen) . "\n"; +print "Count: " . keys (%seen) . "\n"; diff --git a/stats/pwc-current.json b/stats/pwc-current.json index 6548f0f000..72a5880e1d 100644 --- a/stats/pwc-current.json +++ b/stats/pwc-current.json @@ -1,177 +1,30 @@ { - "chart" : { - "type" : "column" - }, - "xAxis" : { - "type" : "category" + "tooltip" : { + "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>", + "followPointer" : 1, + "pointFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>" }, "yAxis" : { "title" : { "text" : "Total Solutions" } }, - "legend" : { - "enabled" : 0 - }, - "plotOptions" : { - "series" : { - "dataLabels" : { - "enabled" : 1, - "format" : "{point.y}" - }, - "borderWidth" : 0 - } - }, "subtitle" : { - "text" : "[Champions: 25] Last updated at 2021-10-16 13:46:17 GMT" + "text" : "[Champions: 26] Last updated at 2021-10-16 21:55:17 GMT" }, - "series" : [ - { - "colorByPoint" : 1, - "name" : "The Weekly Challenge - 134", - "data" : [ - { - "drilldown" : "Abigail", - "y" : 2, - "name" : "Abigail" - }, - { - "y" : 2, - "name" : "Andinus", - "drilldown" : "Andinus" - }, - { - "y" : 2, - "name" : "Andrezgz", - "drilldown" : "Andrezgz" - }, - { - "drilldown" : "Athanasius", - "y" : 4, - "name" : "Athanasius" - }, - { - "drilldown" : "Ben Davies", - "y" : 2, - "name" : "Ben Davies" - }, - { - "drilldown" : "Cheok-Yin Fung", - "name" : "Cheok-Yin Fung", - "y" : 2 - }, - { - "name" : "Dave Jacoby", - "y" : 3, - "drilldown" : "Dave Jacoby" - }, - { - "drilldown" : "E. Choroba", - "name" : "E. Choroba", - "y" : 2 - }, - { - "name" : "Flavio Poletti", - "y" : 6, - "drilldown" : "Flavio Poletti" - }, - { - "y" : 2, - "name" : "James Smith", - "drilldown" : "James Smith" - }, - { - "drilldown" : "Jan Krnavek", - "name" : "Jan Krnavek", - "y" : 2 - }, - { - "drilldown" : "Jorg Sommrey", - "name" : "Jorg Sommrey", - "y" : 2 - }, - { - "drilldown" : "Laurent Rosenfeld", - "y" : 5, - "name" : "Laurent Rosenfeld" - }, - { - "drilldown" : "Luca Ferrari", - "name" : "Luca Ferrari", - "y" : 4 - }, - { - "drilldown" : "Mark Anderson", - "name" : "Mark Anderson", - "y" : 2 - }, - { - "y" : 2, - "name" : "Matthew Neleigh", - "drilldown" : "Matthew Neleigh" - }, - { - "drilldown" : "Mohammad S Anwar", - "y" : 2, - "name" : "Mohammad S Anwar" - }, - { - "y" : 2, - "name" : "Olivier Delouya", - "drilldown" : "Olivier Delouya" - }, - { - "drilldown" : "Paulo Custodio", - "name" : "Paulo Custodio", - "y" : 2 - }, - { - "y" : 2, - "name" : "Peter Campbell Smith", - "drilldown" : "Peter Campbell Smith" - }, - { - "drilldown" : "Roger Bell_West", - "y" : 4, - "name" : "Roger Bell_West" - }, - { - "y" : 2, - "name" : "Simon Proctor", - "drilldown" : "Simon Proctor" - }, - { - "drilldown" : "Steven Wilson", - "name" : "Steven Wilson", - "y" : 1 - }, - { - "name" : "Ulrich Rieke", - "y" : 3, - "drilldown" : "Ulrich Rieke" - }, - { - "drilldown" : "W. Luis Mochan", - "y" : 3, - "name" : "W. Luis Mochan" - } - ] - } - ], "drilldown" : { "series" : [ { + "id" : "Abigail", + "name" : "Abigail", "data" : [ [ "Perl", 2 ] - ], - "name" : "Abigail", - "id" : "Abigail" + ] }, { - "name" : "Andinus", "data" : [ [ "Raku", @@ -182,6 +35,7 @@ 1 ] ], + "name" : "Andinus", "id" : "Andinus" }, { @@ -209,27 +63,26 @@ "id" : "Athanasius" }, { - "id" : "Ben Davies", - "name" : "Ben Davies", "data" : [ [ "Raku", 2 ] - ] + ], + "name" : "Ben Davies", + "id" : "Ben Davies" }, { + "id" : "Cheok-Yin Fung", "name" : "Cheok-Yin Fung", "data" : [ [ "Perl", 2 ] - ], - "id" : "Cheok-Yin Fung" + ] }, { - "id" : "Dave Jacoby", "name" : "Dave Jacoby", "data" : [ [ @@ -240,19 +93,21 @@ "Blog", 1 ] - ] + ], + "id" : "Dave Jacoby" }, { + "id" : "E. Choroba", "name" : "E. Choroba", "data" : [ [ "Perl", 2 ] - ], - "id" : "E. Choroba" + ] }, { + "name" : "Flavio Poletti", "data" : [ [ "Perl", @@ -267,41 +122,39 @@ 2 ] ], - "name" : "Flavio Poletti", "id" : "Flavio Poletti" }, { - "id" : "James Smith", "name" : "James Smith", "data" : [ [ "Perl", 2 ] - ] + ], + "id" : "James Smith" }, { - "id" : "Jan Krnavek", "data" : [ [ "Raku", 2 ] ], - "name" : "Jan Krnavek" + "name" : "Jan Krnavek", + "id" : "Jan Krnavek" }, { "id" : "Jorg Sommrey", + "name" : "Jorg Sommrey", "data" : [ [ "Perl", 2 ] - ], - "name" : "Jorg Sommrey" + ] }, { - "name" : "Laurent Rosenfeld", "data" : [ [ "Perl", @@ -316,6 +169,7 @@ 1 ] ], + "name" : "Laurent Rosenfeld", "id" : "Laurent Rosenfeld" }, { @@ -333,64 +187,74 @@ "name" : "Luca Ferrari" }, { + "id" : "Mark Anderson", "name" : "Mark Anderson", "data" : [ [ "Raku", 2 ] - ], - "id" : "Mark Anderson" + ] }, { "id" : "Matthew Neleigh", + "name" : "Matthew Neleigh", "data" : [ [ "Perl", 2 ] - ], - "name" : "Matthew Neleigh" + ] }, { + "id" : "Mohammad S Anwar", + "name" : "Mohammad S Anwar", "data" : [ [ "Perl", 2 ] - ], - "name" : "Mohammad S Anwar", - "id" : "Mohammad S Anwar" + ] }, { "id" : "Olivier Delouya", - "name" : "Olivier Delouya", "data" : [ [ "Perl", 2 ] - ] + ], + "name" : "Olivier Delouya" }, { - "id" : "Paulo Custodio", + "name" : "Paulo Custodio", "data" : [ [ "Perl", 2 ] ], - "name" : "Paulo Custodio" + "id" : "Paulo Custodio" }, { - "id" : "Peter Campbell Smith", + "name" : "Pete Houston", "data" : [ [ "Perl", 2 ] ], - "name" : "Peter Campbell Smith" + "id" : "Pete Houston" + }, + { + "data" : [ + [ + "Perl", + 2 + ] + ], + "name" : "Peter Campbell Smith", + "id" : "Peter Campbell Smith" }, { "id" : "Roger Bell_West", @@ -407,24 +271,24 @@ ] }, { - "id" : "Simon Proctor", "name" : "Simon Proctor", "data" : [ [ "Raku", 2 ] - ] + ], + "id" : "Simon Proctor" }, { + "id" : "Steven Wilson", "data" : [ [ "Perl", 1 ] ], - "name" : "Steven Wilson", - "id" : "Steven Wilson" + "name" : "Steven Wilson" }, { "data" : [ @@ -442,6 +306,7 @@ }, { "id" : "W. Luis Mochan", + "name" : "W. Luis Mochan", "data" : [ [ "Perl", @@ -451,17 +316,167 @@ "Blog", 1 ] - ], - "name" : "W. Luis Mochan" + ] } ] }, + "xAxis" : { + "type" : "category" + }, + "legend" : { + "enabled" : 0 + }, + "plotOptions" : { + "series" : { + "borderWidth" : 0, + "dataLabels" : { + "format" : "{point.y}", + "enabled" : 1 + } + } + }, "title" : { "text" : "The Weekly Challenge - 134" }, - "tooltip" : { - "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>", - "followPointer" : 1, - "pointFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>" + "series" : [ + { + "colorByPoint" : 1, + "data" : [ + { + "y" : 2, + "name" : "Abigail", + "drilldown" : "Abigail" + }, + { + "y" : 2, + "name" : "Andinus", + "drilldown" : "Andinus" + }, + { + "drilldown" : "Andrezgz", + "name" : "Andrezgz", + "y" : 2 + }, + { + "y" : 4, + "drilldown" : "Athanasius", + "name" : "Athanasius" + }, + { + "name" : "Ben Davies", + "drilldown" : "Ben Davies", + "y" : 2 + }, + { + "y" : 2, + "name" : "Cheok-Yin Fung", + "drilldown" : "Cheok-Yin Fung" + }, + { + "drilldown" : "Dave Jacoby", + "name" : "Dave Jacoby", + "y" : 3 + }, + { + "drilldown" : "E. Choroba", + "name" : "E. Choroba", + "y" : 2 + }, + { + "name" : "Flavio Poletti", + "drilldown" : "Flavio Poletti", + "y" : 6 + }, + { + "name" : "James Smith", + "drilldown" : "James Smith", + "y" : 2 + }, + { + "y" : 2, + "name" : "Jan Krnavek", + "drilldown" : "Jan Krnavek" + }, + { + "y" : 2, + "drilldown" : "Jorg Sommrey", + "name" : "Jorg Sommrey" + }, + { + "y" : 5, + "name" : "Laurent Rosenfeld", + "drilldown" : "Laurent Rosenfeld" + }, + { + "name" : "Luca Ferrari", + "drilldown" : "Luca Ferrari", + "y" : 4 + }, + { + "y" : 2, + "name" : "Mark Anderson", + "drilldown" : "Mark Anderson" + }, + { + "name" : "Matthew Neleigh", + "drilldown" : "Matthew Neleigh", + "y" : 2 + }, + { + "y" : 2, + "drilldown" : "Mohammad S Anwar", + "name" : "Mohammad S Anwar" + }, + { + "drilldown" : "Olivier Delouya", + "name" : "Olivier Delouya", + "y" : 2 + }, + { + "y" : 2, + "name" : "Paulo Custodio", + "drilldown" : "Paulo Custodio" + }, + { + "y" : 2, + "drilldown" : "Pete Houston", + "name" : "Pete Houston" + }, + { + "name" : "Peter Campbell Smith", + "drilldown" : "Peter Campbell Smith", + "y" : 2 + }, + { + "y" : 4, + "name" : "Roger Bell_West", + "drilldown" : "Roger Bell_West" + }, + { + "y" : 2, + "drilldown" : "Simon Proctor", + "name" : "Simon Proctor" + }, + { + "name" : "Steven Wilson", + "drilldown" : "Steven Wilson", + "y" : 1 + }, + { + "y" : 3, + "name" : "Ulrich Rieke", + "drilldown" : "Ulrich Rieke" + }, + { + "drilldown" : "W. Luis Mochan", + "name" : "W. Luis Mochan", + "y" : 3 + } + ], + "name" : "The Weekly Challenge - 134" + } + ], + "chart" : { + "type" : "column" } } diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json index b9f5d56ba1..7266b5b90e 100644 --- a/stats/pwc-language-breakdown-summary.json +++ b/stats/pwc-language-breakdown-summary.json @@ -1,40 +1,30 @@ { - "chart" : { - "type" : "column" - }, "xAxis" : { + "type" : "category", "labels" : { "style" : { "fontSize" : "13px", "fontFamily" : "Verdana, sans-serif" } - }, - "type" : "category" + } + }, + "subtitle" : { + "text" : "Last updated at 2021-10-16 21:55:17 GMT" }, "legend" : { "enabled" : "false" }, + "tooltip" : { + "pointFormat" : "<b>{point.y:.0f}</b>" + }, "yAxis" : { - "min" : 0, "title" : { "text" : null - } + }, + "min" : 0 }, "series" : [ { - "dataLabels" : { - "color" : "#FFFFFF", - "format" : "{point.y:.0f}", - "align" : "right", - "style" : { - "fontSize" : "13px", - "fontFamily" : "Verdana, sans-serif" - }, - "y" : 10, - "enabled" : "true", - "rotation" : -90 - }, - "name" : "Contributions", "data" : [ [ "Blog", @@ -42,22 +32,32 @@ ], [ "Perl", - 6383 + 6385 ], [ "Raku", 3909 ] - ] + ], + "dataLabels" : { + "y" : 10, + "rotation" : -90, + "style" : { + "fontFamily" : "Verdana, sans-serif", + "fontSize" : "13px" + }, + "enabled" : "true", + "align" : "right", + "format" : "{point.y:.0f}", + "color" : "#FFFFFF" + }, + "name" : "Contributions" } ], - "subtitle" : { - "text" : "Last updated at 2021-10-16 13:46:17 GMT" + "chart" : { + "type" : "column" }, "title" : { "text" : "The Weekly Challenge Contributions [2019 - 2021]" - }, - "tooltip" : { - "pointFormat" : "<b>{point.y:.0f}</b>" } } diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json index fe56b1f0f6..6082c6c19e 100644 --- a/stats/pwc-language-breakdown.json +++ b/stats/pwc-language-breakdown.json @@ -1,12 +1,28 @@ { + "title" : { + "text" : "The Weekly Challenge Language" + }, + "plotOptions" : { + "series" : { + "dataLabels" : { + "format" : "{point.y}", + "enabled" : 1 + }, + "borderWidth" : 0 + } + }, + "chart" : { + "type" : "column" + }, "series" : [ { "colorByPoint" : "true", + "name" : "The Weekly Challenge Languages", "data" : [ { - "y" : 161, + "drilldown" : "001", "name" : "#001", - "drilldown" : "001" + "y" : 161 }, { "drilldown" : "002", @@ -15,28 +31,28 @@ }, { "drilldown" : "003", - "y" : 81, - "name" : "#003" + "name" : "#003", + "y" : 81 }, { - "y" : 99, + "drilldown" : "004", "name" : "#004", - "drilldown" : "004" + "y" : 99 }, { "name" : "#005", - "y" : 78, - "drilldown" : "005" + "drilldown" : "005", + "y" : 78 }, { - "name" : "#006", "y" : 58, - "drilldown" : "006" + "drilldown" : "006", + "name" : "#006" }, { "name" : "#007", - "y" : 64, - "drilldown" : "007" + "drilldown" : "007", + "y" : 64 }, { "y" : 78, @@ -44,43 +60,43 @@ "drilldown" : "008" }, { - "drilldown" : "009", "name" : "#009", + "drilldown" : "009", "y" : 76 }, { - "name" : "#010", "y" : 65, - "drilldown" : "010" + "drilldown" : "010", + "name" : "#010" }, { - "drilldown" : "011", + "y" : 85, "name" : "#011", - "y" : 85 + "drilldown" : "011" }, { "y" : 89, - "name" : "#012", - "drilldown" : "012" + "drilldown" : "012", + "name" : "#012" }, { - "drilldown" : "013", "y" : 85, - "name" : "#013" + "name" : "#013", + "drilldown" : "013" }, { "y" : 101, - "name" : "#014", - "drilldown" : "014" + "drilldown" : "014", + "name" : "#014" }, { "y" : 99, - "name" : "#015", - "drilldown" : "015" + "drilldown" : "015", + "name" : "#015" }, { - "drilldown" : "016", "y" : 71, + "drilldown" : "016", "name" : "#016" }, { @@ -89,24 +105,24 @@ "drilldown" : "017" }, { - "drilldown" : "018", "name" : "#018", + "drilldown" : "018", "y" : 81 }, { "y" : 103, - "name" : "#019", - "drilldown" : "019" + "drilldown" : "019", + "name" : "#019" }, { "drilldown" : "020", - "y" : 101, - "name" : "#020" + "name" : "#020", + "y" : 101 }, { - "y" : 72, + "drilldown" : "021", "name" : "#021", - "drilldown" : "021" + "y" : 72 }, { "y" : 68, @@ -115,38 +131,38 @@ }, { "name" : "#023", - "y" : 97, - "drilldown" : "023" + "drilldown" : "023", + "y" : 97 }, { - "drilldown" : "024", + "y" : 75, "name" : "#024", - "y" : 75 + "drilldown" : "024" }, { - "y" : 59, "name" : "#025", - "drilldown" : "025" + "drilldown" : "025", + "y" : 59 }, { + "name" : "#026", "drilldown" : "026", - "y" : 74, - "name" : "#026" + "y" : 74 }, { "name" : "#027", - "y" : 60, - "drilldown" : "027" + "drilldown" : "027", + "y" : 60 }, { - "drilldown" : "028", + "y" : 80, "name" : "#028", - "y" : 80 + "drilldown" : "028" }, { + "name" : "#029", "drilldown" : "029", - "y" : 79, - "name" : "#029" + "y" : 79 }, { "drilldown" : "030", @@ -154,19 +170,19 @@ "y" : 117 }, { - "y" : 89, "name" : "#031", - "drilldown" : "031" + "drilldown" : "031", + "y" : 89 }, { - "drilldown" : "032", + "y" : 94, "name" : "#032", - "y" : 94 + "drilldown" : "032" }, { - "y" : 110, + "drilldown" : "033", "name" : "#033", - "drilldown" : "033" + "y" : 110 }, { "y" : 64, @@ -174,43 +190,43 @@ "drilldown" : "034" }, { - "drilldown" : "035", + "y" : 64, "name" : "#035", - "y" : 64 + "drilldown" : "035" }, { - "name" : "#036", "y" : 68, + "name" : "#036", "drilldown" : "036" }, { - "drilldown" : "037", "y" : 67, + "drilldown" : "037", "name" : "#037" }, { - "drilldown" : "038", "name" : "#038", + "drilldown" : "038", "y" : 68 }, { - "name" : "#039", "y" : 62, + "name" : "#039", "drilldown" : "039" }, { "name" : "#040", - "y" : 73, - "drilldown" : "040" + "drilldown" : "040", + "y" : 73 }, { + "y" : 76, "drilldown" : "041", - "name" : "#041", - "y" : 76 + "name" : "#041" }, { - "drilldown" : "042", "name" : "#042", + "drilldown" : "042", "y" : 92 }, { @@ -224,13 +240,13 @@ "y" : 85 }, { < |
