diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2021-12-02 02:48:59 +0000 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2021-12-02 02:48:59 +0000 |
| commit | 89ebc73f48247900871275b6f4bd112665c15108 (patch) | |
| tree | 0136e6bb481f5daeb8dd95cb7a9ac80e30978f5c | |
| parent | 4c681bfc1a9df44ad053828f60efbb8d4923ecd6 (diff) | |
| download | perlweeklychallenge-club-89ebc73f48247900871275b6f4bd112665c15108.tar.gz perlweeklychallenge-club-89ebc73f48247900871275b6f4bd112665c15108.tar.bz2 perlweeklychallenge-club-89ebc73f48247900871275b6f4bd112665c15108.zip | |
- Added Perl solutions to week 141.
| -rw-r--r-- | challenge-141/mohammad-anwar/perl/ch-1.pl | 50 | ||||
| -rw-r--r-- | challenge-141/mohammad-anwar/perl/ch-2.pl | 51 | ||||
| -rw-r--r-- | stats/pwc-current.json | 139 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown-summary.json | 70 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown.json | 972 | ||||
| -rw-r--r-- | stats/pwc-leaders.json | 744 | ||||
| -rw-r--r-- | stats/pwc-summary-1-30.json | 100 | ||||
| -rw-r--r-- | stats/pwc-summary-121-150.json | 96 | ||||
| -rw-r--r-- | stats/pwc-summary-151-180.json | 42 | ||||
| -rw-r--r-- | stats/pwc-summary-181-210.json | 42 | ||||
| -rw-r--r-- | stats/pwc-summary-211-240.json | 38 | ||||
| -rw-r--r-- | stats/pwc-summary-241-270.json | 74 | ||||
| -rw-r--r-- | stats/pwc-summary-31-60.json | 114 | ||||
| -rw-r--r-- | stats/pwc-summary-61-90.json | 100 | ||||
| -rw-r--r-- | stats/pwc-summary-91-120.json | 120 | ||||
| -rw-r--r-- | stats/pwc-summary.json | 522 |
16 files changed, 1695 insertions, 1579 deletions
diff --git a/challenge-141/mohammad-anwar/perl/ch-1.pl b/challenge-141/mohammad-anwar/perl/ch-1.pl new file mode 100644 index 0000000000..6cf7326d00 --- /dev/null +++ b/challenge-141/mohammad-anwar/perl/ch-1.pl @@ -0,0 +1,50 @@ +#!/usr/bin/perl + +=head1 + +Week 141: + + https://theweeklychallenge.org/blog/perl-weekly-challenge-141 + +Task #1: Number Divisors + + Write a script to find lowest 10 positive integers having exactly 8 divisors. + +=cut + +use strict; +use warnings; +use Test::More; +use Test::Deep; + +is_deeply( + number_divisors(10, 8), + [24, 30, 40, 42, 54, 56, 66, 70, 78, 88], + 'Example 1' +); + +done_testing; + +sub number_divisors { + my ($count, $number) = @_; + + my @numbers = (); + my $i = 1; + while (@numbers < $count) { + + my @divisors = (); + foreach my $j (1 .. $i) { + if ($i % $j == 0) { + push @divisors, $j; + } + } + + if (@divisors == $number) { + push @numbers, $i; + } + + $i++; + } + + return \@numbers; +} diff --git a/challenge-141/mohammad-anwar/perl/ch-2.pl b/challenge-141/mohammad-anwar/perl/ch-2.pl new file mode 100644 index 0000000000..9f7f428546 --- /dev/null +++ b/challenge-141/mohammad-anwar/perl/ch-2.pl @@ -0,0 +1,51 @@ +#!/usr/bin/perl + +=head1 + +Week 141: + + https://theweeklychallenge.org/blog/perl-weekly-challenge-141 + +Task #2: Like Numbers + + You are given positive integers, $m and $n. + + Write a script to find total count of integers created using the digits of $m which is also divisible by $n. + +=cut + +use strict; +use warnings; +use Test::More; +use Test::Deep; +use Algorithm::Combinatorics qw(combinations); + +is_deeply( + like_numbers(1234, 2), + [2, 4, 12, 14, 24, 34, 124, 134, 234], + 'Example 1' +); + +is_deeply( + like_numbers(768, 4), + [8, 76, 68.], + 'Example 2' +); + +done_testing; + +sub like_numbers { + my ($m, $n) = @_; + + my @numbers = (); + foreach my $i (1 .. length($m)-1) { + foreach my $j (combinations([ split //, $m ], $i)) { + my $k = join('', @$j); + if ($k % $n == 0) { + push @numbers, $k; + } + } + } + + return \@numbers; +} diff --git a/stats/pwc-current.json b/stats/pwc-current.json index f63fb64023..d11fe2e307 100644 --- a/stats/pwc-current.json +++ b/stats/pwc-current.json @@ -1,6 +1,9 @@ { - "legend" : { - "enabled" : 0 + "subtitle" : { + "text" : "[Champions: 16] Last updated at 2021-12-02 02:47:36 GMT" + }, + "title" : { + "text" : "The Weekly Challenge - 141" }, "plotOptions" : { "series" : { @@ -11,30 +14,35 @@ "borderWidth" : 0 } }, - "title" : { - "text" : "The Weekly Challenge - 141" + "xAxis" : { + "type" : "category" + }, + "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 }, "drilldown" : { "series" : [ { + "id" : "Abigail", + "name" : "Abigail", "data" : [ [ "Perl", 2 ] - ], - "id" : "Abigail", - "name" : "Abigail" + ] }, { + "name" : "Alexander Karelas", "data" : [ [ "Perl", 1 ] ], - "id" : "Alexander Karelas", - "name" : "Alexander Karelas" + "id" : "Alexander Karelas" }, { "id" : "Dave Jacoby", @@ -51,14 +59,14 @@ "name" : "Dave Jacoby" }, { - "id" : "E. Choroba", "data" : [ [ "Perl", 2 ] ], - "name" : "E. Choroba" + "name" : "E. Choroba", + "id" : "E. Choroba" }, { "name" : "Flavio Poletti", @@ -79,6 +87,7 @@ "id" : "Flavio Poletti" }, { + "id" : "Laurent Rosenfeld", "data" : [ [ "Perl", @@ -93,10 +102,10 @@ 1 ] ], - "id" : "Laurent Rosenfeld", "name" : "Laurent Rosenfeld" }, { + "id" : "Luca Ferrari", "data" : [ [ "Raku", @@ -107,7 +116,6 @@ 4 ] ], - "id" : "Luca Ferrari", "name" : "Luca Ferrari" }, { @@ -121,37 +129,46 @@ "id" : "Mark Anderson" }, { - "id" : "Niels van Dijke", + "id" : "Mohammad S Anwar", + "name" : "Mohammad S Anwar", + "data" : [ + [ + "Perl", + 2 + ] + ] + }, + { + "name" : "Niels van Dijke", "data" : [ [ "Perl", 2 ] ], - "name" : "Niels van Dijke" + "id" : "Niels van Dijke" }, { "name" : "Paulo Custodio", - "id" : "Paulo Custodio", "data" : [ [ "Perl", 2 ] - ] + ], + "id" : "Paulo Custodio" }, { + "name" : "Robert DiCicco", "data" : [ [ "Perl", 2 ] ], - "id" : "Robert DiCicco", - "name" : "Robert DiCicco" + "id" : "Robert DiCicco" }, { - "id" : "Roger Bell_West", "data" : [ [ "Perl", @@ -162,20 +179,20 @@ 2 ] ], - "name" : "Roger Bell_West" + "name" : "Roger Bell_West", + "id" : "Roger Bell_West" }, { "id" : "Simon Proctor", + "name" : "Simon Proctor", "data" : [ [ "Raku", 2 ] - ], - "name" : "Simon Proctor" + ] }, { - "name" : "Ulrich Rieke", "data" : [ [ "Perl", @@ -186,10 +203,12 @@ 2 ] ], + "name" : "Ulrich Rieke", "id" : "Ulrich Rieke" }, { "id" : "W. Luis Mochan", + "name" : "W. Luis Mochan", "data" : [ [ "Perl", @@ -199,13 +218,19 @@ "Blog", 1 ] - ], - "name" : "W. Luis Mochan" + ] } ] }, + "chart" : { + "type" : "column" + }, + "legend" : { + "enabled" : 0 + }, "series" : [ { + "name" : "The Weekly Challenge - 141", "data" : [ { "drilldown" : "Abigail", @@ -218,19 +243,19 @@ "name" : "Alexander Karelas" }, { + "drilldown" : "Dave Jacoby", "y" : 3, - "name" : "Dave Jacoby", - "drilldown" : "Dave Jacoby" + "name" : "Dave Jacoby" }, { "drilldown" : "E. Choroba", - "y" : 2, - "name" : "E. Choroba" + "name" : "E. Choroba", + "y" : 2 }, { - "drilldown" : "Flavio Poletti", + "y" : 6, "name" : "Flavio Poletti", - "y" : 6 + "drilldown" : "Flavio Poletti" }, { "y" : 5, @@ -238,34 +263,39 @@ "drilldown" : "Laurent Rosenfeld" }, { - "drilldown" : "Luca Ferrari", + "name" : "Luca Ferrari", "y" : 6, - "name" : "Luca Ferrari" + "drilldown" : "Luca Ferrari" }, { + "drilldown" : "Mark Anderson", "name" : "Mark Anderson", - "y" : 2, - "drilldown" : "Mark Anderson" + "y" : 2 }, { - "drilldown" : "Niels van Dijke", - "name" : "Niels van Dijke", + "drilldown" : "Mohammad S Anwar", + "name" : "Mohammad S Anwar", "y" : 2 }, { + "name" : "Niels van Dijke", + "y" : 2, + "drilldown" : "Niels van Dijke" + }, + { "drilldown" : "Paulo Custodio", - "name" : "Paulo Custodio", - "y" : 2 + "y" : 2, + "name" : "Paulo Custodio" }, { - "drilldown" : "Robert DiCicco", + "y" : 2, "name" : "Robert DiCicco", - "y" : 2 + "drilldown" : "Robert DiCicco" }, { - "drilldown" : "Roger Bell_West", "y" : 4, - "name" : "Roger Bell_West" + "name" : "Roger Bell_West", + "drilldown" : "Roger Bell_West" }, { "y" : 2, @@ -273,34 +303,19 @@ "drilldown" : "Simon Proctor" }, { - "name" : "Ulrich Rieke", "y" : 4, + "name" : "Ulrich Rieke", "drilldown" : "Ulrich Rieke" }, { - "drilldown" : "W. Luis Mochan", "name" : "W. Luis Mochan", - "y" : 3 + "y" : 3, + "drilldown" : "W. Luis Mochan" } ], - "name" : "The Weekly Challenge - 141", "colorByPoint" : 1 } ], - "chart" : { - "type" : "column" - }, - "subtitle" : { - "text" : "[Champions: 15] Last updated at 2021-12-02 01:33:03 GMT" - }, - "xAxis" : { - "type" : "category" - }, - "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 - }, "yAxis" : { "title" : { "text" : "Total Solutions" diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json index cbbb742588..ffe1ea3d04 100644 --- a/stats/pwc-language-breakdown-summary.json +++ b/stats/pwc-language-breakdown-summary.json @@ -1,21 +1,24 @@ { - "xAxis" : { - "labels" : { - "style" : { - "fontFamily" : "Verdana, sans-serif", - "fontSize" : "13px" - } + "yAxis" : { + "title" : { + "text" : null }, - "type" : "category" - }, - "subtitle" : { - "text" : "Last updated at 2021-12-02 01:33:03 GMT" - }, - "chart" : { - "type" : "column" + "min" : 0 }, "series" : [ { + "dataLabels" : { + "y" : 10, + "format" : "{point.y:.0f}", + "style" : { + "fontFamily" : "Verdana, sans-serif", + "fontSize" : "13px" + }, + "align" : "right", + "rotation" : -90, + "color" : "#FFFFFF", + "enabled" : "true" + }, "data" : [ [ "Blog", @@ -23,41 +26,38 @@ ], [ "Perl", - 6777 + 6779 ], [ "Raku", 4113 ] ], - "dataLabels" : { - "color" : "#FFFFFF", - "style" : { - "fontFamily" : "Verdana, sans-serif", - "fontSize" : "13px" - }, - "format" : "{point.y:.0f}", - "y" : 10, - "enabled" : "true", - "align" : "right", - "rotation" : -90 - }, "name" : "Contributions" } ], - "yAxis" : { - "title" : { - "text" : null - }, - "min" : 0 + "legend" : { + "enabled" : "false" }, - "tooltip" : { - "pointFormat" : "<b>{point.y:.0f}</b>" + "chart" : { + "type" : "column" }, "title" : { "text" : "The Weekly Challenge Contributions [2019 - 2021]" }, - "legend" : { - "enabled" : "false" + "tooltip" : { + "pointFormat" : "<b>{point.y:.0f}</b>" + }, + "xAxis" : { + "type" : "category", + "labels" : { + "style" : { + "fontSize" : "13px", + "fontFamily" : "Verdana, sans-serif" + } + } + }, + "subtitle" : { + "text" : "Last updated at 2021-12-02 02:47:36 GMT" } } diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json index 432949f4c8..322a6805da 100644 --- a/stats/pwc-language-breakdown.json +++ b/stats/pwc-language-breakdown.json @@ -4,127 +4,114 @@ "text" : "Total Solutions" } }, - "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/>" - }, - "subtitle" : { - "text" : "Click the columns to drilldown the language breakdown. Last updated at 2021-12-02 01:33:03 GMT" - }, - "xAxis" : { - "type" : "category" - }, - "chart" : { - "type" : "column" - }, "series" : [ { + "name" : "The Weekly Challenge Languages", "data" : [ { - "drilldown" : "001", + "y" : 161, "name" : "#001", - "y" : 161 + "drilldown" : "001" }, { + "drilldown" : "002", "y" : 125, - "name" : "#002", - "drilldown" : "002" + "name" : "#002" }, { "drilldown" : "003", - "y" : 83, - "name" : "#003" + "name" : "#003", + "y" : 83 }, { - "drilldown" : "004", "y" : 99, - "name" : "#004" + "name" : "#004", + "drilldown" : "004" }, { + "drilldown" : "005", "y" : 78, - "name" : "#005", - "drilldown" : "005" + "name" : "#005" }, { + "drilldown" : "006", "name" : "#006", - "y" : 58, - "drilldown" : "006" + "y" : 58 }, { "drilldown" : "007", - "y" : 64, - "name" : "#007" + "name" : "#007", + "y" : 64 }, { "drilldown" : "008", - "y" : 78, - "name" : "#008" + "name" : "#008", + "y" : 78 }, { "drilldown" : "009", - "name" : "#009", - "y" : 76 + "y" : 76, + "name" : "#009" }, { "drilldown" : "010", - "y" : 65, - "name" : "#010" + "name" : "#010", + "y" : 65 }, { - "drilldown" : "011", "y" : 85, - "name" : "#011" + "name" : "#011", + "drilldown" : "011" }, { - "drilldown" : "012", + "name" : "#012", "y" : 89, - "name" : "#012" + "drilldown" : "012" }, { "drilldown" : "013", - "name" : "#013", - "y" : 85 + "y" : 85, + "name" : "#013" }, { + "drilldown" : "014", "y" : 101, - "name" : "#014", - "drilldown" : "014" + "name" : "#014" }, { - "name" : "#015", + "drilldown" : "015", "y" : 99, - "drilldown" : "015" + "name" : "#015" }, { - "name" : "#016", + "drilldown" : "016", "y" : 71, - "drilldown" : "016" + "name" : "#016" }, { + "drilldown" : "017", "name" : "#017", - "y" : 84, - "drilldown" : "017" + "y" : 84 }, { + "drilldown" : "018", "y" : 81, - "name" : "#018", - "drilldown" : "018" + "name" : "#018" }, { "drilldown" : "019", - "name" : "#019", - "y" : 103 + "y" : 103, + "name" : "#019" }, { - "y" : 101, + "drilldown" : "020", "name" : "#020", - "drilldown" : "020" + "y" : 101 }, { + "drilldown" : "021", "y" : 72, - "name" : "#021", - "drilldown" : "021" + "name" : "#021" }, { "name" : "#022", @@ -132,24 +119,24 @@ "drilldown" : "022" }, { - "drilldown" : "023", + "y" : 97, "name" : "#023", - "y" : 97 + "drilldown" : "023" }, { + "drilldown" : "024", "name" : "#024", - "y" : 75, - "drilldown" : "024" + "y" : 75 }, { - "drilldown" : "025", "name" : "#025", - "y" : 59 + "y" : 59, + "drilldown" : "025" }, { - "drilldown" : "026", + "name" : "#026", "y" : 74, - "name" : "#026" + "drilldown" : "026" }, { "name" : "#027", @@ -157,59 +144,59 @@ "drilldown" : "027" }, { - "name" : "#028", + "drilldown" : "028", "y" : 80, - "drilldown" : "028" + "name" : "#028" }, { - "drilldown" : "029", + "name" : "#029", "y" : 79, - "name" : "#029" + "drilldown" : "029" }, { + "drilldown" : "030", "name" : "#030", - "y" : 117, - "drilldown" : "030" + "y" : 117 }, { + "drilldown" : "031", "name" : "#031", - "y" : 89, - "drilldown" : "031" + "y" : 89 }, { - "y" : 94, "name" : "#032", + "y" : 94, "drilldown" : "032" }, { + "drilldown" : "033", "name" : "#033", - "y" : 110, - "drilldown" : "033" + "y" : 110 }, { - "y" : 64, "name" : "#034", + "y" : 64, "drilldown" : "034" }, { - "drilldown" : "035", "y" : 64, - "name" : "#035" + "name" : "#035", + "drilldown" : "035" }, { - "drilldown" : "036", "y" : 68, - "name" : "#036" + "name" : "#036", + "drilldown" : "036" }, { "drilldown" : "037", - "y" : 67, - "name" : "#037" + "name" : "#037", + "y" : 67 }, { - "drilldown" : "038", "name" : "#038", - "y" : 68 + "y" : 68, + "drilldown" : "038" }, { "drilldown" : "039", @@ -217,13 +204,13 @@ "name" : "#039" }, { - "drilldown" : "040", "y" : 73, - "name" : "#040" + "name" : "#040", + "drilldown" : "040" }, { - "name" : "#041", "y" : 76, + "name" : "#041", "drilldown" : "041" }, { @@ -237,19 +224,19 @@ "drilldown" : "043" }, { + "drilldown" : "044", "y" : 85, - "name" : "#044", - "drilldown" : "044" + "name" : "#044" }, { + "drilldown" : "045", "name" : "#045", - "y" : 96, - "drilldown" : "045" + "y" : 96 }, { - "drilldown" : "046", + "name" : "#046", "y" : 87, - "name" : "#046" + "drilldown" : "046" }, { "drilldown" : "047", @@ -257,19 +244,19 @@ "y" : 84 }, { - "drilldown" : "048", "name" : "#048", - "y" : 108 + "y" : 108, + "drilldown" : "048" }, { "drilldown" : "049", - "name" : "#049", - "y" : 89 + "y" : 89, + "name" : "#049" }, { - "y" : 98, + "drilldown" : "050", "name" : "#050", - "drilldown" : "050" + "y" : 98 }, { "drilldown" : "051", @@ -287,14 +274,14 @@ "drilldown" : "053" }, { - "name" : "#054", + "drilldown" : "054", "y" : 103, - "drilldown" : "054" + "name" : "#054" }, { + "drilldown" : "055", "name" : "#055", - "y" : 88, - "drilldown" : "055" + "y" : 88 }, { "name" : "#056", @@ -302,19 +289,19 @@ "drilldown" : "056" }, { - "name" : "#057", + "drilldown" : "057", "y" : 80, - "drilldown" : "057" + "name" : "#057" }, { - "y" : 69, + "drilldown" : "058", "name" : "#058", - "drilldown" : "058" + "y" : 69 }, { - "drilldown" : "059", + "y" : 89, "name" : "#059", - "y" : 89 + "drilldown" : "059" }, { "drilldown" : "060", @@ -323,63 +310,63 @@ }, { "drilldown" : "061", - "y" : 81, - "name" : "#061" + "name" : "#061", + "y" : 81 }, { - "drilldown" : "062", "name" : "#062", - "y" : 58 + "y" : 58, + "drilldown" : "062" }, { - "name" : "#063", + "drilldown" : "063", "y" : 89, - "drilldown" : "063" + "name" : "#063" }, { - "drilldown" : "064", "y" : 80, - "name" : "#064" + "name" : "#064", + "drilldown" : "064" }, { - "name" : "#065", + "drilldown" : "065", "y" : 73, - "drilldown" : "065" + "name" : "#065" }, { - "y" : 84, "name" : "#066", + "y" : 84, "drilldown" : "066" }, { + "drilldown" : "067", "y" : 90, - "name" : "#067", - "drilldown" : "067" + "name" : "#067" }, { - "drilldown" : "068", "y" : 75, - "name" : "#068" + "name" : "#068", + "drilldown" : "068" }, { + "drilldown" : "069", "y" : 83, - "name" : "#069", - "drilldown" : "069" + "name" : "#069" }, { - "drilldown" : "070", + "y" : 93, "name" : "#070", - "y" : 93 + "drilldown" : "070" }, { - "drilldown" : "071", "y" : 78, - "name" : "#071" + "name" : "#071", + "drilldown" : "071" }, { - "y" : 112, + "drilldown" : "072", "name" : "#072", - "drilldown" : "072" + "y" : 112 }, { "name" : "#073", @@ -388,28 +375,28 @@ }, { "drilldown" : "074", - "y" : 115, - "name" : "#074" + "name" : "#074", + "y" : 115 }, { - "y" : 115, "name" : "#075", + "y" : 115, "drilldown" : "075" }, { - "drilldown" : "076", + "name" : "#076", "y" : 99, - "name" : "#076" + "drilldown" : "076" }, { - "drilldown" : "077", "name" : "#077", - "y" : 98 + "y" : 98, + "drilldown" : "077" |
