diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-07-27 13:48:08 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-07-27 13:48:08 +0100 |
| commit | fd3b7ecba8e74a27bde5fd2d7d3c319bc429241f (patch) | |
| tree | 1cb2f56d7701e355959b718e9e96775f495333a7 | |
| parent | d36ac05a5657658cf651024ac91f3d707ec0e41f (diff) | |
| download | perlweeklychallenge-club-fd3b7ecba8e74a27bde5fd2d7d3c319bc429241f.tar.gz perlweeklychallenge-club-fd3b7ecba8e74a27bde5fd2d7d3c319bc429241f.tar.bz2 perlweeklychallenge-club-fd3b7ecba8e74a27bde5fd2d7d3c319bc429241f.zip | |
- Added solutions by Mark Anderson.
| -rw-r--r-- | challenge-018/mark-anderson/README | 1 | ||||
| -rw-r--r-- | challenge-018/mark-anderson/perl5/ch-1.pl | 20 | ||||
| -rw-r--r-- | members.json | 1 | ||||
| -rw-r--r-- | stats/pwc-current.json | 247 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown-summary.json | 68 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown.json | 302 | ||||
| -rw-r--r-- | stats/pwc-leaders.json | 824 | ||||
| -rw-r--r-- | stats/pwc-summary-1-30.json | 108 | ||||
| -rw-r--r-- | stats/pwc-summary-31-60.json | 50 | ||||
| -rw-r--r-- | stats/pwc-summary-61-90.json | 114 | ||||
| -rw-r--r-- | stats/pwc-summary-91-120.json | 76 | ||||
| -rw-r--r-- | stats/pwc-summary.json | 258 |
12 files changed, 1057 insertions, 1012 deletions
diff --git a/challenge-018/mark-anderson/README b/challenge-018/mark-anderson/README new file mode 100644 index 0000000000..544858a104 --- /dev/null +++ b/challenge-018/mark-anderson/README @@ -0,0 +1 @@ +Solutions by Mark Anderson. diff --git a/challenge-018/mark-anderson/perl5/ch-1.pl b/challenge-018/mark-anderson/perl5/ch-1.pl new file mode 100644 index 0000000000..8eac48c266 --- /dev/null +++ b/challenge-018/mark-anderson/perl5/ch-1.pl @@ -0,0 +1,20 @@ +#!/usr/bin/env perl + +use Modern::Perl '2018'; +use List::Util 'all'; + +# Find the longest common substring. + +my @strings = @ARGV; +my $pattern = pop @strings; +my $longest; + +OUTER: +for(my $w=length $pattern; $w>0; $w--) { + for(my $i=0; $i<=(length $pattern)-$w; $i++) { + $longest = substr $pattern, $i, $w; + last OUTER if all { /$longest/ } @strings; + } +} + +say $longest; diff --git a/members.json b/members.json index 9823b76d55..a21e03c883 100644 --- a/members.json +++ b/members.json @@ -57,6 +57,7 @@ "lubos-kolouch" : "Lubos Kolouch", "magnus-woldrich" : "Magnus Woldrich", "mano-chandar" : "Mano Chandar", + "mark-anderson" : "Mark Anderson", "mark-senn" : "Mark Senn", "martin-barth" : "Martin Barth", "martin-mugeni" : "Martin Mugeni", diff --git a/stats/pwc-current.json b/stats/pwc-current.json index b26d7181bb..fca09ee254 100644 --- a/stats/pwc-current.json +++ b/stats/pwc-current.json @@ -1,103 +1,9 @@ { - "plotOptions" : { - "series" : { - "dataLabels" : { - "format" : "{point.y}", - "enabled" : 1 - }, - "borderWidth" : 0 - } - }, - "chart" : { - "type" : "column" - }, - "series" : [ - { - "data" : [ - { - "drilldown" : "Andrezgz", - "name" : "Andrezgz", - "y" : 2 - }, - { - "y" : 2, - "drilldown" : "Duane Powell", - "name" : "Duane Powell" - }, - { - "y" : 3, - "drilldown" : "E. Choroba", - "name" : "E. Choroba" - }, - { - "y" : 1, - "name" : "Kevin Colyer", - "drilldown" : "Kevin Colyer" - }, - { - "name" : "Laurent Rosenfeld", - "drilldown" : "Laurent Rosenfeld", - "y" : 6 - }, - { - "drilldown" : "Lubos Kolouch", - "name" : "Lubos Kolouch", - "y" : 2 - }, - { - "drilldown" : "Ozzy", - "name" : "Ozzy", - "y" : 1 - }, - { - "drilldown" : "Randy Lauen", - "name" : "Randy Lauen", - "y" : 2 - }, - { - "drilldown" : "Roger Bell West", - "name" : "Roger Bell West", - "y" : 3 - }, - { - "drilldown" : "Ruben Westerberg", - "name" : "Ruben Westerberg", - "y" : 4 - }, - { - "y" : 2, - "drilldown" : "Simon Proctor", - "name" : "Simon Proctor" - }, - { - "drilldown" : "Steven Wilson", - "name" : "Steven Wilson", - "y" : 1 - } - ], - "colorByPoint" : 1, - "name" : "Perl Weekly Challenge - 018" - } - ], - "legend" : { - "enabled" : 0 - }, - "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 - }, - "xAxis" : { - "type" : "category" - }, "yAxis" : { "title" : { "text" : "Total Solutions" } }, - "title" : { - "text" : "Perl Weekly Challenge - 018" - }, "drilldown" : { "series" : [ { @@ -107,21 +13,20 @@ 2 ] ], - "name" : "Andrezgz", - "id" : "Andrezgz" + "id" : "Andrezgz", + "name" : "Andrezgz" }, { + "id" : "Duane Powell", "data" : [ [ "Perl 5", 2 ] ], - "name" : "Duane Powell", - "id" : "Duane Powell" + "name" : "Duane Powell" }, { - "id" : "E. Choroba", "name" : "E. Choroba", "data" : [ [ @@ -132,20 +37,20 @@ "Blog", 1 ] - ] + ], + "id" : "E. Choroba" }, { - "name" : "Kevin Colyer", "data" : [ [ "Perl 6", 1 ] ], - "id" : "Kevin Colyer" + "id" : "Kevin Colyer", + "name" : "Kevin Colyer" }, { - "id" : "Laurent Rosenfeld", "name" : "Laurent Rosenfeld", "data" : [ [ @@ -160,7 +65,8 @@ "Blog", 2 ] - ] + ], + "id" : "Laurent Rosenfeld" }, { "name" : "Lubos Kolouch", @@ -173,8 +79,18 @@ "id" : "Lubos Kolouch" }, { - "id" : "Ozzy", + "id" : "Mark Anderson", + "data" : [ + [ + "Perl 5", + 1 + ] + ], + "name" : "Mark Anderson" + }, + { "name" : "Ozzy", + "id" : "Ozzy", "data" : [ [ "Perl 6", @@ -183,17 +99,17 @@ ] }, { - "name" : "Randy Lauen", + "id" : "Randy Lauen", "data" : [ [ "Perl 6", 2 ] ], - "id" : "Randy Lauen" + "name" : "Randy Lauen" }, { - "name" : "Roger Bell West", + "id" : "Roger Bell West", "data" : [ [ "Perl 5", @@ -204,11 +120,10 @@ 1 ] ], - "id" : "Roger Bell West" + "name" : "Roger Bell West" }, { "id" : "Ruben Westerberg", - "name" : "Ruben Westerberg", "data" : [ [ "Perl 5", @@ -218,31 +133,131 @@ "Perl 6", 2 ] - ] + ], + "name" : "Ruben Westerberg" }, { + "id" : "Simon Proctor", "data" : [ [ "Perl 6", 2 ] ], - "name" : "Simon Proctor", - "id" : "Simon Proctor" + "name" : "Simon Proctor" }, { - "id" : "Steven Wilson", "data" : [ [ "Perl 5", 1 ] ], + "id" : "Steven Wilson", "name" : "Steven Wilson" } ] }, + "xAxis" : { + "type" : "category" + }, + "legend" : { + "enabled" : 0 + }, + "title" : { + "text" : "Perl Weekly Challenge - 018" + }, + "plotOptions" : { + "series" : { + "dataLabels" : { + "enabled" : 1, + "format" : "{point.y}" + }, + "borderWidth" : 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/>" + }, "subtitle" : { - "text" : "[Champions: 12] Last updated at 2019-07-27 09:22:47 GMT" - } + "text" : "[Champions: 13] Last updated at 2019-07-27 12:47:36 GMT" + }, + "chart" : { + "type" : "column" + }, + "series" : [ + { + "colorByPoint" : 1, + "name" : "Perl Weekly Challenge - 018", + "data" : [ + { + "name" : "Andrezgz", + "y" : 2, + "drilldown" : "Andrezgz" + }, + { + "drilldown" : "Duane Powell", + "y" : 2, + "name" : "Duane Powell" + }, + { + "y" : 3, + "drilldown" : "E. Choroba", + "name" : "E. Choroba" + }, + { + "name" : "Kevin Colyer", + "y" : 1, + "drilldown" : "Kevin Colyer" + }, + { + "name" : "Laurent Rosenfeld", + "drilldown" : "Laurent Rosenfeld", + "y" : 6 + }, + { + "y" : 2, + "drilldown" : "Lubos Kolouch", + "name" : "Lubos Kolouch" + }, + { + "name" : "Mark Anderson", + "y" : 1, + "drilldown" : "Mark Anderson" + }, + { + "drilldown" : "Ozzy", + "y" : 1, + "name" : "Ozzy" + }, + { + "drilldown" : "Randy Lauen", + "y" : 2, + "name" : "Randy Lauen" + }, + { + "y" : 3, + "drilldown" : "Roger Bell West", + "name" : "Roger Bell West" + }, + { + "y" : 4, + "drilldown" : "Ruben Westerberg", + "name" : "Ruben Westerberg" + }, + { + "name" : "Simon Proctor", + "drilldown" : "Simon Proctor", + "y" : 2 + }, + { + "name" : "Steven Wilson", + "y" : 1, + "drilldown" : "Steven Wilson" + } + ] + } + ] } diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json index b95a90459f..423b21023a 100644 --- a/stats/pwc-language-breakdown-summary.json +++ b/stats/pwc-language-breakdown-summary.json @@ -2,47 +2,20 @@ "tooltip" : { "pointFormat" : "<b>{point.y:.0f}</b>" }, - "subtitle" : { - "text" : "Last updated at 2019-07-27 09:23:05 GMT" - }, - "title" : { - "text" : "Perl Weekly Challenge Contributions - 2019" - }, - "chart" : { - "type" : "column" - }, - "xAxis" : { - "labels" : { - "style" : { - "fontFamily" : "Verdana, sans-serif", - "fontSize" : "13px" - } - }, - "type" : "category" - }, - "yAxis" : { - "min" : 0, - "title" : { - "text" : null - } - }, - "legend" : { - "enabled" : "false" - }, "series" : [ { "name" : "Contributions", "dataLabels" : { "rotation" : -90, + "color" : "#FFFFFF", + "align" : "right", + "format" : "{point.y:.0f}", + "y" : 10, "style" : { "fontSize" : "13px", "fontFamily" : "Verdana, sans-serif" }, - "color" : "#FFFFFF", - "format" : "{point.y:.0f}", - "enabled" : "true", - "align" : "right", - "y" : 10 + "enabled" : "true" }, "data" : [ [ @@ -51,7 +24,7 @@ ], [ "Perl 5", - 732 + 733 ], [ "Perl 6", @@ -59,5 +32,32 @@ ] ] } - ] + ], + "subtitle" : { + "text" : "Last updated at 2019-07-27 12:47:47 GMT" + }, + "chart" : { + "type" : "column" + }, + "legend" : { + "enabled" : "false" + }, + "xAxis" : { + "labels" : { + "style" : { + "fontFamily" : "Verdana, sans-serif", + "fontSize" : "13px" + } + }, + "type" : "category" + }, + "title" : { + "text" : "Perl Weekly Challenge Contributions - 2019" + }, + "yAxis" : { + "min" : 0, + "title" : { + "text" : null + } + } } diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json index a7990a19c9..7e86efad65 100644 --- a/stats/pwc-language-breakdown.json +++ b/stats/pwc-language-breakdown.json @@ -1,17 +1,109 @@ { + "series" : [ + { + "colorByPoint" : "true", + "data" : [ + { + "drilldown" : "001", + "y" : 123, + "name" : "#001" + }, + { + "y" : 104, + "name" : "#002", + "drilldown" : "002" + }, + { + "drilldown" : "003", + "name" : "#003", + "y" : 66 + }, + { + "drilldown" : "004", + "y" : 84, + "name" : "#004" + }, + { + "y" : 66, + "name" : "#005", + "drilldown" : "005" + }, + { + "name" : "#006", + "y" : 47, + "drilldown" : "006" + }, + { + "y" : 54, + "name" : "#007", + "drilldown" : "007" + }, + { + "y" : 67, + "name" : "#008", + "drilldown" : "008" + }, + { + "drilldown" : "009", + "y" : 65, + "name" : "#009" + }, + { + "name" : "#010", + "y" : 58, + "drilldown" : "010" + }, + { + "name" : "#011", + "y" : 77, + "drilldown" : "011" + }, + { + "drilldown" : "012", + "name" : "#012", + "y" : 81 + }, + { + "y" : 74, + "name" : "#013", + "drilldown" : "013" + }, + { + "drilldown" : "014", + "y" : 94, + "name" : "#014" + }, + { + "drilldown" : "015", + "y" : 90, + "name" : "#015" + }, + { + "y" : 64, + "name" : "#016", + "drilldown" : "016" + }, + { + "drilldown" : "017", + "y" : 77, + "name" : "#017" + }, + { + "drilldown" : "018", + "y" : 30, + "name" : "#018" + } + ], + "name" : "Perl Weekly Challenge Languages" + } + ], "tooltip" : { - "headerFormat" : "<span style=\"font-size:11px\"></span>", + "pointFormat" : "<span style=\"color:{point.color}\">Challenge {point.name}</span>: <b>{point.y:f}</b><br/>", "followPointer" : "true", - "pointFormat" : "<span style=\"color:{point.color}\">Challenge {point.name}</span>: <b>{point.y:f}</b><br/>" + "headerFormat" : "<span style=\"font-size:11px\"></span>" }, - "plotOptions" : { - "series" : { - "dataLabels" : { - "format" : "{point.y}", - "enabled" : 1 - }, - "borderWidth" : 0 - } + "subtitle" : { + "text" : "Click the columns to drilldown the language breakdown. Last updated at 2019-07-27 12:47:47 GMT" }, "drilldown" : { "series" : [ @@ -34,7 +126,6 @@ ] }, { - "name" : "002", "id" : "002", "data" : [ [ @@ -49,9 +140,11 @@ "Blog", 9 ] - ] + ], + "name" : "002" }, { + "id" : "003", "data" : [ [ "Perl 5", @@ -66,10 +159,10 @@ 8 ] ], - "id" : "003", "name" : "003" }, { + "name" : "004", "data" : [ [ "Perl 5", @@ -84,12 +177,10 @@ 9 ] ], - "id" : "004", - "name" : "004" + "id" : "004" }, { "name" : "005", - "id" : "005", "data" : [ [ "Perl 5", @@ -103,9 +194,11 @@ "Blog", 11 ] - ] + ], + "id" : "005" }, { + "name" : "006", "data" : [ [ "Perl 5", @@ -120,7 +213,6 @@ 6 ] ], - "name" : "006", "id" : "006" }, { @@ -138,10 +230,11 @@ 8 ] ], - "id" : "007", - "name" : "007" + "name" : "007", + "id" : "007" }, { + "id" : "008", "data" : [ [ "Perl 5", @@ -156,10 +249,11 @@ 9 ] ], - "id" : "008", "name" : "008" }, { + "id" : "009", + "name" : "009", "data" : [ [ "Perl 5", @@ -173,9 +267,7 @@ "Blog", 11 ] - ], - "id" : "009", - "name" : "009" + ] }, { "id" : "010", @@ -196,8 +288,6 @@ ] }, { - "id" : "011", - "name" : "011", "data" : [ [ "Perl 5", @@ -211,11 +301,11 @@ "Blog", 8 ] - ] + ], + "name" : "011", + "id" : "011" }, { - "name" : "012", - "id" : "012", "data" : [ [ "Perl 5", @@ -229,11 +319,11 @@ "Blog", 9 ] - ] + ], + "name" : "012", + "id" : "012" }, { - "id" : "013", - "name" : "013", "data" : [ [ "Perl 5", @@ -247,10 +337,11 @@ "Blog", 11 ] - ] + ], + "name" : "013", + "id" : "013" }, { - "name" : "014", "id" : "014", "data" : [ [ @@ -265,11 +356,12 @@ "Blog", 13 ] - ] + ], + "name" : "014" }, { - "name" : "015", "id" : "015", + "name" : "015", "data" : [ [ "Perl 5", @@ -287,7 +379,6 @@ }, { "id" : "016", - "name" : "016", "data" : [ [ "Perl 5", @@ -301,9 +392,12 @@ "Blog", 10 ] - ] + ], + "name" : "016" }, { + "id" : "017", + "name" : "017", "data" : [ [ "Perl 5", @@ -317,15 +411,14 @@ "Blog", 10 ] - ], - "id" : "017", - "name" : "017" + ] }, { + "id" : "018", "data" : [ [ "Perl 5", - 15 + 16 ], [ "Perl 6", @@ -336,127 +429,34 @@ 4 ] ], - "name" : "018", - "id" : "018" + "name" : "018" } ] }, + "xAxis" : { + "type" : "category" + }, "legend" : { "enabled" : "false" }, - "series" : [ - { - "colorByPoint" : "true", - "name" : "Perl Weekly Challenge Languages", - "data" : [ - { - "drilldown" : "001", - "name" : "#001", - "y" : 123 - }, - { - "name" : "#002", - "drilldown" : "002", - "y" : 104 - }, - { - "y" : 66, - "drilldown" : "003", - "name" : "#003" - }, - { - "y" : 84, - "drilldown" : "004", - "name" : "#004" - }, - { - "drilldown" : "005", - "name" : "#005", - "y" : 66 - }, - { - "drilldown" : "006", - "name" : "#006", - "y" : 47 - }, - { - "name" : "#007", - "drilldown" : "007", - "y" : 54 - }, - { - "drilldown" : "008", - "name" : "#008", - "y" : 67 - }, - { - "y" : 65, - "drilldown" : "009", - "name" : "#009" - }, - { - "y" : 58, - "name" : "#010", - "drilldown" : "010" - }, - { - "drilldown" : "011", - "name" : "#011", - "y" : 77 - }, - { - "drilldown" : "012", - "name" : "#012", - "y" : 81 - }, - { - "drilldown" : "013", - "name" : "#013", - "y" : 74 - }, - { - "y" : 94, - "drilldown" : "014", - "name" : "#014" - }, - { - "name" : "#015", - "drilldown" : "015", - "y" : 90 - }, - { - "y" : 64, - "name" : "#016", - "drilldown" : "016" - }, - { - "y" : 77, - "drilldown" : "017", - "name" : "#017" - }, - { - "y" : 29, - "name" : "#018", - "drilldown" : "018" - } - ] - } - ], + "title" : { + "text" : "Perl Weekly Challenge Language" + }, "yAxis" : { "title" : { "text" : "Total Solutions" } }, + "plotOptions" : { + "series" : { + "dataLabels" : { + "format" : "{point.y}", + "enabled" : 1 + }, + "borderWidth" : 0 + } + }, "chart" : { "type" : "column" - }, - "xAxis" : { - "type" : "category" - }, - "title" : { - "text" : "Perl Weekly Challenge Language" - }, - "subtitle" : { - "text" : "Click the columns to drilldown the language breakdown. Last updated at 2019-07-27 09:23:05 GMT" } } diff --git a/stats/pwc-leaders.json b/stats/pwc-leaders.json index 117719a39b..8cc32e7441 100644 --- a/stats/pwc-leaders.json +++ b/stats/pwc-leaders.json @@ -1,87 +1,342 @@ { - "title" : { - "text" : "Perl Weekly Challenge Leaders (TOP 50)" - }, "xAxis" : { "type" : "category" }, - "legend" : { - "enabled" : "false" + "series" : [ + { + "name" : "Perl Weekly Challenge Leaders", + "data" : [ + { + "drilldown" : "Laurent Rosenfeld", + "y" : 188, + "name" : "#1: Laurent Rosenfeld" + }, + { + "name" : "#2: Joelle Maslak", + "y" : 180, + "drilldown" : "Joelle Maslak" + }, + { + "y" : 142, + "drilldown" : "Jaldhar H. Vyas", + "name" : "#3: Jaldhar H. Vyas" + }, + { + "drilldown" : "Ruben Westerberg", + "y" : 132, + "name" : "#4: Ruben Westerberg" + }, + { + "drilldown" : "Athanasius", + "y" : 106, + "name" : "#5: Athanasius" + }, + { + "name" : "#6: Adam Russell", + "drilldown" : "Adam Russell", + "y" : 104 + }, + { + "name" : "#7: Arne Sommer", + "y" : 94, + "drilldown" : "Arne Sommer" + }, + { + "name" : "#8: E. Choroba", + "drilldown" : "E. Choroba", + "y" : 84 + }, + { + "name" : "#9: Simon Proctor", + "drilldown" : "Simon Proctor", + "y" : 80 + }, + { + "name" : "#10: Francis Whittle", + "y" : 78, + "drilldown" : "Francis Whittle" + }, + { + "name" : "#11: Kian-Meng Ang", + "y" : 78, + "drilldown" : "Kian-Meng Ang" + }, + { + "name" : "#12: Dave Jacoby", + "drilldown" : "Dave Jacoby", + "y" : 74 + }, + { + "name" : "#13: Andrezgz", + "y" : 68, + "drilldown" : "Andrezgz" + }, + { + "name" : "#14: Gustavo Chaves", + "y" : 64, + "drilldown" : "Gustavo Chaves" + }, + { + "y" : 64, + "drilldown" : "Yozen Hernandez", + "name" : "#15: Yozen Hernandez" + }, + { + "drilldown" : "Feng Chang", + "y" : 60, + "name" : "#16: Feng Chang" + }, + { + "name" : "#17: Daniel Mantovani", + "y" : 56, + "drilldown" : "Daniel Mantovani" + }, + { + "y" : 56, + "drilldown" : "Duncan C. White", + "name" : "#18: Duncan C. White" + }, + { + "name" : "#19: Steven Wilson", + "y" : 56, + "drilldown" : "Steven Wilson" + }, + { + "drilldown" : "Jo Christian Oterhals", + "y" : 48, + "name" : "#20: Jo Christian Oterhals" + }, + { + "drilldown" : "Dr James A. Smith", + "y" : 44, + "name" : "#21: Dr James A. Smith" + }, + { + "y" : 36, + "drilldown" : "Ozzy", + "name" : "#22: Ozzy" |
