diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-12-29 18:13:23 +0000 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-12-29 18:13:23 +0000 |
| commit | bc90e1e7c9183c3e3bc022ec8ab3cd23d6ca722a (patch) | |
| tree | faa199f46a2bcef57c384a593d8a7a79b88612c5 | |
| parent | 7d50ab51b1e1a9767af72148633af7220b3f6886 (diff) | |
| download | perlweeklychallenge-club-bc90e1e7c9183c3e3bc022ec8ab3cd23d6ca722a.tar.gz perlweeklychallenge-club-bc90e1e7c9183c3e3bc022ec8ab3cd23d6ca722a.tar.bz2 perlweeklychallenge-club-bc90e1e7c9183c3e3bc022ec8ab3cd23d6ca722a.zip | |
- Added solutions by Ruben Westerberg.
| -rwxr-xr-x | challenge-040/ruben-westerberg/perl5/ch-1.pl | 7 | ||||
| -rwxr-xr-x | challenge-040/ruben-westerberg/perl5/ch-2.pl | 9 | ||||
| -rwxr-xr-x | challenge-040/ruben-westerberg/perl6/ch-1.p6 | 5 | ||||
| -rwxr-xr-x | challenge-040/ruben-westerberg/perl6/ch-2.p6 | 5 | ||||
| -rw-r--r-- | stats/pwc-current.json | 271 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown-summary.json | 66 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown.json | 314 | ||||
| -rw-r--r-- | stats/pwc-leaders.json | 924 | ||||
| -rw-r--r-- | stats/pwc-summary-1-30.json | 44 | ||||
| -rw-r--r-- | stats/pwc-summary-121-150.json | 82 | ||||
| -rw-r--r-- | stats/pwc-summary-31-60.json | 100 | ||||
| -rw-r--r-- | stats/pwc-summary-61-90.json | 40 | ||||
| -rw-r--r-- | stats/pwc-summary-91-120.json | 54 | ||||
| -rw-r--r-- | stats/pwc-summary.json | 336 |
14 files changed, 1151 insertions, 1106 deletions
diff --git a/challenge-040/ruben-westerberg/perl5/ch-1.pl b/challenge-040/ruben-westerberg/perl5/ch-1.pl new file mode 100755 index 0000000000..2de3cd36fa --- /dev/null +++ b/challenge-040/ruben-westerberg/perl5/ch-1.pl @@ -0,0 +1,7 @@ +#!/usr/bin/env perl +use strict; +use warnings; +my @aoa=([qw<I L O V E Y O U>], [qw<2 4 0 3 2 0 1 9>], [qw<! ? £ $ % ^ & * >]); +my @indexes=@ARGV==0?(2,3):@ARGV; + +print "$_\n" for map {my $i=$_; join " ", map {$aoa[$_]->[$i]} 0..$#aoa} @indexes; diff --git a/challenge-040/ruben-westerberg/perl5/ch-2.pl b/challenge-040/ruben-westerberg/perl5/ch-2.pl new file mode 100755 index 0000000000..39f3f68998 --- /dev/null +++ b/challenge-040/ruben-westerberg/perl5/ch-2.pl @@ -0,0 +1,9 @@ +#!/usr/bin/env perl +use strict; +use warnings; + +my @a=(10,4,1,8,12,3); +my @i=(0,2,5); + +$,=" "; +print sort {$a <=> $b} @a[@i]; diff --git a/challenge-040/ruben-westerberg/perl6/ch-1.p6 b/challenge-040/ruben-westerberg/perl6/ch-1.p6 new file mode 100755 index 0000000000..4a0ee4854f --- /dev/null +++ b/challenge-040/ruben-westerberg/perl6/ch-1.p6 @@ -0,0 +1,5 @@ +#!/usr/bin/env perl6 + +my @aoa=( <I L O V E Y O U>, <2 4 0 3 2 0 1 9>, <! ? £ $ % ^ & * >); +my @indexes=@*ARGS==0??(2,3)!!@*ARGS; +put $_ for @indexes.map({@aoa[*;$_].join: " "}) diff --git a/challenge-040/ruben-westerberg/perl6/ch-2.p6 b/challenge-040/ruben-westerberg/perl6/ch-2.p6 new file mode 100755 index 0000000000..89b02ab4ed --- /dev/null +++ b/challenge-040/ruben-westerberg/perl6/ch-2.p6 @@ -0,0 +1,5 @@ +#!/usr/bin/env perl6 +my @a=(10,4,1,8,12,3); +my @i=(0,2,5); + +put @a[@i].sort; diff --git a/stats/pwc-current.json b/stats/pwc-current.json index af6556ea6b..96079d7a37 100644 --- a/stats/pwc-current.json +++ b/stats/pwc-current.json @@ -1,117 +1,39 @@ { - "subtitle" : { - "text" : "[Champions: 15] Last updated at 2019-12-29 01:47:55 GMT" + "title" : { + "text" : "Perl Weekly Challenge - 040" }, "legend" : { "enabled" : 0 }, - "xAxis" : { - "type" : "category" - }, - "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/>" - }, - "series" : [ - { - "name" : "Perl Weekly Challenge - 040", - "data" : [ - { - "drilldown" : "Andrezgz", - "y" : 2, - "name" : "Andrezgz" - }, - { - "y" : 3, - "name" : "Arne Sommer", - "drilldown" : "Arne Sommer" - }, - { - "drilldown" : "Duane Powell", - "name" : "Duane Powell", - "y" : 2 - }, - { - "name" : "E. Choroba", - "y" : 3, - "drilldown" : "E. Choroba" - }, - { - "y" : 5, - "name" : "Javier Luque", - "drilldown" : "Javier Luque" - }, - { - "drilldown" : "Laurent Rosenfeld", - "name" : "Laurent Rosenfeld", - "y" : 5 - }, - { - "y" : 2, - "name" : "Lubos Kolouch", - "drilldown" : "Lubos Kolouch" - }, - { - "drilldown" : "Noud", - "y" : 2, - "name" : "Noud" - }, - { - "y" : 4, - "name" : "Roger Bell West", - "drilldown" : "Roger Bell West" - }, - { - "drilldown" : "Ryan Thompson", - "y" : 5, - "name" : "Ryan Thompson" - }, - { - "drilldown" : "Saif Ahmed", - "name" : "Saif Ahmed", - "y" : 2 - }, - { - "drilldown" : "Simon Proctor", - "name" : "Simon Proctor", - "y" : 2 - }, - { - "drilldown" : "Steven Wilson", - "y" : 2, - "name" : "Steven Wilson" - }, - { - "name" : "Ulrich Rieke", - "y" : 2, - "drilldown" : "Ulrich Rieke" - }, - { - "name" : "Wanderdoc", - "y" : 2, - "drilldown" : "Wanderdoc" - } - ], - "colorByPoint" : 1 - } - ], "chart" : { "type" : "column" }, + "plotOptions" : { + "series" : { + "dataLabels" : { + "format" : "{point.y}", + "enabled" : 1 + }, + "borderWidth" : 0 + } + }, + "xAxis" : { + "type" : "category" + }, "drilldown" : { "series" : [ { + "name" : "Andrezgz", "data" : [ [ "Perl 5", 2 ] ], - "name" : "Andrezgz", "id" : "Andrezgz" }, { + "id" : "Arne Sommer", "data" : [ [ "Perl 6", @@ -122,21 +44,21 @@ 1 ] ], - "name" : "Arne Sommer", - "id" : "Arne Sommer" + "name" : "Arne Sommer" }, { - "id" : "Duane Powell", + "name" : "Duane Powell", "data" : [ [ "Perl 5", 2 ] ], - "name" : "Duane Powell" + "id" : "Duane Powell" }, { "id" : "E. Choroba", + "name" : "E. Choroba", "data" : [ [ "Perl 5", @@ -146,11 +68,9 @@ "Blog", 1 ] - ], - "name" : "E. Choroba" + ] }, { - "name" : "Javier Luque", "data" : [ [ "Perl 5", @@ -165,10 +85,11 @@ 1 ] ], + "name" : "Javier Luque", "id" : "Javier Luque" }, { - "name" : "Laurent Rosenfeld", + "id" : "Laurent Rosenfeld", "data" : [ [ "Perl 5", @@ -183,7 +104,7 @@ 1 ] ], - "id" : "Laurent Rosenfeld" + "name" : "Laurent Rosenfeld" }, { "id" : "Lubos Kolouch", @@ -197,13 +118,13 @@ }, { "id" : "Noud", + "name" : "Noud", "data" : [ [ "Perl 6", 2 ] - ], - "name" : "Noud" + ] }, { "data" : [ @@ -228,34 +149,48 @@ [ "Perl 6", 2 + ] + ], + "name" : "Ruben Westerberg", + "id" : "Ruben Westerberg" + }, + { + "id" : "Ryan Thompson", + "data" : [ + [ + "Perl 5", + 2 + ], + [ + "Perl 6", + 2 ], [ "Blog", 1 ] ], - "name" : "Ryan Thompson", - "id" : "Ryan Thompson" + "name" : "Ryan Thompson" }, { "id" : "Saif Ahmed", + "name" : "Saif Ahmed", "data" : [ [ "Perl 5", 2 ] - ], - "name" : "Saif Ahmed" + ] }, { - "id" : "Simon Proctor", "name" : "Simon Proctor", "data" : [ [ "Perl 6", 2 ] - ] + ], + "id" : "Simon Proctor" }, { "id" : "Steven Wilson", @@ -268,42 +203,126 @@ ] }, { - "name" : "Ulrich Rieke", "data" : [ [ "Perl 5", 2 ] ], + "name" : "Ulrich Rieke", "id" : "Ulrich Rieke" }, { + "id" : "Wanderdoc", + "name" : "Wanderdoc", "data" : [ [ "Perl 5", 2 ] - ], - "name" : "Wanderdoc", - "id" : "Wanderdoc" + ] } ] }, - "plotOptions" : { - "series" : { - "dataLabels" : { - "format" : "{point.y}", - "enabled" : 1 - }, - "borderWidth" : 0 + "series" : [ + { + "data" : [ + { + "drilldown" : "Andrezgz", + "name" : "Andrezgz", + "y" : 2 + }, + { + "drilldown" : "Arne Sommer", + "y" : 3, + "name" : "Arne Sommer" + }, + { + "name" : "Duane Powell", + "y" : 2, + "drilldown" : "Duane Powell" + }, + { + "y" : 3, + "name" : "E. Choroba", + "drilldown" : "E. Choroba" + }, + { + "drilldown" : "Javier Luque", + "name" : "Javier Luque", + "y" : 5 + }, + { + "y" : 5, + "name" : "Laurent Rosenfeld", + "drilldown" : "Laurent Rosenfeld" + }, + { + "name" : "Lubos Kolouch", + "y" : 2, + "drilldown" : "Lubos Kolouch" + }, + { + "y" : 2, + "name" : "Noud", + "drilldown" : "Noud" + }, + { + "drilldown" : "Roger Bell West", + "name" : "Roger Bell West", + "y" : 4 + }, + { + "drilldown" : "Ruben Westerberg", + "name" : "Ruben Westerberg", + "y" : 4 + }, + { + "drilldown" : "Ryan Thompson", + "y" : 5, + "name" : "Ryan Thompson" + }, + { + "y" : 2, + "name" : "Saif Ahmed", + "drilldown" : "Saif Ahmed" + }, + { + "drilldown" : "Simon Proctor", + "name" : "Simon Proctor", + "y" : 2 + }, + { + "y" : 2, + "name" : "Steven Wilson", + "drilldown" : "Steven Wilson" + }, + { + "drilldown" : "Ulrich Rieke", + "y" : 2, + "name" : "Ulrich Rieke" + }, + { + "y" : 2, + "name" : "Wanderdoc", + "drilldown" : "Wanderdoc" + } + ], + "name" : "Perl Weekly Challenge - 040", + "colorByPoint" : 1 } - }, - "title" : { - "text" : "Perl Weekly Challenge - 040" - }, + ], "yAxis" : { "title" : { "text" : "Total Solutions" } + }, + "subtitle" : { + "text" : "[Champions: 16] Last updated at 2019-12-29 18:13:11 GMT" + }, + "tooltip" : { + "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/>", + "followPointer" : 1 } } diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json index 8bbe522ecc..06beea4887 100644 --- a/stats/pwc-language-breakdown-summary.json +++ b/stats/pwc-language-breakdown-summary.json @@ -1,21 +1,18 @@ { - "subtitle" : { - "text" : "Last updated at 2019-12-29 01:48:08 GMT" - }, - "title" : { - "text" : "Perl Weekly Challenge Contributions - 2019" - }, - "chart" : { - "type" : "column" - }, - "yAxis" : { - "min" : 0, - "title" : { - "text" : null - } - }, "series" : [ { + "dataLabels" : { + "align" : "right", + "format" : "{point.y:.0f}", + "color" : "#FFFFFF", + "y" : 10, + "enabled" : "true", + "style" : { + "fontSize" : "13px", + "fontFamily" : "Verdana, sans-serif" + }, + "rotation" : -90 + }, "data" : [ [ "Blog", @@ -23,25 +20,13 @@ ], [ "Perl 5", - 1641 + 1643 ], [ "Perl 6", - 986 + 988 ] ], - "dataLabels" : { - "format" : "{point.y:.0f}", - "enabled" : "true", - "align" : "right", - "style" : { - "fontSize" : "13px", - "fontFamily" : "Verdana, sans-serif" - }, - "color" : "#FFFFFF", - "y" : 10, - "rotation" : -90 - }, "name" : "Contributions" } ], @@ -49,15 +34,30 @@ "type" : "category", "labels" : { "style" : { - "fontSize" : "13px", - "fontFamily" : "Verdana, sans-serif" + "fontFamily" : "Verdana, sans-serif", + "fontSize" : "13px" } } }, - "legend" : { - "enabled" : "false" + "chart" : { + "type" : "column" + }, + "title" : { + "text" : "Perl Weekly Challenge Contributions - 2019" + }, + "subtitle" : { + "text" : "Last updated at 2019-12-29 18:13:19 GMT" + }, + "yAxis" : { + "min" : 0, + "title" : { + "text" : null + } }, "tooltip" : { "pointFormat" : "<b>{point.y:.0f}</b>" + }, + "legend" : { + "enabled" : "false" } } diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json index b6645f96ad..0dce950fec 100644 --- a/stats/pwc-language-breakdown.json +++ b/stats/pwc-language-breakdown.json @@ -4,12 +4,6 @@ "text" : "Total Solutions" } }, - "chart" : { - "type" : "column" - }, - "title" : { - "text" : "Perl Weekly Challenge Language" - }, "plotOptions" : { "series" : { "borderWidth" : 0, @@ -19,19 +13,30 @@ } } }, - "subtitle" : { - "text" : "Click the columns to drilldown the language breakdown. Last updated at 2019-12-29 01:48:08 GMT" - }, "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>" + }, + "legend" : { + "enabled" : "false" + }, + "title" : { + "text" : "Perl Weekly Challenge Language" + }, + "subtitle" : { + "text" : "Click the columns to drilldown the language breakdown. Last updated at 2019-12-29 18:13:19 GMT" + }, + "chart" : { + "type" : "column" + }, + "xAxis" : { + "type" : "category" }, "drilldown" : { "series" : [ { "name" : "001", - "id" : "001", "data" : [ [ "Perl 5", @@ -45,7 +50,8 @@ "Blog", 11 ] - ] + ], + "id" : "001" }, { "data" : [ @@ -62,12 +68,12 @@ 9 ] ], - "id" : "002", - "name" : "002" + "name" : "002", + "id" : "002" }, { - "name" : "003", "id" : "003", + "name" : "003", "data" : [ [ "Perl 5", @@ -84,7 +90,7 @@ ] }, { - "id" : "004", + "name" : "004", "data" : [ [ "Perl 5", @@ -99,10 +105,9 @@ 10 ] ], - "name" : "004" + "id" : "004" }, { - "id" : "005", "data" : [ [ "Perl 5", @@ -117,10 +122,12 @@ 12 ] ], - "name" : "005" + "name" : "005", + "id" : "005" }, { "id" : "006", + "name" : "006", "data" : [ [ "Perl 5", @@ -134,12 +141,9 @@ "Blog", 7 ] - ], - "name" : "006" + ] }, { - "name" : "007", - "id" : "007", "data" : [ [ "Perl 5", @@ -153,9 +157,13 @@ "Blog", 10 ] - ] + ], + "name" : "007", + "id" : "007" }, { + "id" : "008", + "name" : "008", "data" : [ [ "Perl 5", @@ -169,9 +177,7 @@ "Blog", 12 ] - ], - "id" : "008", - "name" : "008" + ] }, { "data" : [ @@ -188,11 +194,12 @@ 13 ] ], - "id" : "009", - "name" : "009" + "name" : "009", + "id" : "009" }, { "id" : "010", + "name" : "010", "data" : [ [ "Perl 5", @@ -206,11 +213,10 @@ "Blog", 11 ] - ], - "name" : "010" + ] }, { - "name" : "011", + "id" : "011", "data" : [ [ "Perl 5", @@ -225,11 +231,9 @@ 10 ] ], - "id" : "011" + "name" : "011" }, { - "name" : "012", - "id" : "012", "data" : [ [ "Perl 5", @@ -243,7 +247,9 @@ "Blog", 11 ] - ] + ], + "name" : "012", + "id" : "012" }, { "data" : [ @@ -260,12 +266,10 @@ 13 ] ], - "id" : "013", - "name" : "013" + "name" : "013", + "id" : "013" }, { - "name" : "014", - "id" : "014", "data" : [ [ "Perl 5", @@ -279,9 +283,12 @@ "Blog", 15 ] - ] + ], + "name" : "014", + "id" : "014" }, { + "id" : "015", "data" : [ [ "Perl 5", @@ -296,10 +303,10 @@ 15 ] ], - "id" : "015", "name" : "015" }, { + "id" : "016", "data" : [ [ "Perl 5", @@ -314,12 +321,9 @@ 12 ] ], - "id" : "016", "name" : "016" }, { - "name" : "017", - "id" : "017", "data" : [ [ "Perl 5", @@ -333,7 +337,9 @@ "Blog", 12 ] - ] + ], + "name" : "017", + "id" : "017" }, { "id" : "018", @@ -354,7 +360,6 @@ "name" : "018" }, { - "id" : "019", "data" : [ [ "Perl 5", @@ -369,11 +374,10 @@ 13 ] ], - "name" : "019" + "name" : "019", + "id" : "019" }, { - "name" : "020", - "id" : "020", "data" : [ [ "Perl 5", @@ -387,7 +391,9 @@ "Blog", 13 ] - ] + ], + "name" : "020", + "id" : "020" }, { "data" : [ @@ -404,10 +410,12 @@ 10 ] ], - "id" : "021", - "name" : "021" + "name" : "021", + "id" : "021" }, { + "id" : "022", + "name" : "022", "data" : [ [ "Perl 5", @@ -421,12 +429,10 @@ "Blog", 10 ] - ], - "id" : "022", - "name" : "022" + ] }, { - "name" : "023", + "id" : "023", "data" : [ [ "Perl 5", @@ -441,11 +447,10 @@ 12 ] ], - "id" : "023" + "name" : "023" }, { "name" : "024", - "id" : "024", "data" : [ [ "Perl 5", @@ -459,10 +464,10 @@ "Blog", 11 ] - ] + ], + "id" : "024" }, { - "id" : "025", "data" : [ [ "Perl 5", @@ -477,10 +482,10 @@ 12 ] ], - "name" : "025" + "name" : "025", + "id" : "025" }, { - "name" : "026", "id" : "026", "data" : [ [ @@ -495,11 +500,12 @@ "Blog", 10 ] - ] + ], + "name" : "026" }, { - "name" : "027", "id" : "027", + "name" : "027", "data" : [ [ "Perl 5", @@ -516,6 +522,7 @@ ] }, { + "id" : "028", "name" : "028", "data" : [ [ @@ -530,11 +537,10 @@ "Blog", 9 ] - ], - "id" : "028" + ] }, { - "name" : "029", + "id" : "029", "data" : [ [ "Perl 5", @@ -549,7 +555,7 @@ 12 ] ], - "id" : "029" + "name" : "029" }, { "name" : "030", @@ -570,7 +576,7 @@ "id" : "030" }, { - "id" : "031", + "name" : "031", "data" : [ [ "Perl 5", @@ -585,11 +591,11 @@ 9 ] ], - "name" : "031" + "id" : "031" }, { - "name" : "032", "id" : "032", + "name" : "032", "data" : [ [ "Perl 5", @@ -606,7 +612,6 @@ ] }, { - "name" : "033", "data" : [ [ "Perl 5", @@ -621,9 +626,11 @@ 10 ] ], + "name" : "033", "id" : "033" }, { + "id" : "034", "data" : [ [ "Perl 5", @@ -638,11 +645,9 @@ 11 ] ], - "id" : "034", "name" : "034" }, { - "id" : "035", "data" : [ [ "Perl 5", @@ -657,9 +662,11 @@ 9 ] ], - "name" : "035" + "name" : "035", + "id" : "035" }, { + "id" : "036", "data" : [ [ "Perl 5", @@ -674,11 +681,11 @@ 10 ] ], - "id" : "036", "name" : "036" }, { "id" : "037", + "name" : "037", "data" : [ [ "Perl 5", @@ -692,10 +699,10 @@ "Blog", 9 ] - ], - "name" : "037" + ] }, { + "name" : "038", "data" : [ [ "Perl 5", @@ -710,8 +717,7 @@ 11 ] ], - "id" : "038", - "name" : "038" + "id" : "038" }, { "data" : [ @@ -728,62 +734,56 @@ 9 ] ], - "id" : "039", - "name" : "039" + "name" : "039", + "id" : "039" }, { - "name" : "040", "id" : "040", "data" : [ [ "Perl 5", - 24 + 26 ], [ "Perl 6", - 14 + 16 ], [ "Blog", 5 ] - ] + ], + "name" : "040" } ] }, - "legend" : { - "enable |
