diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2022-01-16 10:20:19 +0000 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2022-01-16 10:20:19 +0000 |
| commit | 1e0b3b56bc8282121217341cb9ef8394f321c911 (patch) | |
| tree | 9faf5b4886cf69cbb0998eeadda42ef2c0cf6e8e | |
| parent | 94375653f12b37cff4553cbe12d24681c6eee55c (diff) | |
| download | perlweeklychallenge-club-1e0b3b56bc8282121217341cb9ef8394f321c911.tar.gz perlweeklychallenge-club-1e0b3b56bc8282121217341cb9ef8394f321c911.tar.bz2 perlweeklychallenge-club-1e0b3b56bc8282121217341cb9ef8394f321c911.zip | |
- Added solutions by Mark Senn.
| -rw-r--r-- | challenge-147/mark-senn/blog.txt | 1 | ||||
| -rw-r--r-- | challenge-147/mark-senn/blog1.txt | 1 | ||||
| -rw-r--r-- | challenge-147/mark-senn/raku/ch-1.raku | 17 | ||||
| -rw-r--r-- | challenge-147/mark-senn/raku/ch-2.raku | 39 | ||||
| -rw-r--r-- | stats/pwc-current.json | 347 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown-summary.json | 66 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown.json | 1018 | ||||
| -rw-r--r-- | stats/pwc-leaders.json | 722 | ||||
| -rw-r--r-- | stats/pwc-summary-1-30.json | 104 | ||||
| -rw-r--r-- | stats/pwc-summary-121-150.json | 46 | ||||
| -rw-r--r-- | stats/pwc-summary-151-180.json | 44 | ||||
| -rw-r--r-- | stats/pwc-summary-181-210.json | 34 | ||||
| -rw-r--r-- | stats/pwc-summary-211-240.json | 106 | ||||
| -rw-r--r-- | stats/pwc-summary-241-270.json | 50 | ||||
| -rw-r--r-- | stats/pwc-summary-31-60.json | 34 | ||||
| -rw-r--r-- | stats/pwc-summary-61-90.json | 112 | ||||
| -rw-r--r-- | stats/pwc-summary-91-120.json | 126 | ||||
| -rw-r--r-- | stats/pwc-summary.json | 544 |
18 files changed, 1744 insertions, 1667 deletions
diff --git a/challenge-147/mark-senn/blog.txt b/challenge-147/mark-senn/blog.txt new file mode 100644 index 0000000000..ab6e814e28 --- /dev/null +++ b/challenge-147/mark-senn/blog.txt @@ -0,0 +1 @@ +https://engineering.purdue.edu/~mark/twc-147-1.pdf diff --git a/challenge-147/mark-senn/blog1.txt b/challenge-147/mark-senn/blog1.txt new file mode 100644 index 0000000000..3702fb234c --- /dev/null +++ b/challenge-147/mark-senn/blog1.txt @@ -0,0 +1 @@ +https://engineering.purdue.edu/~mark/twc-147-2.pdf diff --git a/challenge-147/mark-senn/raku/ch-1.raku b/challenge-147/mark-senn/raku/ch-1.raku new file mode 100644 index 0000000000..de473507dd --- /dev/null +++ b/challenge-147/mark-senn/raku/ch-1.raku @@ -0,0 +1,17 @@ +# Number of numbers printed. +my $n = 0; + +# Truncatable primes are primes that don't contain zero. +for (2 .. Inf).grep(*.is-prime).grep({! /0/}) -> $test { + + # If, for example, $test is 9137, check that 137, 37, and 7 are all primes. + my $found = True; + for (1 .. $test.chars-1) -> $i { + ($test.substr($i).is-prime) or $found = False, last; + } + ($found) and $test.say, $n++; + + # Only print the first 20 truncatable primes. + ($n >= 20) and last; + +} diff --git a/challenge-147/mark-senn/raku/ch-2.raku b/challenge-147/mark-senn/raku/ch-2.raku new file mode 100644 index 0000000000..8169d97abb --- /dev/null +++ b/challenge-147/mark-senn/raku/ch-2.raku @@ -0,0 +1,39 @@ +# Use the first n pentagonal numbers. The zeroth element is not used so +# p_1, p_2, ..., p_n will correspond to $p[1], $p[2], ..., $p[n]. +# +# The maximum pair of pentagonal numbers that can be tested are p_i and p_j +# where 3 <= i < n, 2 <= j < i, and p_i + p_j <= p_n. +my $n = 1_000_000; + +# Use Raku's sequence operator to define an infinte lazy list containing +# the pentagonal numbers. See +# https://perl6advent.wordpress.com/2010/12/04/the-sequence-operator +# for more information on the sequence operator. $p[0] (= 0) is not used. +my $p := 0, 1, 5, -> $a, $b { 2*$b - $a + 3 } ... Inf; + +# Make a is-pentagonal hash where %is-pentagonal{p-1} is true for the first +# n pentagonal numbers. +my %is-pentagonal; +(1 .. $n).map({%is-pentagonal{$p[$_]} = True}); + +for (3 .. $n-1) -> $i { + for (2 .. $i-1) -> $j { + + # Is p_i + p_j a pentagonal number? + my $t = $p[$i] + $p[$j]; + ($t > $p[$n]) and die "sum $t is too big to test"; + %is-pentagonal{$t} or next; + + # Is p_i - p_j a pentagonal number? + $t = $p[$i] - $p[$j]; + %is-pentagonal{$t} or next; + + # The following numbers get printed: 1560090 and 7042750. + print qq:to/END/; + The first pair of pentagonal numbers that satisfy + the conditions is ($p[$j], $p[$i]). + END + exit 0; + + } +} diff --git a/stats/pwc-current.json b/stats/pwc-current.json index a21bd3ce99..5d95a742f5 100644 --- a/stats/pwc-current.json +++ b/stats/pwc-current.json @@ -1,129 +1,49 @@ { - "tooltip" : { - "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/>", - "followPointer" : 1 - }, - "series" : [ - { - "data" : [ - { - "y" : 1, - "drilldown" : "Alexander Karelas", - "name" : "Alexander Karelas" - }, - { - "drilldown" : "Cheok-Yin Fung", - "y" : 2, - "name" : "Cheok-Yin Fung" - }, - { - "drilldown" : "Dave Jacoby", - "y" : 3, - "name" : "Dave Jacoby" - }, - { - "name" : "E. Choroba", - "drilldown" : "E. Choroba", - "y" : 2 - }, - { - "drilldown" : "Flavio Poletti", - "y" : 6, - "name" : "Flavio Poletti" - }, - { - "name" : "James Smith", - "drilldown" : "James Smith", - "y" : 3 - }, - { - "name" : "Laurent Rosenfeld", - "y" : 5, - "drilldown" : "Laurent Rosenfeld" - }, - { - "name" : "Luca Ferrari", - "y" : 7, - "drilldown" : "Luca Ferrari" - }, - { - "y" : 2, - "drilldown" : "Mark Anderson", - "name" : "Mark Anderson" - }, - { - "drilldown" : "Matthew Neleigh", - "y" : 2, - "name" : "Matthew Neleigh" - }, - { - "drilldown" : "Mohammad S Anwar", - "y" : 2, - "name" : "Mohammad S Anwar" - }, - { - "name" : "Niels van Dijke", - "drilldown" : "Niels van Dijke", - "y" : 2 - }, - { - "y" : 3, - "drilldown" : "Peter Campbell Smith", - "name" : "Peter Campbell Smith" - }, - { - "name" : "Roger Bell_West", - "drilldown" : "Roger Bell_West", - "y" : 5 - }, - { - "drilldown" : "Simon Green", - "y" : 3, - "name" : "Simon Green" - }, - { - "drilldown" : "Simon Proctor", - "y" : 2, - "name" : "Simon Proctor" - }, - { - "name" : "Steven Wilson", - "drilldown" : "Steven Wilson", - "y" : 2 - }, - { - "name" : "Ulrich Rieke", - "drilldown" : "Ulrich Rieke", - "y" : 3 - }, - { - "name" : "W. Luis Mochan", - "y" : 3, - "drilldown" : "W. Luis Mochan" - } - ], - "name" : "The Weekly Challenge - 147", - "colorByPoint" : 1 - } - ], "title" : { "text" : "The Weekly Challenge - 147" }, + "yAxis" : { + "title" : { + "text" : "Total Solutions" + } + }, "legend" : { "enabled" : 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/>" + }, + "plotOptions" : { + "series" : { + "dataLabels" : { + "enabled" : 1, + "format" : "{point.y}" + }, + "borderWidth" : 0 + } + }, + "xAxis" : { + "type" : "category" + }, + "subtitle" : { + "text" : "[Champions: 20] Last updated at 2022-01-16 10:18:34 GMT" + }, + "chart" : { + "type" : "column" + }, "drilldown" : { "series" : [ { - "id" : "Alexander Karelas", "data" : [ [ "Perl", 1 ] ], - "name" : "Alexander Karelas" + "name" : "Alexander Karelas", + "id" : "Alexander Karelas" }, { "data" : [ @@ -141,6 +61,7 @@ }, { "name" : "Dave Jacoby", + "id" : "Dave Jacoby", "data" : [ [ "Perl", @@ -150,22 +71,21 @@ "Blog", 1 ] - ], - "id" : "Dave Jacoby" + ] }, { "id" : "E. Choroba", + "name" : "E. Choroba", "data" : [ [ "Perl", 2 ] - ], - "name" : "E. Choroba" + ] }, { - "name" : "Flavio Poletti", "id" : "Flavio Poletti", + "name" : "Flavio Poletti", "data" : [ [ "Perl", @@ -182,7 +102,6 @@ ] }, { - "name" : "James Smith", "data" : [ [ "Perl", @@ -193,9 +112,11 @@ 1 ] ], + "name" : "James Smith", "id" : "James Smith" }, { + "name" : "Laurent Rosenfeld", "id" : "Laurent Rosenfeld", "data" : [ [ @@ -210,12 +131,11 @@ "Blog", 1 ] - ], - "name" : "Laurent Rosenfeld" + ] }, { - "name" : "Luca Ferrari", "id" : "Luca Ferrari", + "name" : "Luca Ferrari", "data" : [ [ "Raku", @@ -228,27 +148,42 @@ ] }, { + "id" : "Mark Anderson", + "name" : "Mark Anderson", "data" : [ [ "Raku", 2 ] + ] + }, + { + "data" : [ + [ + "Raku", + 2 + ], + [ + "Blog", + 2 + ] ], - "id" : "Mark Anderson", - "name" : "Mark Anderson" + "id" : "Mark Senn", + "name" : "Mark Senn" }, { - "name" : "Matthew Neleigh", - "id" : "Matthew Neleigh", "data" : [ [ "Perl", 2 ] - ] + ], + "name" : "Matthew Neleigh", + "id" : "Matthew Neleigh" }, { "id" : "Mohammad S Anwar", + "name" : "Mohammad S Anwar", "data" : [ [ "Perl", @@ -258,21 +193,21 @@ "Raku", 1 ] - ], - "name" : "Mohammad S Anwar" + ] }, { + "id" : "Niels van Dijke", "name" : "Niels van Dijke", "data" : [ [ "Perl", 2 ] - ], - "id" : "Niels van Dijke" + ] }, { "id" : "Peter Campbell Smith", + "name" : "Peter Campbell Smith", "data" : [ [ "Perl", @@ -282,8 +217,7 @@ "Blog", 1 ] - ], - "name" : "Peter Campbell Smith" + ] }, { "data" : [ @@ -304,8 +238,6 @@ "name" : "Roger Bell_West" }, { - "name" : "Simon Green", - "id" : "Simon Green", "data" : [ [ "Perl", @@ -315,7 +247,9 @@ "Blog", 1 ] - ] + ], + "id" : "Simon Green", + "name" : "Simon Green" }, { "data" : [ @@ -324,18 +258,18 @@ 2 ] ], - "id" : "Simon Proctor", - "name" : "Simon Proctor" + "name" : "Simon Proctor", + "id" : "Simon Proctor" }, { + "name" : "Steven Wilson", + "id" : "Steven Wilson", "data" : [ [ "Perl", 2 ] - ], - "id" : "Steven Wilson", - "name" : "Steven Wilson" + ] }, { "data" : [ @@ -348,8 +282,8 @@ 2 ] ], - "id" : "Ulrich Rieke", - "name" : "Ulrich Rieke" + "name" : "Ulrich Rieke", + "id" : "Ulrich Rieke" }, { "data" : [ @@ -362,32 +296,117 @@ 1 ] ], - "id" : "W. Luis Mochan", - "name" : "W. Luis Mochan" + "name" : "W. Luis Mochan", + "id" : "W. Luis Mochan" } ] }, - "chart" : { - "type" : "column" - }, - "yAxis" : { - "title" : { - "text" : "Total Solutions" - } - }, - "xAxis" : { - "type" : "category" - }, - "subtitle" : { - "text" : "[Champions: 19] Last updated at 2022-01-16 09:22:42 GMT" - }, - "plotOptions" : { - "series" : { - "dataLabels" : { - "format" : "{point.y}", - "enabled" : 1 - }, - "borderWidth" : 0 + "series" : [ + { + "name" : "The Weekly Challenge - 147", + "data" : [ + { + "drilldown" : "Alexander Karelas", + "y" : 1, + "name" : "Alexander Karelas" + }, + { + "name" : "Cheok-Yin Fung", + "y" : 2, + "drilldown" : "Cheok-Yin Fung" + }, + { + "name" : "Dave Jacoby", + "y" : 3, + "drilldown" : "Dave Jacoby" + }, + { + "y" : 2, + "drilldown" : "E. Choroba", + "name" : "E. Choroba" + }, + { + "name" : "Flavio Poletti", + "drilldown" : "Flavio Poletti", + "y" : 6 + }, + { + "name" : "James Smith", + "drilldown" : "James Smith", + "y" : 3 + }, + { + "name" : "Laurent Rosenfeld", + "y" : 5, + "drilldown" : "Laurent Rosenfeld" + }, + { + "name" : "Luca Ferrari", + "drilldown" : "Luca Ferrari", + "y" : 7 + }, + { + "drilldown" : "Mark Anderson", + "y" : 2, + "name" : "Mark Anderson" + }, + { + "drilldown" : "Mark Senn", + "y" : 4, + "name" : "Mark Senn" + }, + { + "name" : "Matthew Neleigh", + "drilldown" : "Matthew Neleigh", + "y" : 2 + }, + { + "name" : "Mohammad S Anwar", + "y" : 2, + "drilldown" : "Mohammad S Anwar" + }, + { + "name" : "Niels van Dijke", + "y" : 2, + "drilldown" : "Niels van Dijke" + }, + { + "drilldown" : "Peter Campbell Smith", + "y" : 3, + "name" : "Peter Campbell Smith" + }, + { + "name" : "Roger Bell_West", + "drilldown" : "Roger Bell_West", + "y" : 5 + }, + { + "name" : "Simon Green", + "y" : 3, + "drilldown" : "Simon Green" + }, + { + "name" : "Simon Proctor", + "drilldown" : "Simon Proctor", + "y" : 2 + }, + { + "name" : "Steven Wilson", + "y" : 2, + "drilldown" : "Steven Wilson" + }, + { + "drilldown" : "Ulrich Rieke", + "y" : 3, + "name" : "Ulrich Rieke" + }, + { + "drilldown" : "W. Luis Mochan", + "y" : 3, + "name" : "W. Luis Mochan" + } + ], + "colorByPoint" : 1 } - } + ] } diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json index af83746069..125046a6b0 100644 --- a/stats/pwc-language-breakdown-summary.json +++ b/stats/pwc-language-breakdown-summary.json @@ -1,47 +1,25 @@ { - "chart" : { - "type" : "column" + "tooltip" : { + "pointFormat" : "<b>{point.y:.0f}</b>" }, - "yAxis" : { - "min" : 0, - "title" : { - "text" : null - } + "subtitle" : { + "text" : "Last updated at 2022-01-16 10:18:34 GMT" }, "xAxis" : { + "type" : "category", "labels" : { "style" : { "fontFamily" : "Verdana, sans-serif", "fontSize" : "13px" } - }, - "type" : "category" - }, - "subtitle" : { - "text" : "Last updated at 2022-01-16 09:22:42 GMT" - }, - "title" : { - "text" : "The Weekly Challenge Contributions [2019 - 2021]" + } }, "series" : [ { - "name" : "Contributions", - "dataLabels" : { - "format" : "{point.y:.0f}", - "align" : "right", - "rotation" : -90, - "enabled" : "true", - "color" : "#FFFFFF", - "y" : 10, - "style" : { - "fontSize" : "13px", - "fontFamily" : "Verdana, sans-serif" - } - }, "data" : [ [ "Blog", - 2185 + 2187 ], [ "Perl", @@ -49,15 +27,37 @@ ], [ "Raku", - 4266 + 4268 ] - ] + ], + "dataLabels" : { + "format" : "{point.y:.0f}", + "style" : { + "fontSize" : "13px", + "fontFamily" : "Verdana, sans-serif" + }, + "rotation" : -90, + "y" : 10, + "align" : "right", + "enabled" : "true", + "color" : "#FFFFFF" + }, + "name" : "Contributions" } ], - "tooltip" : { - "pointFormat" : "<b>{point.y:.0f}</b>" + "chart" : { + "type" : "column" }, "legend" : { "enabled" : "false" + }, + "yAxis" : { + "min" : 0, + "title" : { + "text" : null + } + }, + "title" : { + "text" : "The Weekly Challenge Contributions [2019 - 2021]" } } diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json index d1e06fd3a6..c14a914527 100644 --- a/stats/pwc-language-breakdown.json +++ b/stats/pwc-language-breakdown.json @@ -2,18 +2,27 @@ "legend" : { "enabled" : "false" }, + "yAxis" : { + "title" : { + "text" : "Total Solutions" + } + }, + "title" : { + "text" : "The Weekly Challenge Language" + }, "series" : [ { + "colorByPoint" : "true", "data" : [ { - "name" : "#001", "drilldown" : "001", - "y" : 161 + "y" : 161, + "name" : "#001" }, { + "name" : "#002", "drilldown" : "002", - "y" : 125, - "name" : "#002" + "y" : 125 }, { "name" : "#003", @@ -21,9 +30,9 @@ "drilldown" : "003" }, { - "name" : "#004", "drilldown" : "004", - "y" : 99 + "y" : 99, + "name" : "#004" }, { "y" : 78, @@ -31,29 +40,29 @@ "name" : "#005" }, { - "drilldown" : "006", "y" : 58, + "drilldown" : "006", "name" : "#006" }, { - "y" : 64, + "name" : "#007", "drilldown" : "007", - "name" : "#007" + "y" : 64 }, { - "name" : "#008", + "drilldown" : "008", "y" : 78, - "drilldown" : "008" + "name" : "#008" }, { - "name" : "#009", + "drilldown" : "009", "y" : 76, - "drilldown" : "009" + "name" : "#009" }, { - "y" : 65, + "name" : "#010", "drilldown" : "010", - "name" : "#010" + "y" : 65 }, { "name" : "#011", @@ -71,9 +80,9 @@ "name" : "#013" }, { - "y" : 101, + "name" : "#014", "drilldown" : "014", - "name" : "#014" + "y" : 101 }, { "y" : 99, @@ -81,39 +90,39 @@ "name" : "#015" }, { + "name" : "#016", "y" : 71, - "drilldown" : "016", - "name" : "#016" + "drilldown" : "016" }, { - "drilldown" : "017", "y" : 84, + "drilldown" : "017", "name" : "#017" }, { "name" : "#018", - "y" : 81, - "drilldown" : "018" + "drilldown" : "018", + "y" : 81 }, { "name" : "#019", - "drilldown" : "019", - "y" : 103 + "y" : 103, + "drilldown" : "019" }, { - "name" : "#020", "y" : 101, - "drilldown" : "020" + "drilldown" : "020", + "name" : "#020" }, { - "name" : "#021", "y" : 72, - "drilldown" : "021" + "drilldown" : "021", + "name" : "#021" }, { + "name" : "#022", "drilldown" : "022", - "y" : 68, - "name" : "#022" + "y" : 68 }, { "name" : "#023", @@ -121,29 +130,29 @@ "drilldown" : "023" }, { - "y" : 75, + "name" : "#024", "drilldown" : "024", - "name" : "#024" + "y" : 75 }, { "name" : "#025", - "y" : 59, - "drilldown" : "025" + "drilldown" : "025", + "y" : 59 }, { - "name" : "#026", + "y" : 74, "drilldown" : "026", - "y" : 74 + "name" : "#026" }, { - "name" : "#027", "drilldown" : "027", - "y" : 62 + "y" : 62, + "name" : "#027" }, { "name" : "#028", - "y" : 82, - "drilldown" : "028" + "drilldown" : "028", + "y" : 82 }, { "drilldown" : "029", @@ -151,19 +160,19 @@ "name" : "#029" }, { - "drilldown" : "030", "y" : 119, + "drilldown" : "030", "name" : "#030" }, { - "y" : 91, + "name" : "#031", "drilldown" : "031", - "name" : "#031" + "y" : 91 }, { - "name" : "#032", + "drilldown" : "032", "y" : 96, - "drilldown" : "032" + "name" : "#032" }, { "name" : "#033", @@ -171,39 +180,39 @@ "y" : 112 }, { - "drilldown" : "034", "y" : 66, + "drilldown" : "034", "name" : "#034" }, { + "name" : "#035", "y" : 66, - "drilldown" : "035", - "name" : "#035" + "drilldown" : "035" }, { - "y" : 68, "drilldown" : "036", + "y" : 68, "name" : "#036" }, { - "drilldown" : "037", "y" : 67, + "drilldown" : "037", "name" : "#037" }, { - "drilldown" : "038", "y" : 68, + "drilldown" : "038", "name" : "#038" }, { + "name" : "#039", "drilldown" : "039", - "y" : 62, - "name" : "#039" + "y" : 62 }, { "name" : "#040", - "y" : 73, - "drilldown" : "040" + "drilldown" : "040", + "y" : 73 }, { "name" : "#041", @@ -211,9 +220,9 @@ "y" : 76 }, { - "drilldown" : "042", + "name" : "#042", "y" : 92, - "name" : "#042" + "drilldown" : "042" }, { "y" : 68, @@ -226,14 +235,14 @@ "y" : 85 }, { + "name" : "#045", "drilldown" : "045", - "y" : 96, - "name" : "#045" + "y" : 96 }, { + "name" : "#046", "drilldown" : "046", - "y" : 87, - "name" : "#046" + "y" : 87 }, { "drilldown" : "047", @@ -241,9 +250,9 @@ "name" : "#047" }, { + "name" : "#048", "drilldown" : "048", - "y" : 108, - "name" : "#048" + "y" : 108 }, { "y" : 89, @@ -266,73 +275,73 @@ "drilldown" : "052" }, { - "name" : "#053", "drilldown" : "053", - "y" : 101 + "y" : 101, + "name" : "#053" }, { - "drilldown" : "054", "y" : 103, + "drilldown" : "054", "name" : "#054" }, { - "y" : 88, "drilldown" : "055", + "y" : 88, "name" : "#055" }, { "name" : "#056", - "drilldown" : "056", - |
