diff options
| -rw-r--r-- | challenge-031/javier-luque/README | 1 | ||||
| -rw-r--r-- | challenge-031/javier-luque/perl5/ch-1.pl | 21 | ||||
| -rw-r--r-- | challenge-031/javier-luque/perl5/ch-2.pl | 22 | ||||
| -rw-r--r-- | challenge-031/javier-luque/perl6/ch-1.p6 | 21 | ||||
| -rw-r--r-- | challenge-031/javier-luque/perl6/ch-2.p6 | 14 | ||||
| -rw-r--r-- | members.json | 1 | ||||
| -rw-r--r-- | stats/pwc-current.json | 265 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown-summary.json | 54 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown.json | 474 | ||||
| -rw-r--r-- | stats/pwc-leaders.json | 538 | ||||
| -rw-r--r-- | stats/pwc-summary-1-30.json | 52 | ||||
| -rw-r--r-- | stats/pwc-summary-121-150.json | 70 | ||||
| -rw-r--r-- | stats/pwc-summary-31-60.json | 124 | ||||
| -rw-r--r-- | stats/pwc-summary-61-90.json | 120 | ||||
| -rw-r--r-- | stats/pwc-summary-91-120.json | 122 | ||||
| -rw-r--r-- | stats/pwc-summary.json | 44 |
16 files changed, 1025 insertions, 918 deletions
diff --git a/challenge-031/javier-luque/README b/challenge-031/javier-luque/README new file mode 100644 index 0000000000..887e7fc81a --- /dev/null +++ b/challenge-031/javier-luque/README @@ -0,0 +1 @@ +Solutions by Javier Luque. diff --git a/challenge-031/javier-luque/perl5/ch-1.pl b/challenge-031/javier-luque/perl5/ch-1.pl new file mode 100644 index 0000000000..e5274a7c27 --- /dev/null +++ b/challenge-031/javier-luque/perl5/ch-1.pl @@ -0,0 +1,21 @@ +#!/usr/bin/perl +use strict; +use warnings; +use feature qw/ say /; + +# A few test cases +for my $statement ('1/0', '1/2', '0/100') { + my $answer = divide_by_zero_check($statement); + (defined($answer)) ? + say $statement . ' - ' . $answer : + say $statement . ' - ' . 'divide by 0 error'; +} + +# Return the $answer or undef if we can't divide by 0 +sub divide_by_zero_check { + my $answer; + eval { $answer = eval shift; }; + return $answer; +} + + diff --git a/challenge-031/javier-luque/perl5/ch-2.pl b/challenge-031/javier-luque/perl5/ch-2.pl new file mode 100644 index 0000000000..69d5c24a25 --- /dev/null +++ b/challenge-031/javier-luque/perl5/ch-2.pl @@ -0,0 +1,22 @@ +#!/usr/bin/perl +use strict; +use warnings; +use feature qw/ say /; +no strict "refs"; + +our $test; # for testing this + +# Randomly populate the dynamic variable +my $dynamic_variable_name = $ARGV[0]; +my $random_value = rand('99999999999'); +$$dynamic_variable_name = $random_value; + +# Say random variable name and value +say 'Random variable name: ' . $dynamic_variable_name; +say 'Random value: ' . ${$dynamic_variable_name}; + +# test like this: ch2.pl test +say 'Variable test is: ' . $test + if ($dynamic_variable_name eq 'test'); + + diff --git a/challenge-031/javier-luque/perl6/ch-1.p6 b/challenge-031/javier-luque/perl6/ch-1.p6 new file mode 100644 index 0000000000..a87e4ffe89 --- /dev/null +++ b/challenge-031/javier-luque/perl6/ch-1.p6 @@ -0,0 +1,21 @@ +use v6.d; + +sub MAIN () { + # A few test cases + my @array = ['1/0', '1/2', '0/100']; + for @array -> $array-item { + divide-by-zero-check($array-item); + } +} + +# Catch the error and say if we can't divide by 0 +sub divide-by-zero-check(Str $statement) { + try { + my $answer = Rat($statement); + say $answer; + + CATCH { + default { say "divide by 0 error, $_" } + } + } +} diff --git a/challenge-031/javier-luque/perl6/ch-2.p6 b/challenge-031/javier-luque/perl6/ch-2.p6 new file mode 100644 index 0000000000..f4a725092a --- /dev/null +++ b/challenge-031/javier-luque/perl6/ch-2.p6 @@ -0,0 +1,14 @@ +use v6.d; + +sub MAIN (Str $variable) { + # Randomly populate the random value + my $random_value = (0..^9).roll(12).join; + GLOBAL::{'$' ~ $variable} = $random_value; + + # Say dynamic variable name and random value + say 'Dynamic variable name: ' ~ $variable; + say 'Random value: ' ~ GLOBAL::{'$' ~ $variable}; + + # test like this: perl6 ch2.p6 test + say 'Variable test is: ' ~ $*test if ($variable eq 'test'); +} diff --git a/members.json b/members.json index 017430ceba..d04e9f6578 100644 --- a/members.json +++ b/members.json @@ -48,6 +48,7 @@ "jaldhar-h-vyas" : "Jaldhar H. Vyas", "james-smith" : "Dr James A. Smith", "jaime" : "Jaime Corchado", + "javier-luque" : "Javier Luque", "jeff" : "Jeff", "jeremy-carman" : "Jeremy Carman", "jim-bacon" : "Jim Bacon", diff --git a/stats/pwc-current.json b/stats/pwc-current.json index b2bbf71844..dd16dfa9f9 100644 --- a/stats/pwc-current.json +++ b/stats/pwc-current.json @@ -4,146 +4,74 @@ "text" : "Total Solutions" } }, - "legend" : { - "enabled" : 0 - }, "chart" : { "type" : "column" }, - "series" : [ - { - "colorByPoint" : 1, - "data" : [ - { - "drilldown" : "Andrezgz", - "y" : 2, - "name" : "Andrezgz" - }, - { - "y" : 2, - "drilldown" : "Burkhard Nickels", - "name" : "Burkhard Nickels" - }, - { - "name" : "Dave Cross", - "y" : 2, - "drilldown" : "Dave Cross" - }, - { - "y" : 2, - "drilldown" : "Dave Jacoby", - "name" : "Dave Jacoby" - }, - { - "name" : "Duane Powell", - "drilldown" : "Duane Powell", - "y" : 2 - }, - { - "y" : 2, - "drilldown" : "Lars Balker", - "name" : "Lars Balker" - }, - { - "name" : "Markus Holzer", - "y" : 2, - "drilldown" : "Markus Holzer" - }, - { - "name" : "Maxim Kolodyazhny", - "drilldown" : "Maxim Kolodyazhny", - "y" : 1 - }, - { - "name" : "Nazareno Delucca", - "y" : 2, - "drilldown" : "Nazareno Delucca" - }, - { - "drilldown" : "Pete Houston", - "y" : 1, - "name" : "Pete Houston" - }, - { - "name" : "Simon Proctor", - "drilldown" : "Simon Proctor", - "y" : 1 - }, - { - "drilldown" : "Steven Wilson", - "y" : 2, - "name" : "Steven Wilson" - }, - { - "name" : "Tyler Limkemann", - "y" : 2, - "drilldown" : "Tyler Limkemann" - }, - { - "drilldown" : "Vyacheslav Volgarev", - "y" : 2, - "name" : "Vyacheslav Volgarev" - }, - { - "name" : "Yet Ebreo", - "drilldown" : "Yet Ebreo", - "y" : 3 - } - ], - "name" : "Perl Weekly Challenge - 031" - } - ], "drilldown" : { "series" : [ { "id" : "Andrezgz", + "name" : "Andrezgz", "data" : [ [ "Perl 5", 2 ] - ], - "name" : "Andrezgz" + ] }, { - "id" : "Burkhard Nickels", "data" : [ [ "Perl 5", 2 ] ], - "name" : "Burkhard Nickels" + "name" : "Burkhard Nickels", + "id" : "Burkhard Nickels" }, { - "id" : "Dave Cross", "name" : "Dave Cross", "data" : [ [ "Perl 5", 2 ] + ], + "id" : "Dave Cross" + }, + { + "id" : "Dave Jacoby", + "name" : "Dave Jacoby", + "data" : [ + [ + "Perl 5", + 2 + ] ] }, { + "id" : "Duane Powell", + "name" : "Duane Powell", "data" : [ [ "Perl 5", 2 ] - ], - "name" : "Dave Jacoby", - "id" : "Dave Jacoby" + ] }, { + "name" : "Javier Luque", "data" : [ [ "Perl 5", 2 + ], + [ + "Perl 6", + 2 ] ], - "name" : "Duane Powell", - "id" : "Duane Powell" + "id" : "Javier Luque" }, { "id" : "Lars Balker", @@ -157,43 +85,43 @@ }, { "id" : "Markus Holzer", - "name" : "Markus Holzer", "data" : [ [ "Perl 6", 2 ] - ] + ], + "name" : "Markus Holzer" }, { - "id" : "Maxim Kolodyazhny", "name" : "Maxim Kolodyazhny", "data" : [ [ "Perl 5", 1 ] - ] + ], + "id" : "Maxim Kolodyazhny" }, { - "name" : "Nazareno Delucca", "data" : [ [ "Perl 5", 2 ] ], + "name" : "Nazareno Delucca", "id" : "Nazareno Delucca" }, { - "name" : "Pete Houston", + "id" : "Pete Houston", "data" : [ [ "Perl 5", 1 ] ], - "id" : "Pete Houston" + "name" : "Pete Houston" }, { "name" : "Simon Proctor", @@ -206,37 +134,37 @@ "id" : "Simon Proctor" }, { + "id" : "Steven Wilson", "name" : "Steven Wilson", "data" : [ [ "Perl 5", 2 ] - ], - "id" : "Steven Wilson" + ] }, { "id" : "Tyler Limkemann", + "name" : "Tyler Limkemann", "data" : [ [ "Perl 6", 2 ] - ], - "name" : "Tyler Limkemann" + ] }, { + "id" : "Vyacheslav Volgarev", "data" : [ [ "Perl 5", 2 ] ], - "name" : "Vyacheslav Volgarev", - "id" : "Vyacheslav Volgarev" + "name" : "Vyacheslav Volgarev" }, { - "name" : "Yet Ebreo", + "id" : "Yet Ebreo", "data" : [ [ "Perl 5", @@ -247,31 +175,122 @@ 1 ] ], - "id" : "Yet Ebreo" + "name" : "Yet Ebreo" } ] }, + "subtitle" : { + "text" : "[Champions: 16] Last updated at 2019-10-24 14:08:57 GMT" + }, + "xAxis" : { + "type" : "category" + }, + "series" : [ + { + "name" : "Perl Weekly Challenge - 031", + "data" : [ + { + "y" : 2, + "name" : "Andrezgz", + "drilldown" : "Andrezgz" + }, + { + "drilldown" : "Burkhard Nickels", + "name" : "Burkhard Nickels", + "y" : 2 + }, + { + "name" : "Dave Cross", + "drilldown" : "Dave Cross", + "y" : 2 + }, + { + "y" : 2, + "drilldown" : "Dave Jacoby", + "name" : "Dave Jacoby" + }, + { + "y" : 2, + "name" : "Duane Powell", + "drilldown" : "Duane Powell" + }, + { + "drilldown" : "Javier Luque", + "name" : "Javier Luque", + "y" : 4 + }, + { + "drilldown" : "Lars Balker", + "name" : "Lars Balker", + "y" : 2 + }, + { + "y" : 2, + "drilldown" : "Markus Holzer", + "name" : "Markus Holzer" + }, + { + "name" : "Maxim Kolodyazhny", + "drilldown" : "Maxim Kolodyazhny", + "y" : 1 + }, + { + "y" : 2, + "drilldown" : "Nazareno Delucca", + "name" : "Nazareno Delucca" + }, + { + "y" : 1, + "drilldown" : "Pete Houston", + "name" : "Pete Houston" + }, + { + "name" : "Simon Proctor", + "drilldown" : "Simon Proctor", + "y" : 1 + }, + { + "y" : 2, + "name" : "Steven Wilson", + "drilldown" : "Steven Wilson" + }, + { + "name" : "Tyler Limkemann", + "drilldown" : "Tyler Limkemann", + "y" : 2 + }, + { + "drilldown" : "Vyacheslav Volgarev", + "name" : "Vyacheslav Volgarev", + "y" : 2 + }, + { + "drilldown" : "Yet Ebreo", + "name" : "Yet Ebreo", + "y" : 3 + } + ], + "colorByPoint" : 1 + } + ], "title" : { "text" : "Perl Weekly Challenge - 031" }, + "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/>" + }, "plotOptions" : { "series" : { + "borderWidth" : 0, "dataLabels" : { "enabled" : 1, "format" : "{point.y}" - }, - "borderWidth" : 0 + } } }, - "xAxis" : { - "type" : "category" - }, - "subtitle" : { - "text" : "[Champions: 15] Last updated at 2019-10-24 10:53:14 GMT" - }, - "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 + "legend" : { + "enabled" : 0 } } diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json index db8fa24497..a65ea72742 100644 --- a/stats/pwc-language-breakdown-summary.json +++ b/stats/pwc-language-breakdown-summary.json @@ -1,35 +1,32 @@ { - "xAxis" : { - "type" : "category", - "labels" : { - "style" : { - "fontFamily" : "Verdana, sans-serif", - "fontSize" : "13px" - } - } + "legend" : { + "enabled" : "false" }, "subtitle" : { - "text" : "Last updated at 2019-10-24 10:53:29 GMT" + "text" : "Last updated at 2019-10-24 14:09:38 GMT" }, "yAxis" : { - "min" : 0, "title" : { "text" : null - } + }, + "min" : 0 + }, + "tooltip" : { + "pointFormat" : "<b>{point.y:.0f}</b>" }, "series" : [ { "dataLabels" : { - "rotation" : -90, - "y" : 10, "color" : "#FFFFFF", - "align" : "right", - "enabled" : "true", "format" : "{point.y:.0f}", + "enabled" : "true", "style" : { - "fontSize" : "13px", - "fontFamily" : "Verdana, sans-serif" - } + "fontFamily" : "Verdana, sans-serif", + "fontSize" : "13px" + }, + "y" : 10, + "align" : "right", + "rotation" : -90 }, "data" : [ [ @@ -38,26 +35,29 @@ ], [ "Perl 5", - 1276 + 1278 ], [ "Perl 6", - 756 + 758 ] ], "name" : "Contributions" } ], - "title" : { - "text" : "Perl Weekly Challenge Contributions - 2019" - }, - "tooltip" : { - "pointFormat" : "<b>{point.y:.0f}</b>" + "xAxis" : { + "labels" : { + "style" : { + "fontSize" : "13px", + "fontFamily" : "Verdana, sans-serif" + } + }, + "type" : "category" }, "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 fac1b1c31b..e59155612c 100644 --- a/stats/pwc-language-breakdown.json +++ b/stats/pwc-language-breakdown.json @@ -1,11 +1,187 @@ { - "xAxis" : { - "type" : "category" + "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" : [ + { + "data" : [ + { + "drilldown" : "001", + "y" : 132, + "name" : "#001" + }, + { + "name" : "#002", + "y" : 104, + "drilldown" : "002" + }, + { + "drilldown" : "003", + "name" : "#003", + "y" : 66 + }, + { + "name" : "#004", + "y" : 86, + "drilldown" : "004" + }, + { + "y" : 66, + "name" : "#005", + "drilldown" : "005" + }, + { + "y" : 48, + "name" : "#006", + "drilldown" : "006" + }, + { + "drilldown" : "007", + "name" : "#007", + "y" : 56 + }, + { + "drilldown" : "008", + "name" : "#008", + "y" : 70 + }, + { + "y" : 68, + "name" : "#009", + "drilldown" : "009" + }, + { + "y" : 60, + "name" : "#010", + "drilldown" : "010" + }, + { + "drilldown" : "011", + "name" : "#011", + "y" : 78 + }, + { + "name" : "#012", + "y" : 83, + "drilldown" : "012" + }, + { + "drilldown" : "013", + "y" : 76, + "name" : "#013" + }, + { + "drilldown" : "014", + "y" : 95, + "name" : "#014" + }, + { + "y" : 93, + "name" : "#015", + "drilldown" : "015" + }, + { + "drilldown" : "016", + "name" : "#016", + "y" : 66 + }, + { + "y" : 79, + "name" : "#017", + "drilldown" : "017" + }, + { + "drilldown" : "018", + "name" : "#018", + "y" : 76 + }, + { + "y" : 95, + "name" : "#019", + "drilldown" : "019" + }, + { + "drilldown" : "020", + "y" : 95, + "name" : "#020" + }, + { + "y" : 67, + "name" : "#021", + "drilldown" : "021" + }, + { + "y" : 63, + "name" : "#022", + "drilldown" : "022" + }, + { + "y" : 91, + "name" : "#023", + "drilldown" : "023" + }, + { + "y" : 70, + "name" : "#024", + "drilldown" : "024" + }, + { + "name" : "#025", + "y" : 55, + "drilldown" : "025" + }, + { + "drilldown" : "026", + "name" : "#026", + "y" : 70 + }, + { + "name" : "#027", + "y" : 58, + "drilldown" : "027" + }, + { + "drilldown" : "028", + "y" : 78, + "name" : "#028" + }, + { + "drilldown" : "029", + "name" : "#029", + "y" : 76 + }, + { + "drilldown" : "030", + "y" : 112, + "name" : "#030" + }, + { + "drilldown" : "031", + "y" : 32, + "name" : "#031" + } + ], + "name" : "Perl Weekly Challenge Languages", + "colorByPoint" : "true" + } + ], + "subtitle" : { + "text" : "Click the columns to drilldown the language breakdown. Last updated at 2019-10-24 14:09:38 GMT" + }, + "legend" : { + "enabled" : "false" + }, + "yAxis" : { + "title" : { + "text" : "Total Solutions" + } }, "drilldown" : { "series" : [ { - "id" : "001", + "name" : "001", "data" : [ [ "Perl 5", @@ -20,11 +196,9 @@ 11 ] ], - "name" : "001" + "id" : "001" }, { - "name" : "002", - "id" : "002", "data" : [ [ "Perl 5", @@ -38,7 +212,9 @@ "Blog", 9 ] - ] + ], + "id" : "002", + "name" : "002" }, { "id" : "003", @@ -60,7 +236,6 @@ }, { "name" : "004", - "id" : "004", "data" : [ [ "Perl 5", @@ -74,7 +249,8 @@ "Blog", 9 ] - ] + ], + "id" : "004" }, { "name" : "005", @@ -96,6 +272,7 @@ }, { "name" : "006", + "id" : "006", "data" : [ [ "Perl 5", @@ -109,10 +286,10 @@ "Blog", 7 ] - ], - "id" : "006" + ] }, { + "name" : "007", "id" : "007", "data" : [ [ @@ -127,8 +304,7 @@ "Blog", 10 ] - ], - "name" : "007" + ] }, { "id" : "008", @@ -149,7 +325,6 @@ "name" : "008" }, { - "name" : "009", "data" : [ [ "Perl 5", @@ -164,11 +339,10 @@ 13 ] ], - "id" : "009" + "id" : "009", + "name" : "009" }, { - "name" : "010", - "id" : "010", "data" : [ [ "Perl 5", @@ -182,10 +356,12 @@ "Blog", 11 ] - ] + ], + "id" : "010", + "name" : "010" }, { - "name" : "011", + "id" : "011", "data" : [ [ "Perl 5", @@ -200,10 +376,9 @@ 9 ] ], - "id" : "011" + "name" : "011" }, { - "name" : "012", "id" : "012", "data" : [ [ @@ -218,10 +393,12 @@ "Blog", 11 ] - ] + ], + "name" : "012" }, { "name" : "013", + "id" : "013", "data" : [ [ "Perl 5", @@ -235,10 +412,10 @@ "Blog", 13 ] - ], - "id" : "013" + ] }, { + "name" : "014", "data" : [ [ "Perl 5", @@ -253,8 +430,7 @@ 14 ] ], - "id" : "014", - "name" : "014" + "id" : "014" }, { "data" : [ @@ -311,6 +487,7 @@ "id" : "017" }, { + "name" : "018", "id" : "018", "data" : [ [ @@ -325,8 +502,7 @@ "Blog", 14 ] - ], - "name" : "018" + ] }, { "data" : [ @@ -347,7 +523,7 @@ "name" : "019" }, { - "id" : "020", + "name" : "020", "data" : [ [ "Perl 5", @@ -362,9 +538,10 @@ 13 ] ], - "name" : "020" + "id" : "020" }, { + "id" : "021", "data" : [ [ "Perl 5", @@ -379,11 +556,9 @@ 10 ] ], - "id" : "021", "name" : "021" }, { - "name" : "022", "data" : [ [ "Perl 5", @@ -398,10 +573,10 @@ 10 ] ], - "id" : "022" + "id" : "022", + "name" : "022" }, { - "name" : "023", "data" : [ [ "Perl 5", @@ -416,10 +591,11 @@ 12 ] ], - "id" : "023" + "id" : "023", + "name" : "023" }, { - "id" : "024", + "name" : "024", "data" : [ [ "Perl 5", @@ -434,9 +610,10 @@ 11 ] ], - "name" : "024" + "id" : "024" }, { + "id" : "025", "data" : [ [ "Perl 5", @@ -451,10 +628,10 @@ 12 ] ], - "id" : "025", "name" : "025" }, { + "name" : "026", "data" : [ [ "Perl 5", @@ -469,11 +646,11 @@ 10 ] ], - "id" : "026", - "name" : "026" + "id" : "026" }, { "name" : "027", + "id" : "027", "data" : [ [ "Perl 5", @@ -487,10 +664,10 @@ "Blog", 9 ] - ], - "id" : "027" + ] }, { + "id" : "028", "data" : [ [ "Perl 5", @@ -505,12 +682,9 @@ 9 ] ], - "id" : "028", "name" : "028" }, { - "name" : "029", - "id" : "029", "data" : [ [ "Perl 5", @@ -524,11 +698,11 @@ "Blog", 11 ] - ] |
