diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2023-01-09 04:42:58 +0000 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2023-01-09 04:42:58 +0000 |
| commit | dfba6f0eceafacc66b4f7c9f99d36014f65fd1f3 (patch) | |
| tree | 4e4e39aff18c3f5ded7ee5b8f6b6ef5ed7cf26fd | |
| parent | 92d610c39dc9a13e73a5b598ba222892ff909b20 (diff) | |
| download | perlweeklychallenge-club-dfba6f0eceafacc66b4f7c9f99d36014f65fd1f3.tar.gz perlweeklychallenge-club-dfba6f0eceafacc66b4f7c9f99d36014f65fd1f3.tar.bz2 perlweeklychallenge-club-dfba6f0eceafacc66b4f7c9f99d36014f65fd1f3.zip | |
- Added solutions by Colin Crain.
| -rwxr-xr-x | challenge-198/colin-crain/perl/ch-1.pl | 78 | ||||
| -rwxr-xr-x | challenge-198/colin-crain/perl/ch-2.pl | 84 | ||||
| -rw-r--r-- | stats/pwc-current.json | 271 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown-summary.json | 38 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown.json | 2728 | ||||
| -rw-r--r-- | stats/pwc-leaders.json | 374 | ||||
| -rw-r--r-- | stats/pwc-summary-1-30.json | 34 | ||||
| -rw-r--r-- | stats/pwc-summary-121-150.json | 112 | ||||
| -rw-r--r-- | stats/pwc-summary-151-180.json | 84 | ||||
| -rw-r--r-- | stats/pwc-summary-181-210.json | 46 | ||||
| -rw-r--r-- | stats/pwc-summary-211-240.json | 94 | ||||
| -rw-r--r-- | stats/pwc-summary-241-270.json | 40 | ||||
| -rw-r--r-- | stats/pwc-summary-271-300.json | 68 | ||||
| -rw-r--r-- | stats/pwc-summary-31-60.json | 122 | ||||
| -rw-r--r-- | stats/pwc-summary-61-90.json | 100 | ||||
| -rw-r--r-- | stats/pwc-summary-91-120.json | 52 | ||||
| -rw-r--r-- | stats/pwc-summary.json | 594 |
17 files changed, 2548 insertions, 2371 deletions
diff --git a/challenge-198/colin-crain/perl/ch-1.pl b/challenge-198/colin-crain/perl/ch-1.pl new file mode 100755 index 0000000000..ca2285b5ff --- /dev/null +++ b/challenge-198/colin-crain/perl/ch-1.pl @@ -0,0 +1,78 @@ +#!/Users/colincrain/perl5/perlbrew/perls/perl-5.32.0/bin/perl
+#
+# .pl
+#
+# Max Gap
+# Submitted by: Mohammad S Anwar
+# You are given a list of integers, @list.
+#
+# Write a script to find the total pairs in the sorted list where 2
+# consecutive elements has the max gap. If the list contains less then
+# 2 elements then return 0.
+#
+#
+# Example 1
+# Input: @list = (2,5,8,1)
+# Output: 2
+#
+# Since the sorted list (1,2,5,8) has 2 such pairs (2,5) and (5,8)
+#
+# Example 2
+# Input: @list = (3)
+# Output: 0
+#
+#
+# © 2022 colin crain
+## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ##
+
+
+
+use warnings;
+use strict;
+use utf8;
+use feature ":5.26";
+use feature qw(signatures);
+no warnings 'experimental::signatures';
+
+
+my @input = scalar @ARGV
+ ? @ARGV
+ : (2,5,8,1) ;
+
+say "input: @input";
+say "output: 0" and exit if scalar @input < 2;
+
+my @max;
+my $span = 0;
+
+for (0..$#input-1) {
+ if ($input[$_+1] - $input[$_] > $span) {
+ $span = $input[$_+1] - $input[$_];
+ @max = [$input[$_], $input[$_+1]];
+ }
+ elsif ($input[$_+1] - $input[$_] == $span) {
+ push @max, [$input[$_], $input[$_+1]];
+ }
+}
+
+local $" = ',';
+say "output: ", join ', ', map { "($_->@*)" } @max;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+# use Test::More;
+#
+# is
+#
+# done_testing();
diff --git a/challenge-198/colin-crain/perl/ch-2.pl b/challenge-198/colin-crain/perl/ch-2.pl new file mode 100755 index 0000000000..7c7fb642b3 --- /dev/null +++ b/challenge-198/colin-crain/perl/ch-2.pl @@ -0,0 +1,84 @@ +#!/Users/colincrain/perl5/perlbrew/perls/perl-5.32.0/bin/perl
+#
+# prime-counting-hours.pl
+#
+# Prime Count
+# Submitted by: Mohammad S Anwar
+# You are given an integer $n > 0.
+#
+# Write a script to print the count of primes less than $n.
+#
+# Example 1
+# Input: $n = 10
+# Output: 4
+#
+# as in there are 4 primes less than 10 are 2, 3, 5, 7.
+#
+# Example 2
+# Input: $n = 15
+# Output: 6
+#
+# Example 3
+# Input: $n = 1
+# Output: 0
+#
+# Example 4
+# Input: $n = 25
+# Output: 9
+#
+# © 2022 colin crain
+## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ##
+
+
+
+use warnings;
+use strict;
+use utf8;
+use feature ":5.26";
+use feature qw(signatures);
+no warnings 'experimental::signatures';
+
+my $n = shift @ARGV // 15;
+
+say pcount_mpu($n);
+
+sub pcount_mpu ($n) {
+ use ntheory qw(primes);
+ my $count = primes($n)->@*;
+ return $count;
+}
+
+sub pcount_sieve($limit) {
+## sieve of Eratosthenes
+ my @s = (1) x $limit;
+ @s[0,1] = (0,0);
+ for my $f (2..sqrt($limit)) {
+ $s[$f * $_] = 0 for $f..$limit/$f;
+ }
+ return grep { $s[$_] } (0..$limit);
+}
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+use Test::More;
+
+is pcount_mpu(15), 6, 'ex-1-mpu';
+is pcount_mpu(1), 0, 'ex-2-mpu';
+is pcount_mpu(25), 9, 'ex-3-mpu';
+
+is pcount_sieve(15), 6, 'ex-1-sieve';
+is pcount_sieve(1), 0, 'ex-2-sieve';
+is pcount_sieve(25), 9, 'ex-3-sieve';
+
+done_testing();
diff --git a/stats/pwc-current.json b/stats/pwc-current.json index 9856380371..4197e0a6ba 100644 --- a/stats/pwc-current.json +++ b/stats/pwc-current.json @@ -1,4 +1,7 @@ { + "chart" : { + "type" : "column" + }, "drilldown" : { "series" : [ { @@ -12,10 +15,11 @@ 2 ] ], - "name" : "Adam Russell", - "id" : "Adam Russell" + "id" : "Adam Russell", + "name" : "Adam Russell" }, { + "name" : "Ali Moradi", "data" : [ [ "Perl", @@ -26,8 +30,7 @@ 2 ] ], - "id" : "Ali Moradi", - "name" : "Ali Moradi" + "id" : "Ali Moradi" }, { "data" : [ @@ -41,7 +44,6 @@ }, { "name" : "Arne Sommer", - "id" : "Arne Sommer", "data" : [ [ "Raku", @@ -51,7 +53,8 @@ "Blog", 1 ] - ] + ], + "id" : "Arne Sommer" }, { "data" : [ @@ -68,8 +71,8 @@ "name" : "Athanasius" }, { - "id" : "Bob Lied", "name" : "Bob Lied", + "id" : "Bob Lied", "data" : [ [ "Perl", @@ -78,34 +81,44 @@ ] }, { + "name" : "Bruce Gray", + "id" : "Bruce Gray", "data" : [ [ "Raku", 2 ] - ], - "name" : "Bruce Gray", - "id" : "Bruce Gray" + ] }, { - "id" : "Carlos Oliveira", - "name" : "Carlos Oliveira", "data" : [ [ "Raku", 2 ] - ] + ], + "id" : "Carlos Oliveira", + "name" : "Carlos Oliveira" }, { - "id" : "Cheok-Yin Fung", "name" : "Cheok-Yin Fung", "data" : [ [ "Perl", 1 ] - ] + ], + "id" : "Cheok-Yin Fung" + }, + { + "data" : [ + [ + "Perl", + 2 + ] + ], + "id" : "Colin Crain", + "name" : "Colin Crain" }, { "data" : [ @@ -118,10 +131,11 @@ 1 ] ], - "name" : "Dave Jacoby", - "id" : "Dave Jacoby" + "id" : "Dave Jacoby", + "name" : "Dave Jacoby" }, { + "name" : "David Ferrone", "data" : [ [ "Perl", @@ -132,18 +146,17 @@ 2 ] ], - "name" : "David Ferrone", "id" : "David Ferrone" }, { + "name" : "Duncan C. White", + "id" : "Duncan C. White", "data" : [ [ "Perl", 2 ] - ], - "id" : "Duncan C. White", - "name" : "Duncan C. White" + ] }, { "data" : [ @@ -156,6 +169,7 @@ "name" : "E. Choroba" }, { + "id" : "Flavio Poletti", "data" : [ [ "Perl", @@ -170,10 +184,10 @@ 2 ] ], - "name" : "Flavio Poletti", - "id" : "Flavio Poletti" + "name" : "Flavio Poletti" }, { + "name" : "James Smith", "data" : [ [ "Perl", @@ -184,12 +198,11 @@ 1 ] ], - "name" : "James Smith", "id" : "James Smith" }, { - "id" : "Jan Krnavek", "name" : "Jan Krnavek", + "id" : "Jan Krnavek", "data" : [ [ "Raku", @@ -199,15 +212,16 @@ }, { "id" : "Jorg Sommrey", - "name" : "Jorg Sommrey", "data" : [ [ "Perl", 2 ] - ] + ], + "name" : "Jorg Sommrey" }, { + "id" : "Laurent Rosenfeld", "data" : [ [ "Perl", @@ -222,12 +236,10 @@ 1 ] ], - "name" : "Laurent Rosenfeld", - "id" : "Laurent Rosenfeld" + "name" : "Laurent Rosenfeld" }, { "name" : "Luca Ferrari", - "id" : "Luca Ferrari", "data" : [ [ "Raku", @@ -237,7 +249,8 @@ "Blog", 6 ] - ] + ], + "id" : "Luca Ferrari" }, { "data" : [ @@ -250,28 +263,28 @@ "name" : "Mark Anderson" }, { + "name" : "Marton Polgar", "data" : [ [ "Raku", 2 ] ], - "name" : "Marton Polgar", "id" : "Marton Polgar" }, { "name" : "Niels van Dijke", - "id" : "Niels van Dijke", "data" : [ [ "Perl", 2 ] - ] + ], + "id" : "Niels van Dijke" }, { - "id" : "Peter Campbell Smith", "name" : "Peter Campbell Smith", + "id" : "Peter Campbell Smith", "data" : [ [ "Perl", @@ -284,26 +297,27 @@ ] }, { + "name" : "Pip Stuart", "data" : [ [ "Perl", 2 ] ], - "id" : "Pip Stuart", - "name" : "Pip Stuart" + "id" : "Pip Stuart" }, { - "name" : "Rawley Fowler", "id" : "Rawley Fowler", "data" : [ [ "Raku", 2 ] - ] + ], + "name" : "Rawley Fowler" }, { + "id" : "Robbie Hatley", "data" : [ [ "Perl", @@ -314,10 +328,10 @@ 1 ] ], - "id" : "Robbie Hatley", "name" : "Robbie Hatley" }, { + "id" : "Robert DiCicco", "data" : [ [ "Perl", @@ -328,12 +342,9 @@ 1 ] ], - "id" : "Robert DiCicco", "name" : "Robert DiCicco" }, { - "id" : "Roger Bell_West", - "name" : "Roger Bell_West", "data" : [ [ "Perl", @@ -347,11 +358,12 @@ "Blog", 1 ] - ] + ], + "id" : "Roger Bell_West", + "name" : "Roger Bell_West" }, { "name" : "Simon Green", - "id" : "Simon Green", "data" : [ [ "Perl", @@ -361,21 +373,21 @@ "Blog", 1 ] - ] + ], + "id" : "Simon Green" }, { + "name" : "Solathian", + "id" : "Solathian", "data" : [ [ "Perl", 2 ] - ], - "name" : "Solathian", - "id" : "Solathian" + ] }, { "id" : "Stephen G. Lynn", - "name" : "Stephen G. Lynn", "data" : [ [ "Perl", @@ -389,9 +401,11 @@ "Blog", 1 ] - ] + ], + "name" : "Stephen G. Lynn" }, { + "id" : "Thomas Kohler", "data" : [ [ "Perl", @@ -402,10 +416,10 @@ 2 ] ], - "id" : "Thomas Kohler", "name" : "Thomas Kohler" }, { + "id" : "Ulrich Rieke", "data" : [ [ "Perl", @@ -416,10 +430,10 @@ 2 ] ], - "id" : "Ulrich Rieke", "name" : "Ulrich Rieke" }, { + "name" : "W. Luis Mochan", "data" : [ [ "Perl", @@ -430,31 +444,36 @@ 1 ] ], - "id" : "W. Luis Mochan", - "name" : "W. Luis Mochan" + "id" : "W. Luis Mochan" } ] }, + "subtitle" : { + "text" : "[Champions: 35] Last updated at 2023-01-09 04:33:43 GMT" + }, + "legend" : { + "enabled" : 0 + }, + "tooltip" : { + "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/>" + }, + "title" : { + "text" : "The Weekly Challenge - 198" + }, "plotOptions" : { "series" : { "dataLabels" : { - "format" : "{point.y}", - "enabled" : 1 + "enabled" : 1, + "format" : "{point.y}" }, "borderWidth" : 0 } }, - "xAxis" : { - "type" : "category" - }, - "title" : { - "text" : "The Weekly Challenge - 198" - }, - "legend" : { - "enabled" : 0 - }, "series" : [ { + "colorByPoint" : 1, "data" : [ { "drilldown" : "Adam Russell", @@ -462,44 +481,49 @@ "name" : "Adam Russell" }, { - "drilldown" : "Ali Moradi", + "y" : 4, "name" : "Ali Moradi", - "y" : 4 + "drilldown" : "Ali Moradi" }, { "drilldown" : "Andrew Grangaard", - "name" : "Andrew Grangaard", - "y" : 2 + "y" : 2, + "name" : "Andrew Grangaard" }, { "drilldown" : "Arne Sommer", - "name" : "Arne Sommer", - "y" : 3 + "y" : 3, + "name" : "Arne Sommer" }, { "drilldown" : "Athanasius", - "name" : "Athanasius", - "y" : 4 + "y" : 4, + "name" : "Athanasius" }, { - "name" : "Bob Lied", "y" : 2, + "name" : "Bob Lied", "drilldown" : "Bob Lied" }, { + "drilldown" : "Bruce Gray", "name" : "Bruce Gray", - "y" : 2, - "drilldown" : "Bruce Gray" + "y" : 2 }, { - "name" : "Carlos Oliveira", + "drilldown" : "Carlos Oliveira", "y" : 2, - "drilldown" : "Carlos Oliveira" + "name" : "Carlos Oliveira" }, { - "y" : 1, + "drilldown" : "Cheok-Yin Fung", "name" : "Cheok-Yin Fung", - "drilldown" : "Cheok-Yin Fung" + "y" : 1 + }, + { + "drilldown" : "Colin Crain", + "y" : 2, + "name" : "Colin Crain" }, { "drilldown" : "Dave Jacoby", @@ -507,14 +531,14 @@ "y" : 3 }, { - "drilldown" : "David Ferrone", "name" : "David Ferrone", - "y" : 4 + "y" : 4, + "drilldown" : "David Ferrone" }, { - "drilldown" : "Duncan C. White", + "y" : 2, "name" : "Duncan C. White", - "y" : 2 + "drilldown" : "Duncan C. White" }, { "drilldown" : "E. Choroba", @@ -523,18 +547,18 @@ }, { "drilldown" : "Flavio Poletti", - "name" : "Flavio Poletti", - "y" : 6 + "y" : 6, + "name" : "Flavio Poletti" }, { - "drilldown" : "James Smith", + "y" : 3, "name" : "James Smith", - "y" : 3 + "drilldown" : "James Smith" }, { "drilldown" : "Jan Krnavek", - "y" : 2, - "name" : "Jan Krnavek" + "name" : "Jan Krnavek", + "y" : 2 }, { "drilldown" : "Jorg Sommrey", @@ -542,24 +566,24 @@ "y" : 2 }, { - "drilldown" : "Laurent Rosenfeld", "y" : 5, - "name" : "Laurent Rosenfeld" + "name" : "Laurent Rosenfeld", + "drilldown" : "Laurent Rosenfeld" }, { + "drilldown" : "Luca Ferrari", "name" : "Luca Ferrari", - "y" : 8, - "drilldown" : "Luca Ferrari" + "y" : 8 }, { - "y" : 2, "name" : "Mark Anderson", + "y" : 2, "drilldown" : "Mark Anderson" }, { "drilldown" : "Marton Polgar", - "y" : 2, - "name" : "Marton Polgar" + "name" : "Marton Polgar", + "y" : 2 }, { "drilldown" : "Niels van Dijke", @@ -567,19 +591,19 @@ "name" : "Niels van Dijke" }, { + "drilldown" : "Peter Campbell Smith", "y" : 3, - "name" : "Peter Campbell Smith", - "drilldown" : "Peter Campbell Smith" + "name" : "Peter Campbell Smith" }, { - "drilldown" : "Pip Stuart", + "name" : "Pip Stuart", "y" : 2, - "name" : "Pip Stuart" + "drilldown" : "Pip Stuart" }, { - "drilldown" : "Rawley Fowler", "name" : "Rawley Fowler", - "y" : 2 + "y" : 2, + "drilldown" : "Rawley Fowler" }, { "y" : 3, @@ -587,24 +611,24 @@ "drilldown" : "Robbie Hatley" }, { - "drilldown" : "Robert DiCicco", "name" : "Robert DiCicco", - "y" : 2 + "y" : 2, + "drilldown" : "Robert DiCicco" }, { + "drilldown" : "Roger Bell_West", "name" : "Roger Bell_West", - "y" : 5, - "drilldown" : "Roger Bell_West" + "y" : 5 }, { + "drilldown" : "Simon Green", "y" : 3, - "name" : "Simon Green", - "drilldown" : "Simon Green" + "name" : "Simon Green" }, { "drilldown" : "Solathian", - "y" : 2, - "name" : "Solathian" + "name" : "Solathian", + "y" : 2 }, { "y" : 5, @@ -617,18 +641,17 @@ "drilldown" : "Thomas Kohler" }, { - "drilldown" : "Ulrich Rieke", "y" : 4, - "name" : "Ulrich Rieke" + "name" : "Ulrich Rieke", + "drilldown" : "Ulrich Rieke" }, { - "y" : 3, + "drilldown" : "W. Luis Mochan", "name" : "W. Luis Mochan", - "drilldown" : "W. Luis Mochan" + "y" : 3 } ], - "name" : "The Weekly Challenge - 198", - "colorByPoint" : 1 + "name" : "The Weekly Challenge - 198" } ], "yAxis" : { @@ -636,15 +659,7 @@ "text" : "Total Solutions" } }, - "chart" : { - "type" : "column" - }, - "subtitle" : { - "text" : "[Champions: 34] Last updated at 2023-01-09 04:19:23 GMT" - }, - "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/>" + "xAxis" : { + "type" : "category" } } diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json index 2951fa408a..f4c4b39c3d 100644 --- a/stats/pwc-language-breakdown-summary.json +++ b/stats/pwc-language-breakdown-summary.json @@ -1,4 +1,19 @@ { + "chart" : { + "type" : "column" + }, + "subtitle" : { + "text" : "Last updated at 2023-01-09 04:33:43 GMT" + }, + "legend" : { + "enabled" : "false" + }, + "tooltip" : { + "pointFormat" : "<b>{point.y:.0f}</b>" + }, + "title" : { + "text" : "The Weekly Challenge Contributions [2019 - 2022]" + }, "series" : [ { "data" : [ @@ -8,7 +23,7 @@ ], [ "Perl", - 9752 + 9754 ], [ "Raku", @@ -17,15 +32,15 @@ ], "dataLabels" : { "color" : "#FFFFFF", + "y" : 10, "align" : "right", + "rotation" : -90, "format" : "{point.y:.0f}", - "enabled" : "true", - "y" : 10, "style" : { "fontSize" : "13px", "fontFamily" : "Verdana, sans-serif" }, - "rotation" : -90 + "enabled" : "true" }, "name" : "Contributions" } @@ -36,9 +51,6 @@ "text" : null } }, - "legend" : { - "enabled" : "false" - }, "xAxis" : { "type" : "category", "labels" : { @@ -47,17 +59,5 @@ "fontSize" : "13px" } } - }, - "title" : { - "text" : "The Weekly Challenge Contributions [2019 - 2022]" - }, - "subtitle" : { - "text" : "Last updated at 2023-01-09 04:19:23 GMT" - }, - "tooltip" : { - "pointFormat" : "<b>{point.y:.0f}</b>" - }, - "chart" : { - "type" : "column" } } diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json index ef85479ae1..01a076b1ba 100644 --- a/stats/pwc-language-breakdown.json +++ b/stats/pwc-language-breakdown.json @@ -1,7 +1,1030 @@ { + "plotOptions" : { + "series" : { + "dataLabels" : { + "enabled" : 1, + "format" : "{point.y}" + }, + "borderWidth" : 0 + } + }, + "title" : { + "text" : "The Weekly Challenge Language" + }, + "xAxis" : { + "type" : "category" + }, + "series" : [ + { + "name" : "The Weekly Challenge Languages", + "colorByPoint" : "true", + "data" : [ + { + "name" : "#001", + "y" : 161, + "drilldown" : "001" + }, + { + "drilldown" : "002", + "y" : 125, + "name" : "#002" + }, + { + "drilldown" : "003", + "y" : 83, + "name" : "#003" + }, + { + "name" : "#004", + "y" : 99, + "drilldown" : "004" + }, + { + "drilldown" : "005", + "name" : "#005", + "y" : 78 + }, + { + "name" : "#006", + "y" : 58, + "drilldown" : "006" + }, + { + "y" : 65, + "name" : "#007", + "drilldown" : "007" + }, + { + "y" : 78, + "name" : "#008", + "drilldown" : "008" + }, + { + "drilldown" : "009", + "name" : "#009", + "y" : 76 + }, + { + "y" : 65, + "name" : "#010", + "drilldown" : "010" + }, + { + "drilldown" : "011", + "name" : "#011", + "y" : 85 + }, + { + "y" : 89, + "name" : "#012", + "drilldown" : "012" + }, + { + "drilldown" : "013", + "y" : 85, + "name" : "#013" + }, + { + "name" : "#014", + "y" : 101, + "drilldown" : "014" + }, + { + "y" : 99, + "name" : "#015", + "drilldown" : "015" + }, + { + "y" : 71, + "name" : "#016", + "drilldown" : "016" + }, + { + "drilldown" : "017", + "name" : "#017", + "y" : 84 + }, + { + "name" : "#018", + "y" : 81, + "drilldown" : "018" + }, + { + "y" : 103, + "name" : "#019", + "drilldown" : "019" + }, + { + "name" : "#020", + "y" : 101, + "drilldown" : "020" + }, + { + "drilldown" : "021", + "name" : "#021", + "y" : 72 + }, + { + "drilldown" : "022", + "y" : 68, + "name" : "#022" |
