diff options
| -rw-r--r-- | challenge-034/ulrich-rieke/perl6/ch-1.p6 | 22 | ||||
| -rw-r--r-- | challenge-034/ulrich-rieke/perl6/ch-2.p6 | 57 | ||||
| -rw-r--r-- | stats/pwc-current.json | 113 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown-summary.json | 56 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown.json | 290 | ||||
| -rw-r--r-- | stats/pwc-leaders.json | 864 | ||||
| -rw-r--r-- | stats/pwc-summary-1-30.json | 38 | ||||
| -rw-r--r-- | stats/pwc-summary-121-150.json | 44 | ||||
| -rw-r--r-- | stats/pwc-summary-31-60.json | 96 | ||||
| -rw-r--r-- | stats/pwc-summary-61-90.json | 112 | ||||
| -rw-r--r-- | stats/pwc-summary-91-120.json | 104 | ||||
| -rw-r--r-- | stats/pwc-summary.json | 316 |
12 files changed, 1103 insertions, 1009 deletions
diff --git a/challenge-034/ulrich-rieke/perl6/ch-1.p6 b/challenge-034/ulrich-rieke/perl6/ch-1.p6 new file mode 100644 index 0000000000..cb25c4aab9 --- /dev/null +++ b/challenge-034/ulrich-rieke/perl6/ch-1.p6 @@ -0,0 +1,22 @@ +use v6 ; + +#shows the use of hash slices! +my %towers = "tower 1" => 88 , "my favourite tower" => 102 , "elite tower" => 250 , + "record tower" => 500 , "ancient tower" => 34 , "medieval tower" => 20 ; +my @smaller = %towers.keys.grep( { %towers{$_} < 100 } ) ; +%towers{ @smaller }:delete ; +say "The bigger towers:" ; +for %towers.kv -> $tower , $height { + say "$tower has a height of $height meters." ; +} + +#...and of array slices : +my @random_DNA_bases ; +for (1..63 ) { + @random_DNA_bases.push( <A C T G>.pick( 1 )) ; +} +say "randomly selected DNA bases:" ; +@random_DNA_bases.say ; +my @tripletstarts = @random_DNA_bases[0,3,6...*] ; +say "...and the corresponding triplet starts:" ; +@tripletstarts.say ; diff --git a/challenge-034/ulrich-rieke/perl6/ch-2.p6 b/challenge-034/ulrich-rieke/perl6/ch-2.p6 new file mode 100644 index 0000000000..b28a8ca1db --- /dev/null +++ b/challenge-034/ulrich-rieke/perl6/ch-2.p6 @@ -0,0 +1,57 @@ +use v6 ; + +#demonstrating the use of a dispatcher, without much of input validation + +sub add( Numeric $a , Numeric $b ) { + return $a + $b ; +} + +sub subtract( Numeric $a , Numeric $b ) { + return $a - $b ; +} + +sub multiply( Numeric $a , Numeric $b ) { + return $a * $b ; +} + +sub divide( Numeric $a , Numeric $b ) { + return $a / $b ; +} + +say "Enter a number from 1 to 4 to indicate what you want to do!" ; +say "1) add" ; +say "2) subtract" ; +say "3) multiply" ; +say "4) divide" ; +my $answer = $*IN.get ; +my $choice = $answer.substr(0, 1 ) ; +while ( +$choice < 1 || +$choice > 4 ) { + say "Enter a number from 1 to 4 to indicate what you want to do!" ; + say "1) add" ; + say "2) subtract" ; + say "3) multiply" ; + say "4) divide" ; + $answer = $*IN.get ; + $choice = $answer.substr(0, 1 ) ; +} +say "Enter your 2 operands: ( 2 in a row separated by spaces )" ; +my $numberline = $*IN.get ; +my @numbers = $numberline.split(/\s+/) ; +while @numbers.elems < 2 { + say "Enter your 2 operands: (2 in a row separated by spaces)" ; + my $numberline = $*IN.get ; + my @numbers = $numberline.split(/\s+/) ; +} +my %dispatcher = '1' => &add , '2' => &subtract , '3' => &multiply, + '4' => ÷ ; +if ( 1 <= +$choice <= 3 ) { + say "The result is {%dispatcher{$choice}(+@numbers[0] , +@numbers[1]) }!" ; +} +if (+$choice == 4 ) { + if (+@numbers[1] == 0) { + say "Illegal division by 0!" ; + } + else { + say "The result is {%dispatcher{'4'}(+@numbers[0] , +@numbers[1]) }!" ; + } +} diff --git a/stats/pwc-current.json b/stats/pwc-current.json index d74b1621de..db1902d801 100644 --- a/stats/pwc-current.json +++ b/stats/pwc-current.json @@ -1,83 +1,58 @@ { - "legend" : { - "enabled" : 0 - }, - "plotOptions" : { - "series" : { - "dataLabels" : { - "format" : "{point.y}", - "enabled" : 1 - }, - "borderWidth" : 0 - } - }, - "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/>" - }, - "title" : { - "text" : "Perl Weekly Challenge - 034" + "subtitle" : { + "text" : "[Champions: 6] Last updated at 2019-11-12 11:14:49 GMT" }, "series" : [ { "colorByPoint" : 1, "data" : [ { - "drilldown" : "Duane Powell", + "y" : 2, "name" : "Duane Powell", - "y" : 2 + "drilldown" : "Duane Powell" }, { - "name" : "Javier Luque", "drilldown" : "Javier Luque", + "name" : "Javier Luque", "y" : 5 }, { - "drilldown" : "Laurent Rosenfeld", "name" : "Laurent Rosenfeld", - "y" : 5 + "y" : 5, + "drilldown" : "Laurent Rosenfeld" }, { + "y" : 1, "name" : "Mark Anderson", - "drilldown" : "Mark Anderson", - "y" : 1 + "drilldown" : "Mark Anderson" }, { + "drilldown" : "Simon Proctor", "y" : 2, - "name" : "Simon Proctor", - "drilldown" : "Simon Proctor" + "name" : "Simon Proctor" + }, + { + "drilldown" : "Ulrich Rieke", + "name" : "Ulrich Rieke", + "y" : 2 } ], "name" : "Perl Weekly Challenge - 034" } ], - "chart" : { - "type" : "column" - }, - "yAxis" : { - "title" : { - "text" : "Total Solutions" - } - }, - "subtitle" : { - "text" : "[Champions: 5] Last updated at 2019-11-12 11:03:56 GMT" - }, "drilldown" : { "series" : [ { - "name" : "Duane Powell", "data" : [ [ "Perl 5", 2 ] ], - "id" : "Duane Powell" + "id" : "Duane Powell", + "name" : "Duane Powell" }, { - "id" : "Javier Luque", - "name" : "Javier Luque", "data" : [ [ "Perl 5", @@ -91,9 +66,12 @@ "Blog", 1 ] - ] + ], + "id" : "Javier Luque", + "name" : "Javier Luque" }, { + "name" : "Laurent Rosenfeld", "data" : [ [ "Perl 5", @@ -108,32 +86,69 @@ 1 ] ], - "name" : "Laurent Rosenfeld", "id" : "Laurent Rosenfeld" }, { - "id" : "Mark Anderson", "name" : "Mark Anderson", "data" : [ [ "Perl 5", 1 ] - ] + ], + "id" : "Mark Anderson" }, { + "id" : "Simon Proctor", "data" : [ [ "Perl 6", 2 ] ], - "name" : "Simon Proctor", - "id" : "Simon Proctor" + "name" : "Simon Proctor" + }, + { + "name" : "Ulrich Rieke", + "id" : "Ulrich Rieke", + "data" : [ + [ + "Perl 6", + 2 + ] + ] } ] }, + "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/>" + }, + "title" : { + "text" : "Perl Weekly Challenge - 034" + }, + "yAxis" : { + "title" : { + "text" : "Total Solutions" + } + }, "xAxis" : { "type" : "category" + }, + "chart" : { + "type" : "column" + }, + "plotOptions" : { + "series" : { + "dataLabels" : { + "format" : "{point.y}", + "enabled" : 1 + }, + "borderWidth" : 0 + } + }, + "legend" : { + "enabled" : 0 } } diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json index 7a66813de4..96bd656644 100644 --- a/stats/pwc-language-breakdown-summary.json +++ b/stats/pwc-language-breakdown-summary.json @@ -1,19 +1,34 @@ { + "chart" : { + "type" : "column" + }, + "title" : { + "text" : "Perl Weekly Challenge Contributions - 2019" + }, + "xAxis" : { + "type" : "category", + "labels" : { + "style" : { + "fontFamily" : "Verdana, sans-serif", + "fontSize" : "13px" + } + } + }, "series" : [ { - "name" : "Contributions", "dataLabels" : { - "y" : 10, - "format" : "{point.y:.0f}", "enabled" : "true", + "y" : 10, "align" : "right", "rotation" : -90, - "color" : "#FFFFFF", "style" : { - "fontSize" : "13px", - "fontFamily" : "Verdana, sans-serif" - } + "fontFamily" : "Verdana, sans-serif", + "fontSize" : "13px" + }, + "color" : "#FFFFFF", + "format" : "{point.y:.0f}" }, + "name" : "Contributions", "data" : [ [ "Blog", @@ -25,39 +40,24 @@ ], [ "Perl 6", - 845 + 847 ] ] } ], - "subtitle" : { - "text" : "Last updated at 2019-11-12 11:04:04 GMT" - }, - "chart" : { - "type" : "column" - }, - "xAxis" : { - "labels" : { - "style" : { - "fontSize" : "13px", - "fontFamily" : "Verdana, sans-serif" - } - }, - "type" : "category" - }, "tooltip" : { "pointFormat" : "<b>{point.y:.0f}</b>" }, "legend" : { "enabled" : "false" }, + "subtitle" : { + "text" : "Last updated at 2019-11-12 11:15:00 GMT" + }, "yAxis" : { - "min" : 0, "title" : { "text" : null - } - }, - "title" : { - "text" : "Perl Weekly Challenge Contributions - 2019" + }, + "min" : 0 } } diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json index 5f0958e7a8..0f79be3691 100644 --- a/stats/pwc-language-breakdown.json +++ b/stats/pwc-language-breakdown.json @@ -1,7 +1,4 @@ { - "title" : { - "text" : "Perl Weekly Challenge Language" - }, "plotOptions" : { "series" : { "borderWidth" : 0, @@ -11,14 +8,19 @@ } } }, - "yAxis" : { - "title" : { - "text" : "Total Solutions" - } + "chart" : { + "type" : "column" + }, + "xAxis" : { + "type" : "category" + }, + "title" : { + "text" : "Perl Weekly Challenge Language" }, "drilldown" : { "series" : [ { + "id" : "001", "data" : [ [ "Perl 5", @@ -33,7 +35,6 @@ 11 ] ], - "id" : "001", "name" : "001" }, { @@ -51,10 +52,12 @@ 9 ] ], - "id" : "002", - "name" : "002" + "name" : "002", + "id" : "002" }, { + "id" : "003", + "name" : "003", "data" : [ [ "Perl 5", @@ -68,13 +71,10 @@ "Blog", 9 ] - ], - "name" : "003", - "id" : "003" + ] }, { "name" : "004", - "id" : "004", "data" : [ [ "Perl 5", @@ -88,9 +88,11 @@ "Blog", 10 ] - ] + ], + "id" : "004" }, { + "id" : "005", "data" : [ [ "Perl 5", @@ -105,7 +107,6 @@ 11 ] ], - "id" : "005", "name" : "005" }, { @@ -123,10 +124,11 @@ 7 ] ], - "id" : "006", - "name" : "006" + "name" : "006", + "id" : "006" }, { + "name" : "007", "data" : [ [ "Perl 5", @@ -141,11 +143,9 @@ 10 ] ], - "name" : "007", "id" : "007" }, { - "id" : "008", "name" : "008", "data" : [ [ @@ -160,11 +160,12 @@ "Blog", 12 ] - ] + ], + "id" : "008" }, { - "name" : "009", "id" : "009", + "name" : "009", "data" : [ [ "Perl 5", @@ -181,6 +182,8 @@ ] }, { + "id" : "010", + "name" : "010", "data" : [ [ "Perl 5", @@ -194,9 +197,7 @@ "Blog", 11 ] - ], - "id" : "010", - "name" : "010" + ] }, { "id" : "011", @@ -253,6 +254,7 @@ "id" : "013" }, { + "id" : "014", "data" : [ [ "Perl 5", @@ -267,12 +269,10 @@ 15 ] ], - "id" : "014", "name" : "014" }, { "name" : "015", - "id" : "015", "data" : [ [ "Perl 5", @@ -286,11 +286,10 @@ "Blog", 15 ] - ] + ], + "id" : "015" }, { - "name" : "016", - "id" : "016", "data" : [ [ "Perl 5", @@ -304,10 +303,11 @@ "Blog", 12 ] - ] + ], + "name" : "016", + "id" : "016" }, { - "id" : "017", "name" : "017", "data" : [ [ @@ -322,11 +322,11 @@ "Blog", 12 ] - ] + ], + "id" : "017" }, { "name" : "018", - "id" : "018", "data" : [ [ "Perl 5", @@ -340,9 +340,12 @@ "Blog", 14 ] - ] + ], + "id" : "018" }, { + "id" : "019", + "name" : "019", "data" : [ [ "Perl 5", @@ -356,13 +359,11 @@ "Blog", 13 ] - ], - "id" : "019", - "name" : "019" + ] }, { - "name" : "020", "id" : "020", + "name" : "020", "data" : [ [ "Perl 5", @@ -379,6 +380,8 @@ ] }, { + "id" : "021", + "name" : "021", "data" : [ [ "Perl 5", @@ -392,11 +395,11 @@ "Blog", 10 ] - ], - "name" : "021", - "id" : "021" + ] }, { + "id" : "022", + "name" : "022", "data" : [ [ "Perl 5", @@ -410,11 +413,10 @@ "Blog", 10 ] - ], - "id" : "022", - "name" : "022" + ] }, { + "id" : "023", "data" : [ [ "Perl 5", @@ -429,10 +431,11 @@ 12 ] ], - "name" : "023", - "id" : "023" + "name" : "023" }, { + "id" : "024", + "name" : "024", "data" : [ [ "Perl 5", @@ -446,11 +449,10 @@ "Blog", 11 ] - ], - "id" : "024", - "name" : "024" + ] }, { + "name" : "025", "data" : [ [ "Perl 5", @@ -465,10 +467,10 @@ 12 ] ], - "id" : "025", - "name" : "025" + "id" : "025" }, { + "name" : "026", "data" : [ [ "Perl 5", @@ -483,11 +485,9 @@ 10 ] ], - "name" : "026", "id" : "026" }, { - "name" : "027", "id" : "027", "data" : [ [ @@ -502,9 +502,11 @@ "Blog", 9 ] - ] + ], + "name" : "027" }, { + "name" : "028", "data" : [ [ "Perl 5", @@ -519,12 +521,10 @@ 9 ] ], - "name" : "028", "id" : "028" }, { "id" : "029", - "name" : "029", "data" : [ [ "Perl 5", @@ -538,9 +538,11 @@ "Blog", 12 ] - ] + ], + "name" : "029" }, { + "id" : "030", "data" : [ [ "Perl 5", @@ -555,8 +557,7 @@ 10 ] ], - "name" : "030", - "id" : "030" + "name" : "030" }, { "data" : [ @@ -573,11 +574,10 @@ 9 ] ], - "id" : "031", - "name" : "031" + "name" : "031", + "id" : "031" }, { - "id" : "032", "name" : "032", "data" : [ [ @@ -592,9 +592,11 @@ "Blog", 10 ] - ] + ], + "id" : "032" }, { + "id" : "033", "data" : [ [ "Perl 5", @@ -609,12 +611,10 @@ 8 ] ], - "name" : "033", - "id" : "033" + "name" : "033" }, { "name" : "034", - "id" : "034", "data" : [ [ "Perl 5", @@ -622,124 +622,114 @@ ], [ "Perl 6", - 6 + 8 ], [ "Blog", 2 ] - ] + ], + "id" : "034" } ] }, - "xAxis" : { - "type" : "category" - }, "tooltip" : { "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" - }, - "chart" : { - "type" : "column" + "headerFormat" : "<span style=\"font-size:11px\"></span>", + "pointFormat" : "<span style=\"color:{point.color}\">Challenge {point.name}</span>: <b>{point.y:f}</b><br/>" }, "series" : [ { - "colorByPoint" : "true", - "name" : "Perl Weekly Challenge Languages", "data" : [ { - "drilldown" : "001", "name" : "#001", - "y" : 132 + "y" : 132, + "drilldown" : "001" }, { + "y" : 104, "drilldown" : "002", - "name" : "#002", - "y" : 104 + "name" : "#002" }, { + "y" : 67, "drilldown" : "003", - "name" : "#003", - "y" : 67 + "name" : "#003" }, { + "drilldown" : "004", "y" : 87, - "name" : "#004", - "drilldown" : "004" + "name" : "#004" }, { - "y" : 66, + "name" : "#005", "drilldown" : "005", - "name" : "#005" + "y" : 66 }, { + "drilldown" : "006", "y" : 48, - "name" : "#006", - "drilldown" : "006" + "name" : "#006" }, { "y" : 56, - "name" : "#007", - "drilldown" : "007" + "drilldown" : "007", + "name" : "#007" }, { "y" : 70, - "name" : "#008", - "drilldown" : "008" + "drilldown" : "008", + "name" : "#008" }, { - "name" : "#009", + "y" : 68, "drilldown" : "009", - "y" : 68 + "name" : "#009" }, { - "name" : "#010", + "y" : 60, "drilldown" : "010", - "y" : 60 + "name" : "#010" }, { - "name" : "#011", + "y" : 78, "drilldown" : "011", - "y" : 78 + "name" : "#011" }, { - "drilldown" : "012", "name" : "#012", + "drilldown" : "012", "y" : 83 }, { "y" : 76, - "name" : "#013", - "drilldown" : "013" + "drilldown" : "013", + "name" : "#013" }, { + "y" : 96, "drilldown" : "014", - "name" : "#014", - "y" : 96 + "name" : "#014" }, { + "y" : 93, "drilldown" : "015", - "name" : "#015", - "y" : 93 + "name" : "#015" }, { + "drilldown" : "016", "y" : 66, - "name" : "#016", - "drilldown" : "016" + "name" : "#016" }, { + "drilldown" : "017", "y" : 79, - "name" : "#017", - "drilldown" : "017" + "name" : "#017" }, { - "drilldown" : "018", "name" : "#018", - "y" : 76 + "y" : 76, + "drilldown" : "018" }, { "y" : 95, @@ -752,79 +742,89 @@ "y" : 95 }, { + "y" : 67, "drilldown" : "021", - "name" : "#021", - "y" : 67 + "name" : "#021" }, { + "drilldown" : "022", "y" : 63, - "name" : "#022", - "drilldown" : "022" + "name" : "#022" }, { + "name" : "#023", "y" : 91, - "drilldown" : "023", - "name" : "#023" + "drilldown" : "023" }, { "y" : 70, - "name" : "#024", - "drilldown" : "024" + "drilldown" : "024", + "name" : "#024" }, { "name" : "#025", - "drilldown" : "025", - "y" : 55 + "y" : 55, + "drilldown" : "025" }, { - "y" : 70, + "name" : "#026", "drilldown" : "026", - "name" : "#026" + "y" : 70 }, { + "name" : "#027", "y" : 58, - "drilldown" : "027", - "name" : "#027" + "drilldown" : "027" }, { - "y" : 78, "name" : "#028", - "drilldown" : "028" + "drilldown" : "028", + "y" : 78 }, { + "drilldown" : "029", "y" : 77, - "name" : "#029", - "drilldown" : "029" + "name" : "#029" }, { - "y" : 115, "name" : "#030", + "y" : 115, "drilldown" : "030" }, { - "name" : "#031", + "y" : 87, "drilldown" : "031", - "y" : 87 + "name" : "#031" }, { - "name" : "#032", + "y" : 92, "drilldown" : "032", - "y" : 92 + "name" : "#032" }, { - "y" : 106, "name" : "#033", + "y" : 106, "drilldown" : "033" }, { - "drilldown" : "034", "name" : "#034", - "y" : 15 + "y" : 17, + "drilldown" : "034" } - ] + ], + "name" : "Perl Weekly Challenge Languages", + "colorByPoint" : "true" } ], + "legend" : { + "enabled" : "false" + }, "subtitle" : { - "text" : "Click the columns to drilldown the language breakdown. Last updated at 2019-11-12 11:04:04 GMT" + "text" : "Click the columns to drilldown the language breakdown. Last updated at 2019-11-12 11:15:00 GMT" + }, + "yAxis" : { + "title" : { + "text" : "Total Solutions" + } } } diff --git a/stats/pwc-leaders.json b/stats/pwc-leaders.json index ff147c3f8c..2be1758831 100644 --- a/stats/pwc-leaders.json +++ b/stats/pwc-leaders.json @@ -1,304 +1,29 @@ { - "legend" : { - "enabled" : "false" - }, "xAxis" : { "type" : "category" }, - "series" : [ - { - "data" : [ - { - "drilldown" : "Laurent Rosenfeld", - "name" : "#1: Laurent Rosenfeld", - "y" : 426 - }, - { - "name" : "#2: Joelle Maslak", - "y" : 330, - "drilldown" : "Joelle Maslak" - }, - { - "drilldown" : "Jaldhar H. Vyas", - "y" : 302, - "name" : "#3: Jaldhar H. Vyas" - }, - { - "drilldown" : "Ruben Westerberg", - "y" : 252, - "name" : "#4: Ruben Westerberg" - }, - { - "y" : 224, - "name" : "#5: Adam Russell", - "drilldown" : "Adam Russell" - }, - { - "drilldown" : "Athanasius", - "name" : "#6: Athanasius", - "y" : 208 - }, - { - "name" : "#7: Arne Sommer", - "y" : 204, - "drilldown" : "Arne Sommer" - }, - { - "y" : 172, - "name" : "#8: E. Choroba", - "drilldown" : "E. Choroba" - }, - { - "drilldown" : "Kian-Meng Ang", - "name" : "#9: Kian-Meng Ang", - "y" : 148 - }, - { - "drilldown" : "Roger Bell West", - "y" : 142, - "name" : "#10: Roger Bell West" - }, - { - "drilldown" : "Simon Proctor", - "y" : 134, - "name" : "#11: Simon Proctor" - }, - { - "y" : 128, - "name" : "#12: Andrezgz", - "drilldown" : "Andrezgz" - }, - |
