diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2022-07-27 21:02:11 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2022-07-27 21:02:11 +0100 |
| commit | 4fcc4e6faca6301608b3777f959573cb0edddffb (patch) | |
| tree | 0e9ac92059b0e72dd70738a6ee90123ddad4a862 | |
| parent | f168a24c6f6e83362aece3e5ff6d483ed749a538 (diff) | |
| download | perlweeklychallenge-club-4fcc4e6faca6301608b3777f959573cb0edddffb.tar.gz perlweeklychallenge-club-4fcc4e6faca6301608b3777f959573cb0edddffb.tar.bz2 perlweeklychallenge-club-4fcc4e6faca6301608b3777f959573cb0edddffb.zip | |
- Added solutions by Laurent Rosenfeld.
| -rw-r--r-- | challenge-175/laurent-rosenfeld/blog.txt | 1 | ||||
| -rw-r--r-- | challenge-175/laurent-rosenfeld/perl/ch-1.pl | 23 | ||||
| -rw-r--r-- | challenge-175/laurent-rosenfeld/perl/ch-2.pl | 29 | ||||
| -rw-r--r-- | challenge-175/laurent-rosenfeld/raku/ch-1.raku | 10 | ||||
| -rw-r--r-- | challenge-175/laurent-rosenfeld/raku/ch-2.raku | 16 | ||||
| -rw-r--r-- | stats/pwc-current.json | 251 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown-summary.json | 58 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown.json | 2476 | ||||
| -rw-r--r-- | stats/pwc-leaders.json | 382 | ||||
| -rw-r--r-- | stats/pwc-summary-1-30.json | 112 | ||||
| -rw-r--r-- | stats/pwc-summary-121-150.json | 124 | ||||
| -rw-r--r-- | stats/pwc-summary-151-180.json | 124 | ||||
| -rw-r--r-- | stats/pwc-summary-181-210.json | 114 | ||||
| -rw-r--r-- | stats/pwc-summary-211-240.json | 116 | ||||
| -rw-r--r-- | stats/pwc-summary-241-270.json | 98 | ||||
| -rw-r--r-- | stats/pwc-summary-31-60.json | 32 | ||||
| -rw-r--r-- | stats/pwc-summary-61-90.json | 44 | ||||
| -rw-r--r-- | stats/pwc-summary-91-120.json | 100 | ||||
| -rw-r--r-- | stats/pwc-summary.json | 568 |
19 files changed, 2390 insertions, 2288 deletions
diff --git a/challenge-175/laurent-rosenfeld/blog.txt b/challenge-175/laurent-rosenfeld/blog.txt new file mode 100644 index 0000000000..238f36a155 --- /dev/null +++ b/challenge-175/laurent-rosenfeld/blog.txt @@ -0,0 +1 @@ +http://blogs.perl.org/users/laurent_r/2022/07/perl-weekly-challenge-175-last-sunday-and-perfect-totient-numbers.html diff --git a/challenge-175/laurent-rosenfeld/perl/ch-1.pl b/challenge-175/laurent-rosenfeld/perl/ch-1.pl new file mode 100644 index 0000000000..06c312f3de --- /dev/null +++ b/challenge-175/laurent-rosenfeld/perl/ch-1.pl @@ -0,0 +1,23 @@ +#!/usr/bin/perl +use strict; +use warnings; +use feature qw/say/; +use Time::Local; + +my $yr = shift // 2022; +my @months = (0, 31, is_leap($yr) ? 29 : 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31); + +for my $month (1..12) { + my $month_last_day = timegm( 0, 0, 0, $months[$month], $month - 1, $yr - 1900 ); + my $day_in_week = (gmtime $month_last_day)[6]; + my $sunday = $months[$month] - ($day_in_week % 7); + printf "%04d/%02d/%02d\n", $yr, $month, $sunday; +} + +sub is_leap { + my $yr = shift; + return 0 if $yr % 4; # no if not divisible by 4 + return 1 if $yr % 100; # yes if divisible by 4 but not by 100 + return 0 if $yr % 400; # no if divisible by 100 and not by 400 + return 1; # yes if divisibe by 400 +} diff --git a/challenge-175/laurent-rosenfeld/perl/ch-2.pl b/challenge-175/laurent-rosenfeld/perl/ch-2.pl new file mode 100644 index 0000000000..1d649e2371 --- /dev/null +++ b/challenge-175/laurent-rosenfeld/perl/ch-2.pl @@ -0,0 +1,29 @@ +# Unoptimized version, don't use it +use strict; +use warnings; +use feature qw/say/; + +sub gcd { + my ($i, $j) = sort { $a <=> $b } @_; + while ($j) { + ($i, $j) = ($j, $i % $j); + } + return $i; +} +sub is_perfect_totient { + my $num = shift; + my $n = $num; + my $sum = 0; + while ($n >= 1) { + $n = scalar grep { gcd( $n, $_) == 1 } 1..$n-1; + $sum += $n; + } + return $num == $sum; +} +my $count = 0; +my $n = 1; +while ($count < 20) { + print "$n " and $count++ if is_perfect_totient $n; + $n++; +} +say ""; diff --git a/challenge-175/laurent-rosenfeld/raku/ch-1.raku b/challenge-175/laurent-rosenfeld/raku/ch-1.raku new file mode 100644 index 0000000000..7bca863550 --- /dev/null +++ b/challenge-175/laurent-rosenfeld/raku/ch-1.raku @@ -0,0 +1,10 @@ +sub MAIN (Int $yr = 2022) { + for ('01'..'09', 10 .. 12).flat -> $month { + my $month-end = Date.new("$yr-$month-01").last-date-in-month; + my $week_day = $month-end.day-of-week; + my $day-in-month = $month-end.day-of-month; + # Note: Sunday is weekday 7 + my $sunday = $day-in-month - ($week_day % 7); + say Date.new("$yr-$month-$sunday"); + } +} diff --git a/challenge-175/laurent-rosenfeld/raku/ch-2.raku b/challenge-175/laurent-rosenfeld/raku/ch-2.raku new file mode 100644 index 0000000000..7e99ac6ce0 --- /dev/null +++ b/challenge-175/laurent-rosenfeld/raku/ch-2.raku @@ -0,0 +1,16 @@ +# Unoptimized version, don't use it +my $count = 0; +for 2..Inf -> $n { + print "$n " and $count++ if is-perfect-totient $n; + last if $count >= 20; +} +say ""; +sub is-perfect-totient ($num) { + my $n = $num; + my $sum = 0; + while $n >= 1 { + $n = (grep { $n gcd $_ == 1 }, 1..^$n).elems; + $sum += $n; + } + return $num == $sum; +} diff --git a/stats/pwc-current.json b/stats/pwc-current.json index b76cf4afe4..82a32caa04 100644 --- a/stats/pwc-current.json +++ b/stats/pwc-current.json @@ -1,112 +1,28 @@ { - "series" : [ - { - "colorByPoint" : 1, - "data" : [ - { - "y" : 2, - "name" : "Dave Cross", - "drilldown" : "Dave Cross" - }, - { - "drilldown" : "E. Choroba", - "name" : "E. Choroba", - "y" : 2 - }, - { - "drilldown" : "Flavio Poletti", - "name" : "Flavio Poletti", - "y" : 6 - }, - { - "name" : "Kjetil Skotheim", - "y" : 2, - "drilldown" : "Kjetil Skotheim" - }, - { - "name" : "Luca Ferrari", - "y" : 8, - "drilldown" : "Luca Ferrari" - }, - { - "name" : "Mark Anderson", - "y" : 2, - "drilldown" : "Mark Anderson" - }, - { - "y" : 2, - "name" : "Mohammad S Anwar", - "drilldown" : "Mohammad S Anwar" - }, - { - "name" : "Peter Campbell Smith", - "y" : 3, - "drilldown" : "Peter Campbell Smith" - }, - { - "name" : "Robert DiCicco", - "y" : 2, - "drilldown" : "Robert DiCicco" - }, - { - "name" : "Roger Bell_West", - "y" : 5, - "drilldown" : "Roger Bell_West" - }, - { - "name" : "Simon Proctor", - "y" : 1, - "drilldown" : "Simon Proctor" - }, - { - "y" : 5, - "name" : "Stephen G Lynn", - "drilldown" : "Stephen G Lynn" - }, - { - "y" : 3, - "name" : "W. Luis Mochan", - "drilldown" : "W. Luis Mochan" - } - ], - "name" : "The Weekly Challenge - 175" - } - ], - "chart" : { - "type" : "column" - }, - "plotOptions" : { - "series" : { - "borderWidth" : 0, - "dataLabels" : { - "format" : "{point.y}", - "enabled" : 1 - } - } - }, "drilldown" : { "series" : [ { "id" : "Dave Cross", + "name" : "Dave Cross", "data" : [ [ "Perl", 2 ] - ], - "name" : "Dave Cross" + ] }, { - "id" : "E. Choroba", "data" : [ [ "Perl", 2 ] ], - "name" : "E. Choroba" + "name" : "E. Choroba", + "id" : "E. Choroba" }, { + "name" : "Flavio Poletti", "data" : [ [ "Perl", @@ -121,12 +37,11 @@ 2 ] ], - "id" : "Flavio Poletti", - "name" : "Flavio Poletti" + "id" : "Flavio Poletti" }, { - "name" : "Kjetil Skotheim", "id" : "Kjetil Skotheim", + "name" : "Kjetil Skotheim", "data" : [ [ "Perl", @@ -135,6 +50,25 @@ ] }, { + "name" : "Laurent Rosenfeld", + "data" : [ + [ + "Perl", + 2 + ], + [ + "Raku", + 2 + ], + [ + "Blog", + 1 + ] + ], + "id" : "Laurent Rosenfeld" + }, + { + "name" : "Luca Ferrari", "data" : [ [ "Raku", @@ -145,20 +79,21 @@ 6 ] ], - "id" : "Luca Ferrari", - "name" : "Luca Ferrari" + "id" : "Luca Ferrari" }, { "name" : "Mark Anderson", - "id" : "Mark Anderson", "data" : [ [ "Blog", 2 ] - ] + ], + "id" : "Mark Anderson" }, { + "id" : "Mohammad S Anwar", + "name" : "Mohammad S Anwar", "data" : [ [ "Perl", @@ -168,12 +103,9 @@ "Raku", 1 ] - ], - "id" : "Mohammad S Anwar", - "name" : "Mohammad S Anwar" + ] }, { - "id" : "Peter Campbell Smith", "data" : [ [ "Perl", @@ -184,7 +116,8 @@ 1 ] ], - "name" : "Peter Campbell Smith" + "name" : "Peter Campbell Smith", + "id" : "Peter Campbell Smith" }, { "name" : "Robert DiCicco", @@ -201,8 +134,8 @@ "id" : "Robert DiCicco" }, { - "name" : "Roger Bell_West", "id" : "Roger Bell_West", + "name" : "Roger Bell_West", "data" : [ [ "Perl", @@ -229,7 +162,7 @@ "name" : "Simon Proctor" }, { - "name" : "Stephen G Lynn", + "id" : "Stephen G Lynn", "data" : [ [ "Perl", @@ -244,9 +177,10 @@ 1 ] ], - "id" : "Stephen G Lynn" + "name" : "Stephen G Lynn" }, { + "id" : "W. Luis Mochan", "name" : "W. Luis Mochan", "data" : [ [ @@ -257,31 +191,120 @@ "Blog", 1 ] - ], - "id" : "W. Luis Mochan" + ] } ] }, - "subtitle" : { - "text" : "[Champions: 13] Last updated at 2022-07-27 10:49:08 GMT" + "plotOptions" : { + "series" : { + "borderWidth" : 0, + "dataLabels" : { + "format" : "{point.y}", + "enabled" : 1 + } + } }, "xAxis" : { "type" : "category" }, - "legend" : { - "enabled" : 0 + "title" : { + "text" : "The Weekly Challenge - 175" }, "yAxis" : { "title" : { "text" : "Total Solutions" } }, + "series" : [ + { + "colorByPoint" : 1, + "name" : "The Weekly Challenge - 175", + "data" : [ + { + "y" : 2, + "drilldown" : "Dave Cross", + "name" : "Dave Cross" + }, + { + "y" : 2, + "name" : "E. Choroba", + "drilldown" : "E. Choroba" + }, + { + "y" : 6, + "name" : "Flavio Poletti", + "drilldown" : "Flavio Poletti" + }, + { + "drilldown" : "Kjetil Skotheim", + "name" : "Kjetil Skotheim", + "y" : 2 + }, + { + "y" : 5, + "drilldown" : "Laurent Rosenfeld", + "name" : "Laurent Rosenfeld" + }, + { + "name" : "Luca Ferrari", + "drilldown" : "Luca Ferrari", + "y" : 8 + }, + { + "name" : "Mark Anderson", + "drilldown" : "Mark Anderson", + "y" : 2 + }, + { + "name" : "Mohammad S Anwar", + "drilldown" : "Mohammad S Anwar", + "y" : 2 + }, + { + "y" : 3, + "drilldown" : "Peter Campbell Smith", + "name" : "Peter Campbell Smith" + }, + { + "y" : 2, + "name" : "Robert DiCicco", + "drilldown" : "Robert DiCicco" + }, + { + "drilldown" : "Roger Bell_West", + "name" : "Roger Bell_West", + "y" : 5 + }, + { + "drilldown" : "Simon Proctor", + "name" : "Simon Proctor", + "y" : 1 + }, + { + "y" : 5, + "drilldown" : "Stephen G Lynn", + "name" : "Stephen G Lynn" + }, + { + "y" : 3, + "name" : "W. Luis Mochan", + "drilldown" : "W. Luis Mochan" + } + ] + } + ], "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/>", - "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/>" }, - "title" : { - "text" : "The Weekly Challenge - 175" + "subtitle" : { + "text" : "[Champions: 14] Last updated at 2022-07-27 20:00:08 GMT" + }, + "legend" : { + "enabled" : 0 + }, + "chart" : { + "type" : "column" } } diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json index ca452c6e23..e766c02d23 100644 --- a/stats/pwc-language-breakdown-summary.json +++ b/stats/pwc-language-breakdown-summary.json @@ -1,58 +1,58 @@ { - "chart" : { - "type" : "column" - }, "series" : [ { + "dataLabels" : { + "style" : { + "fontFamily" : "Verdana, sans-serif", + "fontSize" : "13px" + }, + "y" : 10, + "format" : "{point.y:.0f}", + "rotation" : -90, + "color" : "#FFFFFF", + "enabled" : "true", + "align" : "right" + }, + "name" : "Contributions", "data" : [ [ "Blog", - 2740 + 2741 ], [ "Perl", - 8517 + 8519 ], [ "Raku", - 5069 + 5071 ] - ], - "dataLabels" : { - "style" : { - "fontFamily" : "Verdana, sans-serif", - "fontSize" : "13px" - }, - "y" : 10, - "align" : "right", - "format" : "{point.y:.0f}", - "enabled" : "true", - "color" : "#FFFFFF", - "rotation" : -90 - }, - "name" : "Contributions" + ] } ], - "subtitle" : { - "text" : "Last updated at 2022-07-27 10:49:08 GMT" - }, "tooltip" : { "pointFormat" : "<b>{point.y:.0f}</b>" }, - "title" : { - "text" : "The Weekly Challenge Contributions [2019 - 2022]" + "subtitle" : { + "text" : "Last updated at 2022-07-27 20:00:08 GMT" + }, + "legend" : { + "enabled" : "false" + }, + "chart" : { + "type" : "column" }, "xAxis" : { "type" : "category", "labels" : { "style" : { - "fontFamily" : "Verdana, sans-serif", - "fontSize" : "13px" + "fontSize" : "13px", + "fontFamily" : "Verdana, sans-serif" } } }, - "legend" : { - "enabled" : "false" + "title" : { + "text" : "The Weekly Challenge Contributions [2019 - 2022]" }, "yAxis" : { "title" : { diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json index c216748aa8..6606bc8495 100644 --- a/stats/pwc-language-breakdown.json +++ b/stats/pwc-language-breakdown.json @@ -1,924 +1,9 @@ { - "plotOptions" : { - "series" : { - "dataLabels" : { - "enabled" : 1, - "format" : "{point.y}" - }, - "borderWidth" : 0 - } - }, - "chart" : { - "type" : "column" - }, - "series" : [ - { - "data" : [ - { - "drilldown" : "001", - "y" : 161, - "name" : "#001" - }, - { - "drilldown" : "002", - "y" : 125, - "name" : "#002" - }, - { - "drilldown" : "003", - "y" : 83, - "name" : "#003" - }, - { - "drilldown" : "004", - "y" : 99, - "name" : "#004" - }, - { - "y" : 78, - "name" : "#005", - "drilldown" : "005" - }, - { - "drilldown" : "006", - "name" : "#006", - "y" : 58 - }, - { - "drilldown" : "007", - "name" : "#007", - "y" : 65 - }, - { - "y" : 78, - "name" : "#008", - "drilldown" : "008" - }, - { - "drilldown" : "009", - "y" : 76, - "name" : "#009" - }, - { - "y" : 65, - "name" : "#010", - "drilldown" : "010" - }, - { - "name" : "#011", - "y" : 85, - "drilldown" : "011" - }, - { - "name" : "#012", - "y" : 89, - "drilldown" : "012" - }, - { - "y" : 85, - "name" : "#013", - "drilldown" : "013" - }, - { - "drilldown" : "014", - "name" : "#014", - "y" : 101 - }, - { - "drilldown" : "015", - "y" : 99, - "name" : "#015" - }, - { - "drilldown" : "016", - "y" : 71, - "name" : "#016" - }, - { - "y" : 84, - "name" : "#017", - "drilldown" : "017" - }, - { - "name" : "#018", - "y" : 81, - "drilldown" : "018" - }, - { - "name" : "#019", - "y" : 103, - "drilldown" : "019" - }, - { - "drilldown" : "020", - "name" : "#020", - "y" : 101 - }, - { - "drilldown" : "021", - "y" : 72, - "name" : "#021" - }, - { - "name" : "#022", - "y" : 68, - "drilldown" : "022" - }, - { - "drilldown" : "023", - "y" : 97, - "name" : "#023" - }, - { - "name" : "#024", - "y" : 75, - "drilldown" : "024" - }, - { - "y" : 59, - "name" : "#025", - "drilldown" : "025" - }, - { - "y" : 74, - "name" : "#026", - "drilldown" : "026" - }, - { - "drilldown" : "027", - "name" : "#027", - "y" : 62 - }, - { - "drilldown" : "028", - "y" : 82, - "name" : "#028" - }, - { - "y" : 81, - "name" : "#029", - "drilldown" : "029" - }, - { - "name" : "#030", - "y" : 119, - "drilldown" : "030" - }, - { - "drilldown" : "031", - "y" : 91, - "name" : "#031" - }, - { - "y" : 96, - "name" : "#032", - "drilldown" : "032" - }, - { - "name" : "#033", - "y" : 112, - "drilldown" : "033" - }, - { - "drilldown" : "034", - "name" : "#034", - "y" : 66 - }, - { - "drilldown" : "035", - "y" : 66, - "name" : "#035" - }, - { - "name" : "#036", - "y" : 70, - "drilldown" : "036" - }, - { - "y" : 69, - "name" : "#037", - "drilldown" : "037" - }, - { - "name" : "#038", - "y" : 70, - "drilldown" : "038" - }, - { - "drilldown" : "039", - "name" : "#039", - "y" : 64 - }, - { - "drilldown" : "040", - "name" : "#040", - "y" : 75 - }, - { - "drilldown" : "041", - "name" : "#041", - "y" : 78 - }, - { - "drilldown" : "042", - "name" : "#042", - "y" : 94 - }, - { - "y" : 70, - "name" : "#043", - "drilldown" : "043" - }, - { - "drilldown" : "044", - "y" : 87, - "name" : "#044" - }, - { - "drilldown" : "045", - "y" : 98, - "name" : "#045" - }, - { - "y" : 89, - "name" : "#046", - "drilldown" : "046" - }, - { - "y" : 86, - "name" : "#047", - "drilldown" : "047" - }, - { - "y" : 110, - "name" : "#048", - "drilldown" : "048" - }, - { - "drilldown" : "049", - "name" : "#049", - "y" : 91 - }, - { - "drilldown" : "050", - "name" : "#050", - "y" : 100 - }, - { - "drilldown" : "051", - "name" : "#051", - "y" : 91 - }, - { - "y" : 93, - "name" : "#052", - "drilldown" : "052" - }, - { - "drilldown" : "053", - "y" : 103, - "name" : "#053" - }, - { - "y" : 105, - "name" : "#054", - "drilldown" : "054" - }, - { - "name" : "#055", - "y" : 90, - "drilldown" : "055" - }, - { - "y" : 97, - "name" : "#056", - "drilldown" : "056" - }, - { - "drilldown" : "057", - "name" : "#057", - "y" : 82 - }, - { - "y" : 71, - "name" : "#058", - "drilldown" : "058" - }, - { - "name" : "#059", - "y" : 91, - "drilldown" : "059" - }, - { - "name" : "#060", - "y" : 87, - "drilldown" : "060" - }, - { - "drilldown" : "061", - "y" : 83, - "name" : "#061" - }, - { - "drilldown" : "062", - "name" : "#062", - "y" : 60 - }, - { - "name" : "#063", - "y" : 91, - "drilldown" : "063" - }, - { - "y" : 82, - "name" : "#064", - "drilldown" : "064" - }, - { - "y" : 75, - "name" : "#065", - "drilldown" : "065" - }, - { - "y" : 86, - "name" : "#066", - "drilldown" : "066" - }, - { - "name" : "#067", - "y" : 92, - "drilldown" : "067" - }, - { - "name" : "#068", - "y" : 77, - "drilldown" : "068" - }, - { - "y" : 85, - "name" : "#069", - "drilldown" : "069" - }, - { - "drilldown" : "070", - "name" : "#070", - "y" : 95 - }, - { - "name" : "#071", - "y" : 80, - "drilldown" : "071" - }, - { - "name" : "#072", - "y" : 114, - "drilldown" : "072" - }, - { - "drilldown" : "073", - "name" : "#073", - "y" : 112 - }, - { - "name" : "#074", - "y" : 117, - "drilldown" : "074" - }, - { - "drilldown" : "075", - "y" : 117, - "name" : "#075" - }, - { - "drilldown" : "076", - "y" : 101, - "name" : "#076" - }, - { - "drilldown" : "077", - "name" : "#077", - "y" : 100 - }, - { - "drilldown" : "078", - "name" : "#078", - "y" : 127 - }, - { - "name" : "#079", - "y" : 122, - "drilldown" : "079" - }, - { - "name" : "#080", - "y" : 127, - "drilldown" : "080" - }, - { - "name" : "#081", - "y" : 114, - "drilldown" : "081" - }, - { - "name" : "#082", - "y" : 114, - "drilldown" : "082" - }, - { - "drilldown" : "083", - "name" : "#083", - "y" : 127 - }, - { - "drilldown" : "084", - "y" : 119, - "name" : "#084" - }, - { - "y" : 114, - "name" : "#085", - "drilldown" : "085" - }, - { - "name" : "#086", - "y" : 104, |
