diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-11-08 01:43:39 +0000 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-11-08 01:43:39 +0000 |
| commit | 121ff5f29dd53b3cd8814c26a6614d690171ed31 (patch) | |
| tree | d264bb89a63a43d14a882c467deb0f2107f6f770 | |
| parent | e79e878400bd45c53c310e0e08d6233a472f90d0 (diff) | |
| download | perlweeklychallenge-club-121ff5f29dd53b3cd8814c26a6614d690171ed31.tar.gz perlweeklychallenge-club-121ff5f29dd53b3cd8814c26a6614d690171ed31.tar.bz2 perlweeklychallenge-club-121ff5f29dd53b3cd8814c26a6614d690171ed31.zip | |
- Added solutions by Laurent Rosenfeld.
| -rw-r--r-- | challenge-085/laurent-rosenfeld/blog.txt | 1 | ||||
| -rw-r--r-- | challenge-085/laurent-rosenfeld/perl/ch-1.pl | 27 | ||||
| -rw-r--r-- | challenge-085/laurent-rosenfeld/perl/ch-2.pl | 17 | ||||
| -rw-r--r-- | challenge-085/laurent-rosenfeld/raku/ch-1.raku | 15 | ||||
| -rw-r--r-- | challenge-085/laurent-rosenfeld/raku/ch-2.raku | 18 | ||||
| -rw-r--r-- | stats/pwc-current.json | 257 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown-summary.json | 72 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown.json | 566 | ||||
| -rw-r--r-- | stats/pwc-leaders.json | 376 | ||||
| -rw-r--r-- | stats/pwc-summary-1-30.json | 32 | ||||
| -rw-r--r-- | stats/pwc-summary-121-150.json | 30 | ||||
| -rw-r--r-- | stats/pwc-summary-151-180.json | 112 | ||||
| -rw-r--r-- | stats/pwc-summary-181-210.json | 48 | ||||
| -rw-r--r-- | stats/pwc-summary-31-60.json | 38 | ||||
| -rw-r--r-- | stats/pwc-summary-61-90.json | 40 | ||||
| -rw-r--r-- | stats/pwc-summary-91-120.json | 52 | ||||
| -rw-r--r-- | stats/pwc-summary.json | 36 |
17 files changed, 919 insertions, 818 deletions
diff --git a/challenge-085/laurent-rosenfeld/blog.txt b/challenge-085/laurent-rosenfeld/blog.txt new file mode 100644 index 0000000000..a9a381ec0c --- /dev/null +++ b/challenge-085/laurent-rosenfeld/blog.txt @@ -0,0 +1 @@ +http://blogs.perl.org/users/laurent_r/2020/11/perl-weekly-challenge-85-triplet-sum-and-power-of-two-integers.html diff --git a/challenge-085/laurent-rosenfeld/perl/ch-1.pl b/challenge-085/laurent-rosenfeld/perl/ch-1.pl new file mode 100644 index 0000000000..697d9a2478 --- /dev/null +++ b/challenge-085/laurent-rosenfeld/perl/ch-1.pl @@ -0,0 +1,27 @@ +use strict; +use warnings; +use feature "say"; + +my @tests = ([1.2, 0.4, 0.1, 2.5], + [0.2, 1.5, 0.9, 1.1], + [0.5, 1.1, 0.3, 0.7], + [0.7, 4.3, -4.1, 1.1] + ); +for my $R (@tests) { + say "Testing: @$R"; + say test_candidates(@$R); +} +sub test_candidates { + my @in = @_; + for my $i (0..$#in) { + for my $j ($i+1..$#in) { + for my $k ($j+1..$#in) { + my $sum = $in[$i] + $in[$j] + $in[$k]; + next if $sum < 1 or $sum > 2; + say "@in[$i, $j, $k]"; + return 1; + } + } + } + return 0; +} diff --git a/challenge-085/laurent-rosenfeld/perl/ch-2.pl b/challenge-085/laurent-rosenfeld/perl/ch-2.pl new file mode 100644 index 0000000000..fdace0ddde --- /dev/null +++ b/challenge-085/laurent-rosenfeld/perl/ch-2.pl @@ -0,0 +1,17 @@ +use v6; + +my $n = @*ARGS[0] // 15; +sub find-factors ($n is copy) { + my %factors; + my $max = ($n/2).Int; + for 2..$max -> $i { + while $n %% $i { + %factors{$i}++; + $n /= $i; + } + } + say %factors; + return 1 if 1 < [gcd] %factors.values; + return 0; +} +say find-factors $n; diff --git a/challenge-085/laurent-rosenfeld/raku/ch-1.raku b/challenge-085/laurent-rosenfeld/raku/ch-1.raku new file mode 100644 index 0000000000..4a267b3626 --- /dev/null +++ b/challenge-085/laurent-rosenfeld/raku/ch-1.raku @@ -0,0 +1,15 @@ +use v6; + +my @tests = [1.2, 0.4, 0.1, 2.5], + [0.2, 1.5, 0.9, 1.1], + [0.5, 1.1, 0.3, 0.7], + [0.7, 4.3, -0.1, 1.1]; +for @tests -> @R { + my $found = False; + say "Testing: @R[]"; + for @R.combinations(3) -> $candidate { + $found = True and say $candidate + if 1 < $candidate.sum < 2; + } + say +$found; +} diff --git a/challenge-085/laurent-rosenfeld/raku/ch-2.raku b/challenge-085/laurent-rosenfeld/raku/ch-2.raku new file mode 100644 index 0000000000..328ab764f3 --- /dev/null +++ b/challenge-085/laurent-rosenfeld/raku/ch-2.raku @@ -0,0 +1,18 @@ +use v6; + +my $n = @*ARGS[0].Int // 15; +say find-power $n; + +sub find-power (Int $n) { + return 1 if $n == 1; # trivial solution: 1 ** 2 + OUTERLOOP: for 2..$n.sqrt.Int -> $base { + my $exp = 2; + loop { + my $power = $base ** $exp; + return 1 if $power == $n; + next OUTERLOOP if $power > $n; + $exp++; + } + } + return 0; +} diff --git a/stats/pwc-current.json b/stats/pwc-current.json index 7fa64a2556..31a89346f0 100644 --- a/stats/pwc-current.json +++ b/stats/pwc-current.json @@ -1,15 +1,18 @@ { - "xAxis" : { - "type" : "category" - }, - "chart" : { - "type" : "column" - }, "yAxis" : { "title" : { "text" : "Total Solutions" } }, + "chart" : { + "type" : "column" + }, + "title" : { + "text" : "Perl Weekly Challenge - 085" + }, + "xAxis" : { + "type" : "category" + }, "drilldown" : { "series" : [ { @@ -23,7 +26,6 @@ "name" : "Abigail" }, { - "id" : "Andrew Shitov", "data" : [ [ "Raku", @@ -34,9 +36,11 @@ 1 ] ], - "name" : "Andrew Shitov" + "name" : "Andrew Shitov", + "id" : "Andrew Shitov" }, { + "id" : "Arne Sommer", "name" : "Arne Sommer", "data" : [ [ @@ -51,40 +55,40 @@ "Blog", 1 ] - ], - "id" : "Arne Sommer" + ] }, { - "name" : "Cheok-Yin Fung", - "id" : "Cheok-Yin Fung", "data" : [ [ "Perl", 1 ] - ] + ], + "name" : "Cheok-Yin Fung", + "id" : "Cheok-Yin Fung" }, { - "name" : "E. Choroba", "id" : "E. Choroba", "data" : [ [ "Perl", 2 ] - ] + ], + "name" : "E. Choroba" }, { - "name" : "Feng Chang", + "id" : "Feng Chang", "data" : [ [ "Raku", 2 ] ], - "id" : "Feng Chang" + "name" : "Feng Chang" }, { + "name" : "Flavio Poletti", "data" : [ [ "Perl", @@ -95,42 +99,40 @@ 2 ] ], - "id" : "Flavio Poletti", - "name" : "Flavio Poletti" + "id" : "Flavio Poletti" }, { + "id" : "James Smith", + "name" : "James Smith", "data" : [ [ "Perl", 2 ] - ], - "id" : "James Smith", - "name" : "James Smith" + ] }, { - "name" : "Jan Krnavek", - "id" : "Jan Krnavek", "data" : [ [ "Raku", 2 ] - ] + ], + "name" : "Jan Krnavek", + "id" : "Jan Krnavek" }, { + "id" : "Jorg Sommrey", "name" : "Jorg Sommrey", "data" : [ [ "Perl", 2 ] - ], - "id" : "Jorg Sommrey" + ] }, { "name" : "Julio de Castro", - "id" : "Julio de Castro", "data" : [ [ "Perl", @@ -140,51 +142,70 @@ "Raku", 2 ] - ] + ], + "id" : "Julio de Castro" }, { - "name" : "Kang-min Liu", "data" : [ [ "Raku", 2 ] ], + "name" : "Kang-min Liu", "id" : "Kang-min Liu" }, { - "name" : "Lars Thegler", "data" : [ [ "Perl", 2 ] ], + "name" : "Lars Thegler", "id" : "Lars Thegler" }, { - "name" : "Lubos Kolouch", + "data" : [ + [ + "Perl", + 2 + ], + [ + "Raku", + 2 + ], + [ + "Blog", + 1 + ] + ], + "name" : "Laurent Rosenfeld", + "id" : "Laurent Rosenfeld" + }, + { "id" : "Lubos Kolouch", "data" : [ [ "Perl", 2 ] - ] + ], + "name" : "Lubos Kolouch" }, { + "id" : "Mark Anderson", "name" : "Mark Anderson", "data" : [ [ "Raku", 2 ] - ], - "id" : "Mark Anderson" + ] }, { - "name" : "Myoungjin Jeon", "id" : "Myoungjin Jeon", + "name" : "Myoungjin Jeon", "data" : [ [ "Perl", @@ -212,13 +233,13 @@ }, { "id" : "Nuno Vieira", + "name" : "Nuno Vieira", "data" : [ [ "Perl", 2 ] - ], - "name" : "Nuno Vieira" + ] }, { "id" : "Roger Bell_West", @@ -239,7 +260,7 @@ "name" : "Roger Bell_West" }, { - "id" : "Samir Parikh", + "name" : "Samir Parikh", "data" : [ [ "Perl", @@ -250,11 +271,11 @@ 1 ] ], - "name" : "Samir Parikh" + "id" : "Samir Parikh" }, { - "name" : "Shawn Wagner", "id" : "Shawn Wagner", + "name" : "Shawn Wagner", "data" : [ [ "Perl", @@ -263,7 +284,6 @@ ] }, { - "id" : "Simon Green", "data" : [ [ "Perl", @@ -274,7 +294,8 @@ 1 ] ], - "name" : "Simon Green" + "name" : "Simon Green", + "id" : "Simon Green" }, { "name" : "Simon Proctor", @@ -287,27 +308,26 @@ "id" : "Simon Proctor" }, { - "name" : "Steve Rogerson", - "id" : "Steve Rogerson", "data" : [ [ "Perl", 2 ] - ] + ], + "name" : "Steve Rogerson", + "id" : "Steve Rogerson" }, { + "id" : "Stuart Little", + "name" : "Stuart Little", "data" : [ [ "Raku", 2 ] - ], - "id" : "Stuart Little", - "name" : "Stuart Little" + ] }, { - "id" : "Ulrich Rieke", "data" : [ [ "Perl", @@ -318,62 +338,79 @@ 2 ] ], - "name" : "Ulrich Rieke" + "name" : "Ulrich Rieke", + "id" : "Ulrich Rieke" }, { + "name" : "Walt Mankowski", "data" : [ [ "Perl", 2 ] ], - "id" : "Walt Mankowski", - "name" : "Walt Mankowski" + "id" : "Walt Mankowski" } ] }, + "plotOptions" : { + "series" : { + "dataLabels" : { + "enabled" : 1, + "format" : "{point.y}" + }, + "borderWidth" : 0 + } + }, + "subtitle" : { + "text" : "[Champions: 28] Last updated at 2020-11-08 01:43:23 GMT" + }, + "legend" : { + "enabled" : 0 + }, "series" : [ { + "name" : "Perl Weekly Challenge - 085", "data" : [ { - "y" : 2, "drilldown" : "Abigail", + "y" : 2, "name" : "Abigail" }, { - "drilldown" : "Andrew Shitov", + "name" : "Andrew Shitov", "y" : 3, - "name" : "Andrew Shitov" + "drilldown" : "Andrew Shitov" }, { - "name" : "Arne Sommer", + "drilldown" : "Arne Sommer", "y" : 5, - "drilldown" : "Arne Sommer" + "name" : "Arne Sommer" }, { - "name" : "Cheok-Yin Fung", + "drilldown" : "Cheok-Yin Fung", "y" : 1, - "drilldown" : "Cheok-Yin Fung" + "name" : "Cheok-Yin Fung" }, { - "y" : 2, "drilldown" : "E. Choroba", + "y" : 2, "name" : "E. Choroba" }, { "name" : "Feng Chang", - "y" : 2, - "drilldown" : "Feng Chang" + "drilldown" : "Feng Chang", + "y" : 2 }, { - "drilldown" : "Flavio Poletti", "y" : 4, + "drilldown" : "Flavio Poletti", "name" : "Flavio Poletti" }, { "name" : "James Smith", - "y" : 2, - "drilldown" : "James Smith" + "drilldown" : "James Smith", + "y" : 2 }, { "drilldown" : "Jan Krnavek", @@ -386,54 +423,59 @@ "name" : "Jorg Sommrey" }, { - "name" : "Julio de Castro", "drilldown" : "Julio de Castro", - "y" : 4 + "y" : 4, + "name" : "Julio de Castro" }, { "name" : "Kang-min Liu", - "y" : 2, - "drilldown" : "Kang-min Liu" + "drilldown" : "Kang-min Liu", + "y" : 2 }, { + "name" : "Lars Thegler", "y" : 2, - "drilldown" : "Lars Thegler", - "name" : "Lars Thegler" + "drilldown" : "Lars Thegler" + }, + { + "name" : "Laurent Rosenfeld", + "y" : 5, + "drilldown" : "Laurent Rosenfeld" }, { - "y" : 2, "drilldown" : "Lubos Kolouch", + "y" : 2, "name" : "Lubos Kolouch" }, { - "name" : "Mark Anderson", "drilldown" : "Mark Anderson", - "y" : 2 + "y" : 2, + "name" : "Mark Anderson" }, { - "name" : "Myoungjin Jeon", "drilldown" : "Myoungjin Jeon", - "y" : 6 + "y" : 6, + "name" : "Myoungjin Jeon" }, { - "y" : 2, + "name" : "Niels van Dijke", "drilldown" : "Niels van Dijke", - "name" : "Niels van Dijke" + "y" : 2 }, { - "y" : 2, + "name" : "Nuno Vieira", "drilldown" : "Nuno Vieira", - "name" : "Nuno Vieira" + "y" : 2 }, { + "name" : "Roger Bell_West", "drilldown" : "Roger Bell_West", - "y" : 5, - "name" : "Roger Bell_West" + "y" : 5 }, { - "name" : "Samir Parikh", "y" : 3, - "drilldown" : "Samir Parikh" + "drilldown" : "Samir Parikh", + "name" : "Samir Parikh" }, { "name" : "Shawn Wagner", @@ -441,61 +483,42 @@ "y" : 2 }, { - "y" : 3, "drilldown" : "Simon Green", + "y" : 3, "name" : "Simon Green" }, { "name" : "Simon Proctor", - "drilldown" : "Simon Proctor", - "y" : 2 + "y" : 2, + "drilldown" : "Simon Proctor" }, { - "name" : "Steve Rogerson", + "y" : 2, "drilldown" : "Steve Rogerson", - "y" : 2 + "name" : "Steve Rogerson" }, { - "name" : "Stuart Little", "drilldown" : "Stuart Little", - "y" : 2 + "y" : 2, + "name" : "Stuart Little" }, { - "drilldown" : "Ulrich Rieke", + "name" : "Ulrich Rieke", "y" : 4, - "name" : "Ulrich Rieke" + "drilldown" : "Ulrich Rieke" }, { - "drilldown" : "Walt Mankowski", "y" : 2, + "drilldown" : "Walt Mankowski", "name" : "Walt Mankowski" } ], - "colorByPoint" : 1, - "name" : "Perl Weekly Challenge - 085" + "colorByPoint" : 1 } ], - "subtitle" : { - "text" : "[Champions: 27] Last updated at 2020-11-08 01:26:17 GMT" - }, - "title" : { - "text" : "Perl Weekly Challenge - 085" - }, - "legend" : { - "enabled" : 0 - }, - "plotOptions" : { - "series" : { - "borderWidth" : 0, - "dataLabels" : { - "format" : "{point.y}", - "enabled" : 1 - } - } - }, "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/>" + "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/>" } } diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json index 03c92188ed..fd613a54e2 100644 --- a/stats/pwc-language-breakdown-summary.json +++ b/stats/pwc-language-breakdown-summary.json @@ -1,63 +1,63 @@ { + "yAxis" : { + "title" : { + "text" : null + }, + "min" : 0 + }, "title" : { "text" : "Perl Weekly Challenge Contributions [2019 - 2020]" }, - "tooltip" : { - "pointFormat" : "<b>{point.y:.0f}</b>" + "chart" : { + "type" : "column" + }, + "subtitle" : { + "text" : "Last updated at 2020-11-08 01:43:23 GMT" }, "legend" : { "enabled" : "false" }, - "xAxis" : { - "type" : "category", - "labels" : { - "style" : { - "fontFamily" : "Verdana, sans-serif", - "fontSize" : "13px" - } - } + "tooltip" : { + "pointFormat" : "<b>{point.y:.0f}</b>" }, "series" : [ { - "dataLabels" : { - "color" : "#FFFFFF", - "style" : { - "fontFamily" : "Verdana, sans-serif", - "fontSize" : "13px" - }, - "align" : "right", - "enabled" : "true", - "y" : 10, - "format" : "{point.y:.0f}", - "rotation" : -90 - }, + "name" : "Contributions", "data" : [ [ "Blog", - 1086 + 1087 ], [ "Perl", - 3766 + 3768 ], [ "Raku", - 2418 + 2420 ] ], - "name" : "Contributions" + "dataLabels" : { + "style" : { + "fontFamily" : "Verdana, sans-serif", + "fontSize" : "13px" + }, + "enabled" : "true", + "y" : 10, + "color" : "#FFFFFF", + "rotation" : -90, + "format" : "{point.y:.0f}", + "align" : "right" + } } ], - "subtitle" : { - "text" : "Last updated at 2020-11-08 01:26:17 GMT" - }, - "chart" : { - "type" : "column" - }, - "yAxis" : { - "min" : 0, - "title" : { - "text" : null + "xAxis" : { + "type" : "category", + "labels" : { + "style" : { + "fontSize" : "13px", + "fontFamily" : "Verdana, sans-serif" + } } } } diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json index 1f16fe8dfa..aa2b6b6698 100644 --- a/stats/pwc-language-breakdown.json +++ b/stats/pwc-language-breakdown.json @@ -1,32 +1,15 @@ { - "plotOptions" : { - "series" : { - "borderWidth" : 0, - "dataLabels" : { - "format" : "{point.y}", - "enabled" : 1 - } - } - }, - "tooltip" : { - "headerFormat" : "<span style=\"font-size:11px\"></span>", - "followPointer" : "true", - "pointFormat" : "<span style=\"color:{point.color}\">Challenge {point.name}</span>: <b>{point.y:f}</b><br/>" - }, - "legend" : { - "enabled" : "false" - }, "title" : { "text" : "Perl Weekly Challenge Language" }, + "chart" : { + "type" : "column" + }, "yAxis" : { "title" : { "text" : "Total Solutions" } }, - "chart" : { - "type" : "column" - }, "drilldown" : { "series" : [ { @@ -48,7 +31,7 @@ "id" : "001" }, { - "id" : "002", + "name" : "002", "data" : [ [ "Perl", @@ -63,7 +46,7 @@ 10 ] ], - "name" : "002" + "id" : "002" }, { "name" : "003", @@ -84,7 +67,6 @@ "id" : "003" }, { - "id" : "004", "data" : [ [ "Perl", @@ -99,10 +81,11 @@ 10 ] ], - "name" : "004" + "name" : "004", + "id" : "004" }, { - "name" : "005", + "id" : "005", "data" : [ [ "Perl", @@ -117,10 +100,10 @@ 12 ] ], - "id" : "005" + "name" : "005" }, { - "id" : "006", + "name" : "006", "data" : [ [ "Perl", @@ -135,9 +118,10 @@ 7 ] ], - "name" : "006" + "id" : "006" }, { + "id" : "007", "data" : [ [ "Perl", @@ -152,7 +136,6 @@ 10 ] ], - "id" : "007", "name" : "007" }, { @@ -174,6 +157,7 @@ "name" : "008" }, { + "id" : "009", "data" : [ [ "Perl", @@ -188,12 +172,11 @@ 13 ] ], - "id" : "009", "name" : "009" }, { - "name" : "010", "id" : "010", + "name" : "010", "data" : [ [ "Perl", @@ -210,7 +193,7 @@ ] }, { - "id" : "011", + "name" : "011", "data" : [ [ "Perl", @@ -225,7 +208,7 @@ 10 ] ], - "name" : "011" + "id" : "011" }, { "data" : [ @@ -242,11 +225,11 @@ 11 ] ], - "id" : "012", - "name" : "012" + "name" : "012", + "id" : "012" }, { - "id" : "013", + "name" : "013", "data" : [ [ "Perl", @@ -261,7 +244,7 @@ 13 ] ], - "name" : "013" + "id" : "013" }, { "id" : "014", @@ -300,7 +283,6 @@ "id" : "015" }, { - "id" : "016", "data" : [ [ "Perl", @@ -315,11 +297,11 @@ 12 ] ], - "name" : "016" + "name" : "016", + "id" : "016" }, { "name" : "017", - "id" : "017", "data" : [ [ "Perl", @@ -333,11 +315,12 @@ "Blog", 12 ] - ] + ], + "id" : "017" }, { - "name" : "018", "id" : "018", + "name" : "018", "data" : [ [ "Perl", @@ -368,12 +351,12 @@ 13 ] ], - "id" : "019", - "name" : "019" + "name" : "019", + "id" : "019" }, { - "name" : "020", "id" : "020", + "name" : "020", "data" : [ [ "Perl", @@ -404,12 +387,12 @@ 10 ] ], - "id" : "021", - "name" : "021" + "name" : "021", + "id" : "021" }, { - "name" : "022", "id" : "022", + "name" : "022", "data" : [ [ "Perl", @@ -444,6 +427,8 @@ "id" : "023" }, { + "id" : "024", + "name" : "024", "data" : [ [ "Perl", @@ -457,12 +442,9 @@ "Blog", 11 ] - ], - "id" : "024", - "name" : "024" + ] }, { - "name" : "025", "data" : [ [ "Perl", @@ -477,6 +459,7 @@ 12 ] ], + "name" : "025", "id" : "025" }, { @@ -498,6 +481,7 @@ "id" : "026" }, { + "id" : "027", "data" : [ [ "Perl", @@ -512,11 +496,11 @@ |
