diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-09-23 01:45:08 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-09-23 01:45:08 +0100 |
| commit | de7d0b7df0a02c3c79f30f84ef76078168df4a58 (patch) | |
| tree | 382a0037346d5f50785c118bb63317ff4cb4ac75 | |
| parent | eab8e35282ab29904a9e6d430defdb30849766ce (diff) | |
| download | perlweeklychallenge-club-de7d0b7df0a02c3c79f30f84ef76078168df4a58.tar.gz perlweeklychallenge-club-de7d0b7df0a02c3c79f30f84ef76078168df4a58.tar.bz2 perlweeklychallenge-club-de7d0b7df0a02c3c79f30f84ef76078168df4a58.zip | |
- Added solutions by Colin Crain.
| -rw-r--r-- | challenge-026/colin-crain/perl5/ch-1.pl | 35 | ||||
| -rw-r--r-- | challenge-026/colin-crain/perl5/ch-2.pl | 57 | ||||
| -rw-r--r-- | stats/pwc-current.json | 363 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown-summary.json | 44 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown.json | 196 | ||||
| -rw-r--r-- | stats/pwc-leaders.json | 834 | ||||
| -rw-r--r-- | stats/pwc-summary-1-30.json | 34 | ||||
| -rw-r--r-- | stats/pwc-summary-31-60.json | 110 | ||||
| -rw-r--r-- | stats/pwc-summary-61-90.json | 112 | ||||
| -rw-r--r-- | stats/pwc-summary-91-120.json | 98 | ||||
| -rw-r--r-- | stats/pwc-summary.json | 278 |
11 files changed, 1134 insertions, 1027 deletions
diff --git a/challenge-026/colin-crain/perl5/ch-1.pl b/challenge-026/colin-crain/perl5/ch-1.pl new file mode 100644 index 0000000000..8850b2c724 --- /dev/null +++ b/challenge-026/colin-crain/perl5/ch-1.pl @@ -0,0 +1,35 @@ +#! /opt/local/bin/perl +# +# stones_and_jewels.pl +# +# task:Create a script that accepts two strings, let us call it, +# “stones” and “jewels”. It should print the count of “alphabet” +# from the string “stones” found in the string “jewels”. For +# example, if your stones is “chancellor” and “jewels” is +# “chocolate”, then the script should print “8”. To keep it +# simple, only A-Z,a-z characters are acceptable. Also make the +# comparison case sensitive. +# +# 2019 colin crain +## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## + + + +use warnings; +use strict; +use feature ":5.26"; + +## ## ## ## ## MAIN + +my ($stone, $jewel) = @ARGV; +my $jewels = { map { $_, 1 } (split //, $jewel) }; +my @gravel = split //, $stone; +my $result = scalar (grep { $jewels->{$_} } @gravel); +say $result; + +## this could alternately be done in just two lines: + +# my $jewels = { map { $_, 1 } (split //, $ARGV[1]) }; +# say scalar (grep { $jewels->{$_} } (split //, $ARGV[0])); + + diff --git a/challenge-026/colin-crain/perl5/ch-2.pl b/challenge-026/colin-crain/perl5/ch-2.pl new file mode 100644 index 0000000000..763bc30e70 --- /dev/null +++ b/challenge-026/colin-crain/perl5/ch-2.pl @@ -0,0 +1,57 @@ +#! /opt/local/bin/perl +# +# mean_angles.pl +# +# task: Create a script that prints mean angles of the given list of angles in degrees. +# +# usage: mean_angles.pl angle1 angle2 angle3 +# +# 2019 colin crain +## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## + +use warnings; +use strict; +use feature ":5.26"; + +use List::Util qw( reduce ); + +my $pi = 3.14159265358979; + +## ## ## ## ## MAIN + +## the angles are fed to the program in degrees, but Perl's trig functions want radians +my @angles = map { deg2rad($_) } @ARGV; + +## first we convert to polar, r->(cos r, sin r) +## summing and dividing the coordinates to provide the average +## then use atan2(y,x) to get the result in radians + +## this works well: +# my ($sumx, $sumy); +# for my $angle ( @angles ) { +# $sumx += cos $angle; +# $sumy += sin $angle; +# } +# my $v_avg = atan2( $sumy/(scalar @angles), $sumx/(scalar @angles) ); + +## but I like this more: +my $x = (reduce {$a + cos $b} 0, @angles) / scalar @angles; +my $y = (reduce {$a + sin $b} 0, @angles) / scalar @angles; +my $v_avg = atan2( $y, $x ); + +## convert back to degrees +say rad2deg( $v_avg ); + + + +## ## ## ## ## SUBS + +sub deg2rad { + return ($_[0]/180) * $pi; +} + +sub rad2deg { + return ($_[0]/$pi) * 180; +} + + diff --git a/stats/pwc-current.json b/stats/pwc-current.json index 78e0f6d774..45015c01d4 100644 --- a/stats/pwc-current.json +++ b/stats/pwc-current.json @@ -1,129 +1,15 @@ { - "subtitle" : { - "text" : "[Champions: 21] Last updated at 2019-09-23 00:23:18 GMT" + "title" : { + "text" : "Perl Weekly Challenge - 026" }, - "series" : [ - { - "data" : [ - { - "y" : 3, - "drilldown" : "Adam Russell", - "name" : "Adam Russell" - }, - { - "drilldown" : "Andrezgz", - "name" : "Andrezgz", - "y" : 2 - }, - { - "y" : 3, - "drilldown" : "Arne Sommer", - "name" : "Arne Sommer" - }, - { - "y" : 4, - "name" : "Athanasius", - "drilldown" : "Athanasius" - }, - { - "y" : 2, - "name" : "Daniel Mantovani", - "drilldown" : "Daniel Mantovani" - }, - { - "drilldown" : "Donald Hunter", - "name" : "Donald Hunter", - "y" : 2 - }, - { - "y" : 2, - "name" : "Duane Powell", - "drilldown" : "Duane Powell" - }, - { - "y" : 3, - "name" : "E. Choroba", - "drilldown" : "E. Choroba" - }, - { - "name" : "Jaldhar H. Vyas", - "drilldown" : "Jaldhar H. Vyas", - "y" : 5 - }, - { - "name" : "Joelle Maslak", - "drilldown" : "Joelle Maslak", - "y" : 4 - }, - { - "y" : 5, - "drilldown" : "Laurent Rosenfeld", - "name" : "Laurent Rosenfeld" - }, - { - "name" : "Lubos Kolouch", - "drilldown" : "Lubos Kolouch", - "y" : 2 - }, - { - "y" : 2, - "drilldown" : "Mark Senn", - "name" : "Mark Senn" - }, - { - "y" : 2, - "drilldown" : "Markus Holzer", - "name" : "Markus Holzer" - }, - { - "y" : 2, - "drilldown" : "Noud", - "name" : "Noud" - }, - { - "y" : 2, - "name" : "Ozzy", - "drilldown" : "Ozzy" - }, - { - "drilldown" : "Roger Bell West", - "name" : "Roger Bell West", - "y" : 5 - }, - { - "drilldown" : "Ruben Westerberg", - "name" : "Ruben Westerberg", - "y" : 4 - }, - { - "y" : 2, - "drilldown" : "Simon Proctor", - "name" : "Simon Proctor" - }, - { - "name" : "Steven Wilson", - "drilldown" : "Steven Wilson", - "y" : 2 - }, - { - "y" : 4, - "drilldown" : "Yet Ebreo", - "name" : "Yet Ebreo" - } - ], - "name" : "Perl Weekly Challenge - 026", - "colorByPoint" : 1 - } - ], - "yAxis" : { - "title" : { - "text" : "Total Solutions" - } + "tooltip" : { + "followPointer" : 1, + "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/>" }, "drilldown" : { "series" : [ { - "id" : "Adam Russell", "data" : [ [ "Perl 5", @@ -134,19 +20,21 @@ 1 ] ], - "name" : "Adam Russell" + "name" : "Adam Russell", + "id" : "Adam Russell" }, { "id" : "Andrezgz", + "name" : "Andrezgz", "data" : [ [ "Perl 5", 2 ] - ], - "name" : "Andrezgz" + ] }, { + "name" : "Arne Sommer", "id" : "Arne Sommer", "data" : [ [ @@ -157,11 +45,9 @@ "Blog", 1 ] - ], - "name" : "Arne Sommer" + ] }, { - "name" : "Athanasius", "data" : [ [ "Perl 5", @@ -172,17 +58,28 @@ 2 ] ], + "name" : "Athanasius", "id" : "Athanasius" }, { + "id" : "Colin Crain", + "name" : "Colin Crain", + "data" : [ + [ + "Perl 5", + 2 + ] + ] + }, + { "data" : [ [ "Perl 5", 2 ] ], - "name" : "Daniel Mantovani", - "id" : "Daniel Mantovani" + "id" : "Daniel Mantovani", + "name" : "Daniel Mantovani" }, { "data" : [ @@ -195,22 +92,22 @@ 1 ] ], - "name" : "Donald Hunter", - "id" : "Donald Hunter" + "id" : "Donald Hunter", + "name" : "Donald Hunter" }, { - "id" : "Duane Powell", "data" : [ [ "Perl 5", 2 ] ], + "id" : "Duane Powell", "name" : "Duane Powell" }, { - "id" : "E. Choroba", "name" : "E. Choroba", + "id" : "E. Choroba", "data" : [ [ "Perl 5", @@ -223,6 +120,7 @@ ] }, { + "name" : "Jaldhar H. Vyas", "id" : "Jaldhar H. Vyas", "data" : [ [ @@ -237,12 +135,11 @@ "Blog", 1 ] - ], - "name" : "Jaldhar H. Vyas" + ] }, { - "id" : "Joelle Maslak", "name" : "Joelle Maslak", + "id" : "Joelle Maslak", "data" : [ [ "Perl 5", @@ -255,8 +152,6 @@ ] }, { - "id" : "Laurent Rosenfeld", - "name" : "Laurent Rosenfeld", "data" : [ [ "Perl 5", @@ -270,60 +165,61 @@ "Blog", 1 ] - ] + ], + "id" : "Laurent Rosenfeld", + "name" : "Laurent Rosenfeld" }, { - "id" : "Lubos Kolouch", - "name" : "Lubos Kolouch", "data" : [ [ "Perl 5", 2 ] - ] + ], + "id" : "Lubos Kolouch", + "name" : "Lubos Kolouch" }, { - "id" : "Mark Senn", "data" : [ [ "Perl 6", 2 ] ], + "id" : "Mark Senn", "name" : "Mark Senn" }, { - "name" : "Markus Holzer", "data" : [ [ "Perl 6", 2 ] ], + "name" : "Markus Holzer", "id" : "Markus Holzer" }, { - "id" : "Noud", - "name" : "Noud", "data" : [ [ "Perl 6", 2 ] - ] + ], + "id" : "Noud", + "name" : "Noud" }, { - "name" : "Ozzy", "data" : [ [ "Perl 6", 2 ] ], - "id" : "Ozzy" + "id" : "Ozzy", + "name" : "Ozzy" }, { - "name" : "Roger Bell West", "data" : [ [ "Perl 5", @@ -338,10 +234,10 @@ 1 ] ], - "id" : "Roger Bell West" + "id" : "Roger Bell West", + "name" : "Roger Bell West" }, { - "id" : "Ruben Westerberg", "data" : [ [ "Perl 5", @@ -352,16 +248,17 @@ 2 ] ], - "name" : "Ruben Westerberg" + "name" : "Ruben Westerberg", + "id" : "Ruben Westerberg" }, { - "id" : "Simon Proctor", "data" : [ [ "Perl 6", 2 ] ], + "id" : "Simon Proctor", "name" : "Simon Proctor" }, { @@ -371,12 +268,10 @@ 2 ] ], - "name" : "Steven Wilson", - "id" : "Steven Wilson" + "id" : "Steven Wilson", + "name" : "Steven Wilson" }, { - "id" : "Yet Ebreo", - "name" : "Yet Ebreo", "data" : [ [ "Perl 5", @@ -386,34 +281,154 @@ "Perl 6", 2 ] - ] + ], + "name" : "Yet Ebreo", + "id" : "Yet Ebreo" } ] }, - "title" : { - "text" : "Perl Weekly Challenge - 026" + "series" : [ + { + "name" : "Perl Weekly Challenge - 026", + "data" : [ + { + "name" : "Adam Russell", + "drilldown" : "Adam Russell", + "y" : 3 + }, + { + "drilldown" : "Andrezgz", + "name" : "Andrezgz", + "y" : 2 + }, + { + "name" : "Arne Sommer", + "drilldown" : "Arne Sommer", + "y" : 3 + }, + { + "y" : 4, + "drilldown" : "Athanasius", + "name" : "Athanasius" + }, + { + "name" : "Colin Crain", + "drilldown" : "Colin Crain", + "y" : 2 + }, + { + "y" : 2, + "drilldown" : "Daniel Mantovani", + "name" : "Daniel Mantovani" + }, + { + "name" : "Donald Hunter", + "drilldown" : "Donald Hunter", + "y" : 2 + }, + { + "y" : 2, + "drilldown" : "Duane Powell", + "name" : "Duane Powell" + }, + { + "y" : 3, + "drilldown" : "E. Choroba", + "name" : "E. Choroba" + }, + { + "drilldown" : "Jaldhar H. Vyas", + "name" : "Jaldhar H. Vyas", + "y" : 5 + }, + { + "drilldown" : "Joelle Maslak", + "name" : "Joelle Maslak", + "y" : 4 + }, + { + "drilldown" : "Laurent Rosenfeld", + "name" : "Laurent Rosenfeld", + "y" : 5 + }, + { + "name" : "Lubos Kolouch", + "drilldown" : "Lubos Kolouch", + "y" : 2 + }, + { + "name" : "Mark Senn", + "drilldown" : "Mark Senn", + "y" : 2 + }, + { + "drilldown" : "Markus Holzer", + "name" : "Markus Holzer", + "y" : 2 + }, + { + "drilldown" : "Noud", + "name" : "Noud", + "y" : 2 + }, + { + "drilldown" : "Ozzy", + "name" : "Ozzy", + "y" : 2 + }, + { + "y" : 5, + "drilldown" : "Roger Bell West", + "name" : "Roger Bell West" + }, + { + "y" : 4, + "name" : "Ruben Westerberg", + "drilldown" : "Ruben Westerberg" + }, + { + "y" : 2, + "name" : "Simon Proctor", + "drilldown" : "Simon Proctor" + }, + { + "y" : 2, + "drilldown" : "Steven Wilson", + "name" : "Steven Wilson" + }, + { + "y" : 4, + "name" : "Yet Ebreo", + "drilldown" : "Yet Ebreo" + } + ], + "colorByPoint" : 1 + } + ], + "legend" : { + "enabled" : 0 }, "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 - }, - "chart" : { - "type" : "column" - }, "plotOptions" : { "series" : { - "borderWidth" : 0, "dataLabels" : { - "enabled" : 1, - "format" : "{point.y}" - } + "format" : "{point.y}", + "enabled" : 1 + }, + "borderWidth" : 0 } }, - "legend" : { - "enabled" : 0 + "yAxis" : { + "title" : { + "text" : "Total Solutions" + } + }, + "subtitle" : { + "text" : "[Champions: 22] Last updated at 2019-09-23 00:44:37 GMT" + }, + "chart" : { + "type" : "column" } } diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json index 3fb756d1de..f232204630 100644 --- a/stats/pwc-language-breakdown-summary.json +++ b/stats/pwc-language-breakdown-summary.json @@ -1,18 +1,9 @@ { - "tooltip" : { - "pointFormat" : "<b>{point.y:.0f}</b>" - }, - "yAxis" : { - "title" : { - "text" : null - }, - "min" : 0 - }, "subtitle" : { - "text" : "Last updated at 2019-09-23 00:23:25 GMT" + "text" : "Last updated at 2019-09-23 00:44:50 GMT" }, - "title" : { - "text" : "Perl Weekly Challenge Contributions - 2019" + "chart" : { + "type" : "column" }, "xAxis" : { "type" : "category", @@ -23,8 +14,14 @@ } } }, - "legend" : { - "enabled" : "false" + "tooltip" : { + "pointFormat" : "<b>{point.y:.0f}</b>" + }, + "yAxis" : { + "title" : { + "text" : null + }, + "min" : 0 }, "series" : [ { @@ -36,7 +33,7 @@ ], [ "Perl 5", - 1059 + 1061 ], [ "Perl 6", @@ -44,20 +41,23 @@ ] ], "dataLabels" : { - "enabled" : "true", - "rotation" : -90, - "y" : 10, - "format" : "{point.y:.0f}", - "align" : "right", "style" : { "fontFamily" : "Verdana, sans-serif", "fontSize" : "13px" }, + "rotation" : -90, + "align" : "right", + "y" : 10, + "format" : "{point.y:.0f}", + "enabled" : "true", "color" : "#FFFFFF" } } ], - "chart" : { - "type" : "column" + "legend" : { + "enabled" : "false" + }, + "title" : { + "text" : "Perl Weekly Challenge Contributions - 2019" } } diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json index aa20fe011e..d5b45d5d20 100644 --- a/stats/pwc-language-breakdown.json +++ b/stats/pwc-language-breakdown.json @@ -1,19 +1,7 @@ { - "xAxis" : { - "type" : "category" - }, "title" : { "text" : "Perl Weekly Challenge Language" }, - "plotOptions" : { - "series" : { - "borderWidth" : 0, - "dataLabels" : { - "enabled" : 1, - "format" : "{point.y}" - } - } - }, "legend" : { "enabled" : "false" }, @@ -23,18 +11,18 @@ "name" : "Perl Weekly Challenge Languages", "data" : [ { - "drilldown" : "001", "name" : "#001", + "drilldown" : "001", "y" : 132 }, { - "y" : 104, "name" : "#002", - "drilldown" : "002" + "drilldown" : "002", + "y" : 104 }, { - "name" : "#003", "y" : 66, + "name" : "#003", "drilldown" : "003" }, { @@ -43,19 +31,19 @@ "drilldown" : "004" }, { + "y" : 66, "drilldown" : "005", - "name" : "#005", - "y" : 66 + "name" : "#005" }, { "y" : 47, - "name" : "#006", - "drilldown" : "006" + "drilldown" : "006", + "name" : "#006" }, { + "name" : "#007", "drilldown" : "007", - "y" : 55, - "name" : "#007" + "y" : 55 }, { "y" : 69, @@ -64,13 +52,13 @@ }, { "name" : "#009", - "y" : 68, - "drilldown" : "009" + "drilldown" : "009", + "y" : 68 }, { "y" : 60, - "name" : "#010", - "drilldown" : "010" + "drilldown" : "010", + "name" : "#010" }, { "y" : 78, @@ -78,49 +66,49 @@ "drilldown" : "011" }, { - "drilldown" : "012", + "y" : 83, "name" : "#012", - "y" : 83 + "drilldown" : "012" }, { "drilldown" : "013", - "y" : 76, - "name" : "#013" + "name" : "#013", + "y" : 76 }, { + "drilldown" : "014", "name" : "#014", - "y" : 95, - "drilldown" : "014" + "y" : 95 }, { - "drilldown" : "015", "y" : 93, - "name" : "#015" + "name" : "#015", + "drilldown" : "015" }, { - "drilldown" : "016", "name" : "#016", + "drilldown" : "016", "y" : 66 }, { + "y" : 79, "drilldown" : "017", - "name" : "#017", - "y" : 79 + "name" : "#017" }, { - "y" : 76, + "drilldown" : "018", "name" : "#018", - "drilldown" : "018" + "y" : 76 }, { - "name" : "#019", "y" : 95, + "name" : "#019", "drilldown" : "019" }, { + "drilldown" : "020", "name" : "#020", - "y" : 95, - "drilldown" : "020" + "y" : 95 }, { "drilldown" : "021", @@ -128,14 +116,14 @@ "y" : 67 }, { - "name" : "#022", "y" : 63, + "name" : "#022", "drilldown" : "022" }, { - "drilldown" : "023", + "y" : 91, "name" : "#023", - "y" : 91 + "drilldown" : "023" }, { "drilldown" : "024", @@ -148,20 +136,17 @@ "y" : 53 }, { - "drilldown" : "026", "name" : "#026", - "y" : 63 + "drilldown" : "026", + "y" : 65 } ] } ], - "chart" : { - "type" : "column" - }, "drilldown" : { "series" : [ { - "id" : "001", + "name" : "001", "data" : [ [ "Perl 5", @@ -176,10 +161,10 @@ 11 ] ], - "name" : "001" + "id" : "001" }, { - "id" : "002", + "name" : "002", "data" : [ [ "Perl 5", @@ -194,10 +179,10 @@ 9 ] ], - "name" : "002" + "id" : "002" }, { - "id" : "003", + "name" : "003", "data" : [ [ "Perl 5", @@ -212,7 +197,7 @@ 8 ] ], - "name" : "003" + "id" : "003" }, { "id" : "004", @@ -233,8 +218,6 @@ "name" : "004" }, { - "name" : "005", - "id" : "005", "data" : [ [ "Perl 5", @@ -248,10 +231,11 @@ "Blog", 11 ] - ] + ], + "id" : "005", + "name" : "005" }, { - "name" : "006", "data" : [ [ "Perl 5", @@ -266,10 +250,10 @@ 6 ] ], + "name" : "006", "id" : "006" }, { - "id" : "007", "data" : [ [ "Perl 5", @@ -284,9 +268,11 @@ 9 ] ], + "id" : "007", "name" : "007" }, { + "name" : "008", "data" : [ [ "Perl 5", @@ -301,11 +287,9 @@ 11 ] ], - "id" : "008", - "name" : "008" + "id" : "008" }, { - "name" : "009", "id" : "009", "data" : [ [ @@ -320,9 +304,11 @@ "Blog", 13 ] - ] + ], + "name" : "009" }, { + "name" : "010", "data" : [ [ "Perl 5", @@ -337,11 +323,9 @@ 11 ] ], - "id" : "010", - "name" : "010" + "id" : "010" }, { - "name" : "011", "data" : [ [ "Perl 5", @@ -356,10 +340,11 @@ 9 ] ], - "id" : "011" + "id" : "011", + "name" : "011" }, { - "id" : "012", + "name" : "012", "data" : [ [ "Perl 5", @@ -374,7 +359,7 @@ 11 ] ], - "name" : "012" + "id" : "012" }, { "data" : [ @@ -391,8 +376,8 @@ 13 ] ], - "id" : "013", - "name" : "013" + "name" : "013", + "id" : "013" }, { "id" : "014", @@ -431,7 +416,6 @@ "name" : "015" }, { - "id" : "016", "data" : [ [ "Perl 5", @@ -446,11 +430,10 @@ 12 ] ], + "id" : "016", "name" : "016" }, { - "name" : "017", - "id" : "017", "data" : [ [ "Perl 5", @@ -464,10 +447,12 @@ "Blog", 12 ] - ] + ], + "id" : "017", + "name" : "017" }, { - "name" : "018", + "id" : "018", |
