diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-12-23 12:55:41 +0000 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-12-23 12:55:41 +0000 |
| commit | 03f344f3bf8f23db23cb389161c8e941fda4612f (patch) | |
| tree | 02be8d95679681006adfabc8ff4975c9c747d936 | |
| parent | c544516428cce1763940a0d7acaefc5023965f22 (diff) | |
| download | perlweeklychallenge-club-03f344f3bf8f23db23cb389161c8e941fda4612f.tar.gz perlweeklychallenge-club-03f344f3bf8f23db23cb389161c8e941fda4612f.tar.bz2 perlweeklychallenge-club-03f344f3bf8f23db23cb389161c8e941fda4612f.zip | |
- Added solutions by Javier Luque.
| -rw-r--r-- | challenge-040/javier-luque/blog.txt | 1 | ||||
| -rw-r--r-- | challenge-040/javier-luque/perl5/ch-1.pl | 23 | ||||
| -rw-r--r-- | challenge-040/javier-luque/perl5/ch-2.pl | 20 | ||||
| -rw-r--r-- | challenge-040/javier-luque/perl6/ch-1.p6 | 19 | ||||
| -rw-r--r-- | challenge-040/javier-luque/perl6/ch-2.p6 | 17 | ||||
| -rw-r--r-- | stats/pwc-current.json | 103 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown-summary.json | 66 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown.json | 610 | ||||
| -rw-r--r-- | stats/pwc-leaders.json | 578 | ||||
| -rw-r--r-- | stats/pwc-summary-1-30.json | 48 | ||||
| -rw-r--r-- | stats/pwc-summary-121-150.json | 82 | ||||
| -rw-r--r-- | stats/pwc-summary-31-60.json | 46 | ||||
| -rw-r--r-- | stats/pwc-summary-61-90.json | 110 | ||||
| -rw-r--r-- | stats/pwc-summary-91-120.json | 40 | ||||
| -rw-r--r-- | stats/pwc-summary.json | 44 |
15 files changed, 955 insertions, 852 deletions
diff --git a/challenge-040/javier-luque/blog.txt b/challenge-040/javier-luque/blog.txt new file mode 100644 index 0000000000..c6d6b155fb --- /dev/null +++ b/challenge-040/javier-luque/blog.txt @@ -0,0 +1 @@ +https://perlchallenges.wordpress.com/2019/12/23/perl-weekly-challenge-040/ diff --git a/challenge-040/javier-luque/perl5/ch-1.pl b/challenge-040/javier-luque/perl5/ch-1.pl new file mode 100644 index 0000000000..dcb10512b0 --- /dev/null +++ b/challenge-040/javier-luque/perl5/ch-1.pl @@ -0,0 +1,23 @@ +#!/usr/bin/perl +# Test: ./ch1.pl +use strict; +use warnings; +use feature qw /say/; + +my $arrays = [ + [ qw (I L O V E Y O U) ], + [ qw (2 4 0 3 2 0 1 9) ], + [ qw (! ? £ $ % ^ & *) ], +]; + +# Sizes of the array +my @sizes = + sort { $b <=> $a } + map { scalar(@$_) } @$arrays; + +# Loop through each array +for my $i (0 .. $sizes[0] - 1) { + say join ' ', + map { $_->[$i] // ' ' } + @$arrays; +} diff --git a/challenge-040/javier-luque/perl5/ch-2.pl b/challenge-040/javier-luque/perl5/ch-2.pl new file mode 100644 index 0000000000..7035856da9 --- /dev/null +++ b/challenge-040/javier-luque/perl5/ch-2.pl @@ -0,0 +1,20 @@ +#!/usr/bin/perl +# test: ./ch2.pl +use strict; +use warnings; +use feature qw /say/; + +my @list = (10, 4, 1, 8, 12, 3); +my @indices = (0, 2, 5); + +# Create a sublist +my @sublist = + sort {$a <=> $b} @list[@indices]; + +# Override the original array +my $i = 0; +for my $index (@indices) { + $list[$index] = $sublist[$i++]; +} + +say join ',', @list; diff --git a/challenge-040/javier-luque/perl6/ch-1.p6 b/challenge-040/javier-luque/perl6/ch-1.p6 new file mode 100644 index 0000000000..86ae518f73 --- /dev/null +++ b/challenge-040/javier-luque/perl6/ch-1.p6 @@ -0,0 +1,19 @@ +# Test: perl6 ch1.p6 +use v6.d; + +sub MAIN() { + my @arrays = ( + <I L O V E Y O U>, + <2 4 0 3 2 0 1 9>, + <! ? £ $ % ^ & *>, + ); + + my $max = @arrays.sort({$^b.elems <=> $^a.elems}) + .first + .elems; + + for (0 .. $max - 1) ->$i { + say @arrays.map({$_[$i] // ' '}) + .join(" "); + } +} diff --git a/challenge-040/javier-luque/perl6/ch-2.p6 b/challenge-040/javier-luque/perl6/ch-2.p6 new file mode 100644 index 0000000000..85fd28dacd --- /dev/null +++ b/challenge-040/javier-luque/perl6/ch-2.p6 @@ -0,0 +1,17 @@ +# Test: perl6 ./ch2.p6 +use v6.d; + +sub MAIN () { + my @list = (10, 4, 1, 8, 12, 3); + my @indices = (0, 2, 5); + + my @sublist = @list[@indices].sort; + + # Override the original array + my $i = 0; + for (@indices) -> $index { + @list[$index] = @sublist[$i++]; + } + + say @list; +} diff --git a/stats/pwc-current.json b/stats/pwc-current.json index 827eca9544..4ed2bc3633 100644 --- a/stats/pwc-current.json +++ b/stats/pwc-current.json @@ -1,20 +1,66 @@ { - "yAxis" : { - "title" : { - "text" : "Total Solutions" + "series" : [ + { + "name" : "Perl Weekly Challenge - 040", + "data" : [ + { + "name" : "Javier Luque", + "drilldown" : "Javier Luque", + "y" : 5 + }, + { + "drilldown" : "Roger Bell West", + "name" : "Roger Bell West", + "y" : 4 + }, + { + "name" : "Simon Proctor", + "drilldown" : "Simon Proctor", + "y" : 2 + } + ], + "colorByPoint" : 1 } - }, + ], "legend" : { "enabled" : 0 }, + "subtitle" : { + "text" : "[Champions: 3] Last updated at 2019-12-23 12:55:29 GMT" + }, "title" : { "text" : "Perl Weekly Challenge - 040" }, + "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" + }, "drilldown" : { "series" : [ { + "name" : "Javier Luque", + "data" : [ + [ + "Perl 5", + 2 + ], + [ + "Perl 6", + 2 + ], + [ + "Blog", + 1 + ] + ], + "id" : "Javier Luque" + }, + { "id" : "Roger Bell West", - "name" : "Roger Bell West", "data" : [ [ "Perl 5", @@ -24,7 +70,8 @@ "Perl 6", 2 ] - ] + ], + "name" : "Roger Bell West" }, { "id" : "Simon Proctor", @@ -38,45 +85,21 @@ } ] }, - "chart" : { - "type" : "column" - }, - "series" : [ - { - "colorByPoint" : 1, - "name" : "Perl Weekly Challenge - 040", - "data" : [ - { - "y" : 4, - "drilldown" : "Roger Bell West", - "name" : "Roger Bell West" - }, - { - "y" : 2, - "drilldown" : "Simon Proctor", - "name" : "Simon Proctor" - } - ] + "yAxis" : { + "title" : { + "text" : "Total Solutions" } - ], - "xAxis" : { - "type" : "category" - }, - "subtitle" : { - "text" : "[Champions: 2] Last updated at 2019-12-23 12:50:38 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 }, "plotOptions" : { "series" : { + "borderWidth" : 0, "dataLabels" : { - "format" : "{point.y}", - "enabled" : 1 - }, - "borderWidth" : 0 + "enabled" : 1, + "format" : "{point.y}" + } } + }, + "chart" : { + "type" : "column" } } diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json index 7318c44009..9d140c3047 100644 --- a/stats/pwc-language-breakdown-summary.json +++ b/stats/pwc-language-breakdown-summary.json @@ -1,63 +1,63 @@ { - "legend" : { - "enabled" : "false" - }, - "subtitle" : { - "text" : "Last updated at 2019-12-23 12:50:45 GMT" - }, - "chart" : { - "type" : "column" - }, - "yAxis" : { - "min" : 0, - "title" : { - "text" : null - } - }, - "tooltip" : { - "pointFormat" : "<b>{point.y:.0f}</b>" - }, "series" : [ { - "name" : "Contributions", "dataLabels" : { - "format" : "{point.y:.0f}", - "enabled" : "true", - "color" : "#FFFFFF", + "align" : "right", + "y" : 10, "rotation" : -90, + "color" : "#FFFFFF", "style" : { "fontFamily" : "Verdana, sans-serif", "fontSize" : "13px" }, - "y" : 10, - "align" : "right" + "enabled" : "true", + "format" : "{point.y:.0f}" }, "data" : [ [ "Blog", - 424 + 425 ], [ "Perl 5", - 1617 + 1619 ], [ "Perl 6", - 976 + 978 ] - ] + ], + "name" : "Contributions" } ], - "title" : { - "text" : "Perl Weekly Challenge Contributions - 2019" - }, "xAxis" : { "labels" : { "style" : { - "fontSize" : "13px", - "fontFamily" : "Verdana, sans-serif" + "fontFamily" : "Verdana, sans-serif", + "fontSize" : "13px" } }, "type" : "category" + }, + "legend" : { + "enabled" : "false" + }, + "tooltip" : { + "pointFormat" : "<b>{point.y:.0f}</b>" + }, + "subtitle" : { + "text" : "Last updated at 2019-12-23 12:55:36 GMT" + }, + "title" : { + "text" : "Perl Weekly Challenge Contributions - 2019" + }, + "yAxis" : { + "min" : 0, + "title" : { + "text" : null + } + }, + "chart" : { + "type" : "column" } } diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json index 9ad4114df6..9c10358946 100644 --- a/stats/pwc-language-breakdown.json +++ b/stats/pwc-language-breakdown.json @@ -1,6 +1,239 @@ { - "title" : { - "text" : "Perl Weekly Challenge Language" + "legend" : { + "enabled" : "false" + }, + "plotOptions" : { + "series" : { + "borderWidth" : 0, + "dataLabels" : { + "enabled" : 1, + "format" : "{point.y}" + } + } + }, + "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" + }, + "series" : [ + { + "colorByPoint" : "true", + "name" : "Perl Weekly Challenge Languages", + "data" : [ + { + "name" : "#001", + "drilldown" : "001", + "y" : 140 + }, + { + "name" : "#002", + "y" : 108, + "drilldown" : "002" + }, + { + "drilldown" : "003", + "y" : 71, + "name" : "#003" + }, + { + "y" : 91, + "drilldown" : "004", + "name" : "#004" + }, + { + "drilldown" : "005", + "y" : 71, + "name" : "#005" + }, + { + "name" : "#006", + "y" : 48, + "drilldown" : "006" + }, + { + "drilldown" : "007", + "y" : 56, + "name" : "#007" + }, + { + "name" : "#008", + "drilldown" : "008", + "y" : 70 + }, + { + "name" : "#009", + "drilldown" : "009", + "y" : 68 + }, + { + "name" : "#010", + "drilldown" : "010", + "y" : 60 + }, + { + "y" : 79, + "drilldown" : "011", + "name" : "#011" + }, + { + "name" : "#012", + "y" : 83, + "drilldown" : "012" + }, + { + "name" : "#013", + "y" : 76, + "drilldown" : "013" + }, + { + "drilldown" : "014", + "y" : 96, + "name" : "#014" + }, + { + "name" : "#015", + "y" : 93, + "drilldown" : "015" + }, + { + "name" : "#016", + "drilldown" : "016", + "y" : 66 + }, + { + "name" : "#017", + "y" : 79, + "drilldown" : "017" + }, + { + "name" : "#018", + "y" : 76, + "drilldown" : "018" + }, + { + "name" : "#019", + "drilldown" : "019", + "y" : 95 + }, + { + "name" : "#020", + "drilldown" : "020", + "y" : 95 + }, + { + "name" : "#021", + "y" : 67, + "drilldown" : "021" + }, + { + "name" : "#022", + "drilldown" : "022", + "y" : 63 + }, + { + "name" : "#023", + "drilldown" : "023", + "y" : 91 + }, + { + "drilldown" : "024", + "y" : 70, + "name" : "#024" + }, + { + "name" : "#025", + "y" : 55, + "drilldown" : "025" + }, + { + "y" : 70, + "drilldown" : "026", + "name" : "#026" + }, + { + "name" : "#027", + "y" : 58, + "drilldown" : "027" + }, + { + "y" : 78, + "drilldown" : "028", + "name" : "#028" + }, + { + "drilldown" : "029", + "y" : 77, + "name" : "#029" + }, + { + "drilldown" : "030", + "y" : 115, + "name" : "#030" + }, + { + "y" : 87, + "drilldown" : "031", + "name" : "#031" + }, + { + "name" : "#032", + "y" : 92, + "drilldown" : "032" + }, + { + "name" : "#033", + "y" : 108, + "drilldown" : "033" + }, + { + "name" : "#034", + "y" : 60, + "drilldown" : "034" + }, + { + "drilldown" : "035", + "y" : 60, + "name" : "#035" + }, + { + "y" : 61, + "drilldown" : "036", + "name" : "#036" + }, + { + "name" : "#037", + "drilldown" : "037", + "y" : 63 + }, + { + "name" : "#038", + "y" : 61, + "drilldown" : "038" + }, + { + "drilldown" : "039", + "y" : 54, + "name" : "#039" + }, + { + "name" : "#040", + "y" : 11, + "drilldown" : "040" + } + ] + } + ], + "xAxis" : { + "type" : "category" + }, + "yAxis" : { + "title" : { + "text" : "Total Solutions" + } + }, + "chart" : { + "type" : "column" }, "drilldown" : { "series" : [ @@ -23,8 +256,6 @@ "id" : "001" }, { - "id" : "002", - "name" : "002", "data" : [ [ "Perl 5", @@ -38,7 +269,9 @@ "Blog", 9 ] - ] + ], + "id" : "002", + "name" : "002" }, { "name" : "003", @@ -59,8 +292,8 @@ ] }, { - "id" : "004", "name" : "004", + "id" : "004", "data" : [ [ "Perl 5", @@ -77,6 +310,8 @@ ] }, { + "id" : "005", + "name" : "005", "data" : [ [ "Perl 5", @@ -90,13 +325,11 @@ "Blog", 12 ] - ], - "id" : "005", - "name" : "005" + ] }, { - "id" : "006", "name" : "006", + "id" : "006", "data" : [ [ "Perl 5", @@ -113,6 +346,8 @@ ] }, { + "name" : "007", + "id" : "007", "data" : [ [ "Perl 5", @@ -126,9 +361,7 @@ "Blog", 10 ] - ], - "id" : "007", - "name" : "007" + ] }, { "data" : [ @@ -149,6 +382,8 @@ "id" : "008" }, { + "id" : "009", + "name" : "009", "data" : [ [ "Perl 5", @@ -162,9 +397,7 @@ "Blog", 13 ] - ], - "id" : "009", - "name" : "009" + ] }, { "id" : "010", @@ -199,8 +432,8 @@ 10 ] ], - "id" : "011", - "name" : "011" + "name" : "011", + "id" : "011" }, { "data" : [ @@ -221,6 +454,8 @@ "id" : "012" }, { + "name" : "013", + "id" : "013", "data" : [ [ "Perl 5", @@ -234,9 +469,7 @@ "Blog", 13 ] - ], - "id" : "013", - "name" : "013" + ] }, { "data" : [ @@ -271,10 +504,12 @@ 15 ] ], - "name" : "015", - "id" : "015" + "id" : "015", + "name" : "015" }, { + "id" : "016", + "name" : "016", "data" : [ [ "Perl 5", @@ -288,9 +523,7 @@ "Blog", 12 ] - ], - "id" : "016", - "name" : "016" + ] }, { "data" : [ @@ -311,6 +544,8 @@ "id" : "017" }, { + "id" : "018", + "name" : "018", "data" : [ [ "Perl 5", @@ -324,9 +559,7 @@ "Blog", 14 ] - ], - "id" : "018", - "name" : "018" + ] }, { "data" : [ @@ -343,12 +576,10 @@ 13 ] ], - "name" : "019", - "id" : "019" + "id" : "019", + "name" : "019" }, { - "id" : "020", - "name" : "020", "data" : [ [ "Perl 5", @@ -362,9 +593,13 @@ "Blog", 13 ] - ] + ], + "name" : "020", + "id" : "020" }, { + "name" : "021", + "id" : "021", "data" : [ [ "Perl 5", @@ -378,9 +613,7 @@ "Blog", 10 ] - ], - "id" : "021", - "name" : "021" + ] }, { "name" : "022", @@ -401,6 +634,8 @@ ] }, { + "id" : "023", + "name" : "023", "data" : [ [ "Perl 5", @@ -414,13 +649,9 @@ "Blog", 12 ] - ], - "name" : "023", - "id" : "023" + ] }, { - "name" : "024", - "id" : "024", "data" : [ [ "Perl 5", @@ -434,7 +665,9 @@ "Blog", 11 ] - ] + ], + "id" : "024", + "name" : "024" }, { "data" : [ @@ -451,12 +684,10 @@ 12 ] ], - "name" : "025", - "id" : "025" + "id" : "025", + "name" : "025" }, { - "name" : "026", - "id" : "026", "data" : [ [ "Perl 5", @@ -470,11 +701,11 @@ "Blog", 10 ] - ] + ], + "id" : "026", + "name" : "026" }, { - "name" : "027", - "id" : "027", "data" : [ [ "Perl 5", @@ -488,7 +719,9 @@ "Blog", 9 ] - ] + ], + "name" : "027", + "id" : "027" }, { "name" : "028", @@ -527,6 +760,8 @@ "id" : "029" }, { + "name" : "030", + "id" : "030", "data" : [ [ "Perl 5", @@ -540,13 +775,11 @@ "Blog", 10 ] - ], - "id" : "030", - "name" : "030" + ] }, { - "id" : "031", "name" : "031", + "id" : "031", "data" : [ [ "Perl 5", @@ -563,8 +796,8 @@ ] }, { - "id" : "032", "name" : "032", + "id" : "032", "data" : [ [ "Perl 5", @@ -581,8 +814,8 @@ ] }, { - "id" : "033", "name" : "033", + "id" : "033", "data" : [ [ "Perl 5", @@ -635,8 +868,6 @@ ] }, { - "name" : "036", - "id" : "036", "data" : [ [ "Perl 5", @@ -650,7 +881,9 @@ "Blog", 10 ] - ] + ], + "id" : "036", + "name" : "036" }, { "data" : [ @@ -671,8 +904,8 @@ "id" : "037" }, { - "id" : "038", "name" : "038", + "id" : "038", "data" : [ [ "Perl 5", @@ -689,8 +922,6 @@ ] }, { - "id" : "039", - "name" : "039", "data" : [ [ "Perl 5", @@ -704,265 +935,34 @@ "Blog", 8 ] - ] + ], + "name" : "039", + "id" : "039" }, { "data" : [ [ "Perl 5", - 2 + 4 ], [ "Perl 6", - 4 + 6 ], [ "Blog", - 0 + 1 ] ], - "id" : "040", - "name" : "040" + "name" : "040", + "id" : "040" } ] }, - "xAxis" : { - "type" : "category" - }, - "legend" : { - "enabled" : "false" - }, - "plotOptions" : { - "series" : { - "borderWidth" : 0, - "dataLabels" : { - "format" : "{point.y}", - "enabled" : 1 - } - } - }, - "chart" : { - "type" : "column" - }, "subtitle" : { - "text" : "Click the columns to drilldown the language breakdown. Last updated at 2019-12-23 12:50:45 GMT" + "text" : "Click the columns to drilldown the language breakdown. Last updated at 2019-12-23 12:55:36 GMT" }, - "series" : [ - { - "name" : "Perl Weekly Challenge Languages", - "data" : [ - { - "name" : "#001", - "drilldown" : "001", - "y" : 140 - }, - { - "drilldown" : "002", - "name" : "#002", - "y" : 108 - }, - { - "y" : 71, - "name" : "#003", - "drilldown" : "003" - }, - { - "drilldown" : "004", - "name" : "#004", - "y" : 91 - }, - { - "name" : "#005", - "drilldown" : "005", - "y" : 71 - }, - { - "y" : 48, - "name" : "#006", - "drilldown" : "006" - }, - { - "drilldown" : "007", - "name" : "#007", - "y" : 56 - }, - { - "drilldown" : "008", - "name" : "#008", - "y" : 70 - }, - { - "drilldown" : "009", - "name" : "#009", - "y" : 68 - }, - { - "y" : 60, - "name" : "#010", - "drilldown" : "010" - }, - { - "drilldown" : "011", - "name" : "#011", - "y" : 79 - }, - { - "y" : 83, - "drilldown" : "012", - "name" : "#012" - }, - { - "y" : 76, - "name" : "#013", - "drilldown" : "013" - }, - { - "name" : "#014", - "drilldown" : "014", - "y" : 96 - }, - { - "name" : "#015", - "drilldown" : "015", - "y" : 93 - }, - { - "drilldown" : "016", - "name" : "#016", - "y" : 66 - }, - { - "name" : "#017", - "drilldown" : "017", - "y" : 79 - }, - { - "y" : 76, - "name" : "#018", - "drilldown" : "018" - }, - { - "y" : 95, |
