diff options
| -rw-r--r-- | challenge-045/kevin-colyer/raku/ch-1.p6 | 66 | ||||
| -rw-r--r-- | challenge-045/kevin-colyer/raku/ch-2.p6 | 18 | ||||
| -rw-r--r-- | stats/pwc-challenge-045.json | 549 | ||||
| -rw-r--r-- | stats/pwc-current.json | 342 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown-summary.json | 64 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown.json | 348 | ||||
| -rw-r--r-- | stats/pwc-leaders.json | 424 | ||||
| -rw-r--r-- | stats/pwc-summary-1-30.json | 106 | ||||
| -rw-r--r-- | stats/pwc-summary-121-150.json | 96 | ||||
| -rw-r--r-- | stats/pwc-summary-31-60.json | 112 | ||||
| -rw-r--r-- | stats/pwc-summary-61-90.json | 104 | ||||
| -rw-r--r-- | stats/pwc-summary-91-120.json | 40 | ||||
| -rw-r--r-- | stats/pwc-summary.json | 332 |
13 files changed, 1350 insertions, 1251 deletions
diff --git a/challenge-045/kevin-colyer/raku/ch-1.p6 b/challenge-045/kevin-colyer/raku/ch-1.p6 new file mode 100644 index 0000000000..cd80cf7cad --- /dev/null +++ b/challenge-045/kevin-colyer/raku/ch-1.p6 @@ -0,0 +1,66 @@ +#!/usr/bin/perl6 +use v6; + +use Test; + + +=begin pod + +TASK #1 +Square Secret Code +The squate secret code mechanism first removes any space from the original message. Then it lays down the message in a row of 8 columns. The coded message is then obtained by reading down the columns going left to right. + +For example, the message is “The quick brown fox jumps over the lazy dog”. + +Then the message would be laid out as below: + +thequick +brownfox +jumpsove +rthelazy +dog +The code message would be as below: + +tbjrd hruto eomhg qwpe unsl ifoa covz kxey + +Write a script that accepts a message from command line and prints the equivalent coded message. + + +=end pod + +multi MAIN(Str $plaintext) { + squareSecretEncode($plaintext).say +} + +multi MAIN('test') { + is squareSecretEncode("The quick brown fox jumps over the lazy dog"),"tbjrd hruto eomhg qwpe unsl ifoa covz kxey","Encodes correctly"; + done-testing; +} + +sub squareSecretEncode(Str $plaintext) returns Str { + # transform to lowercase a-z only and remove spaces then split + my @t=$plaintext.lc.trans(['a'..'z'] => '', :complement).comb; + # calculate the rows in the 8x? grid + my $rows=(@t.elems + 8) div 8; + + # gather the ciphered text - go over entire grid even though it may not fill entirely + my @c=gather for ^$rows*8 -> $i { + # transform the left to right array traversal to a down first then along + # DOWN ALONG + my $j=($i % $rows)*8 + $i div $rows; + + # if we are over the end of the array take a space and loop + # could avoid this code if we add 8 spaces to end of array... + if $j>=@t.elems { + take " "; + next + }; + + # take the element at the translated position + take @t[$j]; + } + # make a string from @c using rotor to combine every 5 elements (or less at end)... + # join the new list of 5 elems to a string... + # as the new string might have a space split on words and re-join with single space + ~@c.rotor(5,:partial)>>.join>>.words>>.join(" "); +} diff --git a/challenge-045/kevin-colyer/raku/ch-2.p6 b/challenge-045/kevin-colyer/raku/ch-2.p6 new file mode 100644 index 0000000000..8ad73f6dcd --- /dev/null +++ b/challenge-045/kevin-colyer/raku/ch-2.p6 @@ -0,0 +1,18 @@ +#!/usr/bin/perl6 +use v6; + +=begin pod + +TASK #2 +Source Dumper +Write a script that dumps its own source code. For example, say, the script name is ch-2.pl then the following command should returns nothing. + +$ perl ch-2.pl | diff - ch-2.pl + + +=end pod + +# $*PROGRAM has the IO.Path object of the program. I use print as this keeps the same number +# of new lines as in the source (.say would add an extra one) +slurp($*PROGRAM).print; + diff --git a/stats/pwc-challenge-045.json b/stats/pwc-challenge-045.json index d94ce57be1..01b59eded8 100644 --- a/stats/pwc-challenge-045.json +++ b/stats/pwc-challenge-045.json @@ -1,207 +1,23 @@ { - "title" : { - "text" : "Perl Weekly Challenge - 045" - }, - "xAxis" : { - "type" : "category" - }, - "chart" : { - "type" : "column" + "yAxis" : { + "title" : { + "text" : "Total Solutions" + } }, "plotOptions" : { "series" : { - "borderWidth" : 0, "dataLabels" : { "format" : "{point.y}", "enabled" : 1 - } - } - }, - "yAxis" : { - "title" : { - "text" : "Total Solutions" - } - }, - "series" : [ - { - "name" : "Perl Weekly Challenge - 045", - "colorByPoint" : 1, - "data" : [ - { - "drilldown" : "Adam Russell", - "y" : 3, - "name" : "Adam Russell" - }, - { - "drilldown" : "Alicia Bielsa", - "y" : 2, - "name" : "Alicia Bielsa" - }, - { - "drilldown" : "Andrezgz", - "y" : 2, - "name" : "Andrezgz" - }, - { - "drilldown" : "Arne Sommer", - "name" : "Arne Sommer", - "y" : 5 - }, - { - "drilldown" : "Athanasius", - "name" : "Athanasius", - "y" : 1 - }, - { - "drilldown" : "Burkhard Nickels", - "name" : "Burkhard Nickels", - "y" : 4 - }, - { - "y" : 1, - "name" : "Cheok-Yin Fung", - "drilldown" : "Cheok-Yin Fung" - }, - { - "drilldown" : "Colin Crain", - "y" : 4, - "name" : "Colin Crain" - }, - { - "name" : "Cristina Heredia", - "y" : 1, - "drilldown" : "Cristina Heredia" - }, - { - "drilldown" : "Dave Cross", - "name" : "Dave Cross", - "y" : 2 - }, - { - "y" : 3, - "name" : "Dave Jacoby", - "drilldown" : "Dave Jacoby" - }, - { - "drilldown" : "Duane Powell", - "name" : "Duane Powell", - "y" : 2 - }, - { - "y" : 2, - "name" : "Duncan C. White", - "drilldown" : "Duncan C. White" - }, - { - "drilldown" : "E. Choroba", - "y" : 3, - "name" : "E. Choroba" - }, - { - "name" : "Jaldhar H. Vyas", - "y" : 5, - "drilldown" : "Jaldhar H. Vyas" - }, - { - "y" : 2, - "name" : "Jan Ole Kraft", - "drilldown" : "Jan Ole Kraft" - }, - { - "drilldown" : "Javier Luque", - "name" : "Javier Luque", - "y" : 5 - }, - { - "drilldown" : "Laurent Rosenfeld", - "y" : 5, - "name" : "Laurent Rosenfeld" - }, - { - "drilldown" : "Luca Ferrari", - "y" : 3, - "name" : "Luca Ferrari" - }, - { - "y" : 1, - "name" : "Mark Anderson", - "drilldown" : "Mark Anderson" - }, - { - "drilldown" : "Markus Holzer", - "y" : 2, - "name" : "Markus Holzer" - }, - { - "drilldown" : "Maxim Kolodyazhny", - "name" : "Maxim Kolodyazhny", - "y" : 2 - }, - { - "drilldown" : "Nazareno Delucca", - "name" : "Nazareno Delucca", - "y" : 2 - }, - { - "name" : "Noud Aldenhoven", - "y" : 2, - "drilldown" : "Noud Aldenhoven" - }, - { - "drilldown" : "Peter Scott", - "y" : 1, - "name" : "Peter Scott" - }, - { - "name" : "Rage311", - "y" : 2, - "drilldown" : "Rage311" - }, - { - "drilldown" : "Roger Bell West", - "y" : 4, - "name" : "Roger Bell West" - }, - { - "name" : "Ruben Westerberg", - "y" : 4, - "drilldown" : "Ruben Westerberg" - }, - { - "drilldown" : "Ryan Thompson", - "y" : 6, - "name" : "Ryan Thompson" - }, - { - "drilldown" : "Saif Ahmed", - "name" : "Saif Ahmed", - "y" : 2 - }, - { - "drilldown" : "Simon Proctor", - "name" : "Simon Proctor", - "y" : 2 - }, - { - "name" : "Ulrich Rieke", - "y" : 4, - "drilldown" : "Ulrich Rieke" - }, - { - "y" : 2, - "name" : "Wanderdoc", - "drilldown" : "Wanderdoc" - } - ] + }, + "borderWidth" : 0 } - ], - "legend" : { - "enabled" : 0 }, "drilldown" : { "series" : [ { "id" : "Adam Russell", + "name" : "Adam Russell", "data" : [ [ "Perl", @@ -211,8 +27,7 @@ "Blog", 1 ] - ], - "name" : "Adam Russell" + ] }, { "data" : [ @@ -221,22 +36,20 @@ 2 ] ], - "id" : "Alicia Bielsa", - "name" : "Alicia Bielsa" + "name" : "Alicia Bielsa", + "id" : "Alicia Bielsa" }, { + "name" : "Andrezgz", + "id" : "Andrezgz", "data" : [ [ "Perl", 2 ] - ], - "id" : "Andrezgz", - "name" : "Andrezgz" + ] }, { - "name" : "Arne Sommer", - "id" : "Arne Sommer", "data" : [ [ "Perl", @@ -250,21 +63,21 @@ "Blog", 1 ] - ] + ], + "name" : "Arne Sommer", + "id" : "Arne Sommer" }, { "id" : "Athanasius", + "name" : "Athanasius", "data" : [ [ "Perl", 1 ] - ], - "name" : "Athanasius" + ] }, { - "name" : "Burkhard Nickels", - "id" : "Burkhard Nickels", "data" : [ [ "Perl", @@ -274,19 +87,23 @@ "Raku", 2 ] - ] + ], + "id" : "Burkhard Nickels", + "name" : "Burkhard Nickels" }, { + "name" : "Cheok-Yin Fung", + "id" : "Cheok-Yin Fung", "data" : [ [ "Perl", 1 ] - ], - "id" : "Cheok-Yin Fung", - "name" : "Cheok-Yin Fung" + ] }, { + "id" : "Colin Crain", + "name" : "Colin Crain", "data" : [ [ "Perl", @@ -296,28 +113,26 @@ "Raku", 2 ] - ], - "id" : "Colin Crain", - "name" : "Colin Crain" + ] }, { - "name" : "Cristina Heredia", "data" : [ [ "Perl", 1 ] ], - "id" : "Cristina Heredia" + "id" : "Cristina Heredia", + "name" : "Cristina Heredia" }, { - "name" : "Dave Cross", "data" : [ [ "Perl", 2 ] ], + "name" : "Dave Cross", "id" : "Dave Cross" }, { @@ -331,30 +146,32 @@ 1 ] ], - "id" : "Dave Jacoby", - "name" : "Dave Jacoby" + "name" : "Dave Jacoby", + "id" : "Dave Jacoby" }, { - "id" : "Duane Powell", "data" : [ [ "Perl", 2 ] ], - "name" : "Duane Powell" + "name" : "Duane Powell", + "id" : "Duane Powell" }, { "name" : "Duncan C. White", + "id" : "Duncan C. White", "data" : [ [ "Perl", 2 ] - ], - "id" : "Duncan C. White" + ] }, { + "name" : "E. Choroba", + "id" : "E. Choroba", "data" : [ [ "Perl", @@ -364,11 +181,10 @@ "Blog", 1 ] - ], - "id" : "E. Choroba", - "name" : "E. Choroba" + ] }, { + "id" : "Jaldhar H. Vyas", "name" : "Jaldhar H. Vyas", "data" : [ [ @@ -383,21 +199,21 @@ "Blog", 1 ] - ], - "id" : "Jaldhar H. Vyas" + ] }, { - "name" : "Jan Ole Kraft", "data" : [ [ "Raku", 2 ] ], - "id" : "Jan Ole Kraft" + "id" : "Jan Ole Kraft", + "name" : "Jan Ole Kraft" }, { "name" : "Javier Luque", + "id" : "Javier Luque", "data" : [ [ "Perl", @@ -411,10 +227,21 @@ "Blog", 1 ] - ], - "id" : "Javier Luque" + ] + }, + { + "id" : "Kevin Colyer", + "name" : "Kevin Colyer", + "data" : [ + [ + "Raku", + 2 + ] + ] }, { + "id" : "Laurent Rosenfeld", + "name" : "Laurent Rosenfeld", "data" : [ [ "Perl", @@ -428,13 +255,9 @@ "Blog", 1 ] - ], - "id" : "Laurent Rosenfeld", - "name" : "Laurent Rosenfeld" + ] }, { - "name" : "Luca Ferrari", - "id" : "Luca Ferrari", "data" : [ [ "Raku", @@ -444,41 +267,43 @@ "Blog", 1 ] - ] + ], + "id" : "Luca Ferrari", + "name" : "Luca Ferrari" }, { - "name" : "Mark Anderson", "data" : [ [ "Raku", 1 ] ], + "name" : "Mark Anderson", "id" : "Mark Anderson" }, { - "name" : "Markus Holzer", - "id" : "Markus Holzer", "data" : [ [ "Raku", 2 ] - ] + ], + "name" : "Markus Holzer", + "id" : "Markus Holzer" }, { - "name" : "Maxim Kolodyazhny", - "id" : "Maxim Kolodyazhny", "data" : [ [ "Perl", 2 ] - ] + ], + "name" : "Maxim Kolodyazhny", + "id" : "Maxim Kolodyazhny" }, { - "name" : "Nazareno Delucca", "id" : "Nazareno Delucca", + "name" : "Nazareno Delucca", "data" : [ [ "Perl", @@ -487,37 +312,36 @@ ] }, { + "id" : "Noud Aldenhoven", "name" : "Noud Aldenhoven", "data" : [ [ "Raku", 2 ] - ], - "id" : "Noud Aldenhoven" + ] }, { - "name" : "Peter Scott", - "id" : "Peter Scott", "data" : [ [ "Perl", 1 ] - ] + ], + "name" : "Peter Scott", + "id" : "Peter Scott" }, { - "id" : "Rage311", "data" : [ [ "Perl", 2 ] ], + "id" : "Rage311", "name" : "Rage311" }, { - "name" : "Roger Bell West", "data" : [ [ "Perl", @@ -528,11 +352,10 @@ 2 ] ], + "name" : "Roger Bell West", "id" : "Roger Bell West" }, { - "name" : "Ruben Westerberg", - "id" : "Ruben Westerberg", "data" : [ [ "Perl", @@ -542,10 +365,11 @@ "Raku", 2 ] - ] + ], + "name" : "Ruben Westerberg", + "id" : "Ruben Westerberg" }, { - "name" : "Ryan Thompson", "data" : [ [ "Perl", @@ -560,7 +384,8 @@ 2 ] ], - "id" : "Ryan Thompson" + "id" : "Ryan Thompson", + "name" : "Ryan Thompson" }, { "data" : [ @@ -569,12 +394,12 @@ 2 ] ], - "id" : "Saif Ahmed", - "name" : "Saif Ahmed" + "name" : "Saif Ahmed", + "id" : "Saif Ahmed" }, { - "name" : "Simon Proctor", "id" : "Simon Proctor", + "name" : "Simon Proctor", "data" : [ [ "Raku", @@ -583,8 +408,6 @@ ] }, { - "name" : "Ulrich Rieke", - "id" : "Ulrich Rieke", "data" : [ [ "Perl", @@ -594,26 +417,218 @@ "Raku", 2 ] - ] + ], + "id" : "Ulrich Rieke", + "name" : "Ulrich Rieke" }, { - "name" : "Wanderdoc", "data" : [ [ "Perl", 2 ] ], + "name" : "Wanderdoc", "id" : "Wanderdoc" } ] }, + "xAxis" : { + "type" : "category" + }, "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, - "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>" + "followPointer" : 1 + }, + "legend" : { + "enabled" : 0 + }, + "chart" : { + "type" : "column" }, "subtitle" : { - "text" : "[Champions: 33] Last updated at 2020-02-03 13:07:29 GMT" - } + "text" : "[Champions: 34] Last updated at 2020-02-07 10:40:06 GMT" + }, + "title" : { + "text" : "Perl Weekly Challenge - 045" + }, + "series" : [ + { + "name" : "Perl Weekly Challenge - 045", + "colorByPoint" : 1, + "data" : [ + { + "drilldown" : "Adam Russell", + "y" : 3, + "name" : "Adam Russell" + }, + { + "drilldown" : "Alicia Bielsa", + "y" : 2, + "name" : "Alicia Bielsa" + }, + { + "name" : "Andrezgz", + "drilldown" : "Andrezgz", + "y" : 2 + }, + { + "drilldown" : "Arne Sommer", + "y" : 5, + "name" : "Arne Sommer" + }, + { + "name" : "Athanasius", + "y" : 1, + "drilldown" : "Athanasius" + }, + { + "y" : 4, + "drilldown" : "Burkhard Nickels", + "name" : "Burkhard Nickels" + }, + { + "name" : "Cheok-Yin Fung", + "drilldown" : "Cheok-Yin Fung", + "y" : 1 + }, + { + "y" : 4, + "drilldown" : "Colin Crain", + "name" : "Colin Crain" + }, + { + "name" : "Cristina Heredia", + "y" : 1, + "drilldown" : "Cristina Heredia" + }, + { + "y" : 2, + "drilldown" : "Dave Cross", + "name" : "Dave Cross" + }, + { + "name" : "Dave Jacoby", + "drilldown" : "Dave Jacoby", + "y" : 3 + }, + { + "name" : "Duane Powell", + "y" : 2, + "drilldown" : "Duane Powell" + }, + { + "name" : "Duncan C. White", + "drilldown" : "Duncan C. White", + "y" : 2 + }, + { + "name" : "E. Choroba", + "y" : 3, + "drilldown" : "E. Choroba" + }, + { + "name" : "Jaldhar H. Vyas", + "y" : 5, + "drilldown" : "Jaldhar H. Vyas" + }, + { + "name" : "Jan Ole Kraft", + "y" : 2, + "drilldown" : "Jan Ole Kraft" + }, + { + "name" : "Javier Luque", + "drilldown" : "Javier Luque", + "y" : 5 + }, + { + "name" : "Kevin Colyer", + "drilldown" : "Kevin Colyer", + "y" : 2 + }, + { + "name" : "Laurent Rosenfeld", + "drilldown" : "Laurent Rosenfeld", + "y" : 5 + }, + { + "y" : 3, + "drilldown" : "Luca Ferrari", + "name" : "Luca Ferrari" + }, + { + "name" : "Mark Anderson", + "drilldown" : "Mark Anderson", + "y" : 1 + }, + { + "name" : "Markus Holzer", + "drilldown" : "Markus Holzer", + "y" : 2 + }, + { + "drilldown" : "Maxim Kolodyazhny", + "y" : 2, + "name" : "Maxim Kolodyazhny" + }, + { + "drilldown" : "Nazareno Delucca", + "y" : 2, + "name" : "Nazareno Delucca" + }, + { + "drilldown" : "Noud Aldenhoven", + "y" : 2, + "name" : "Noud Aldenhoven" + }, + { + "y" : 1, + "drilldown" : "Peter Scott", + "name" : "Peter Scott" + }, + { + "drilldown" : "Rage311", + "y" : 2, + "name" : "Rage311" + }, + { + "name" : "Roger Bell West", + "y" : 4, + "drilldown" : "Roger Bell West" + }, + { + "y" : 4, + "drilldown" : "Ruben Westerberg", + "name" : "Ruben Westerberg" + }, + { + "drilldown" : "Ryan Thompson", + "y" : 6, + "name" : "Ryan Thompson" + }, + { + "name" : "Saif Ahmed", + "drilldown" : "Saif Ahmed", + "y" : 2 + }, + { + "name" : "Simon Proctor", + "drilldown" : "Simon Proctor", + "y" : 2 + }, + { + "y" : 4, + "drilldown" : "Ulrich Rieke", + "name" : "Ulrich Rieke" + }, + { + "drilldown" : "Wanderdoc", + "y" : 2, + "name" : "Wanderdoc" + } + ] + } + ] } diff --git a/stats/pwc-current.json b/stats/pwc-current.json index 9a7ee8fe1d..dd2c123d0a 100644 --- a/stats/pwc-current.json +++ b/stats/pwc-current.json @@ -1,176 +1,86 @@ { - "series" : [ - { - "colorByPoint" : 1, - "data" : [ - { - "drilldown" : "Andrezgz", - "y" : 2, - "name" : "Andrezgz" - }, - { - "name" : "Cristina Heredia", - "y" : 2, - "drilldown" : "Cristina Heredia" - }, - { - "name" : "Dave Jacoby", - "y" : 2, - "drilldown" : "Dave Jacoby" - }, - { - "y" : 2, - "drilldown" : "Duane Powell", - "name" : "Duane Powell" - }, - { - "name" : "Duncan C. White", - "y" : 2, - "drilldown" : "Duncan C. White" - }, - { - "y" : 2, - "drilldown" : "E. Choroba", - "name" : "E. Choroba" - }, - { - "name" : "Javier Luque", - "y" : 5, - "drilldown" : "Javier Luque" - }, - { - "drilldown" : "Kevin Colyer", - "y" : 2, - "name" : "Kevin Colyer" - }, - { - "drilldown" : "Luca Ferrari", - "y" : 3, - "name" : "Luca Ferrari" - }, - { - "name" : "Mark Anderson", - "drilldown" : "Mark Anderson", - "y" : 1 - }, - { - "drilldown" : "Markus Holzer", - "y" : 2, - "name" : "Markus Holzer" - }, - { - "name" : "Peter Scott", - "y" : 1, - "drilldown" : "Peter Scott" - }, - { - "name" : "Rage311", - "drilldown" : "Rage311", - "y" : 2 - }, - { - "y" : 4, - "drilldown" : "Roger Bell West", - "name" : "Roger Bell West" - }, - { - "y" : 4, - "drilldown" : "Ruben Westerberg", - "name" : "Ruben Westerberg" - }, - { - "name" : "Ryan Thompson", - "y" : 6, - "drilldown" : "Ryan Thompson" - }, - { - "y" : 2, - "drilldown" : "Saif Ahmed", - "name" : "Saif Ahmed" - }, - { - "y" : 2, - "drilldown" : "Simon Proctor", - "name" : "Simon Proctor" - }, - { - "drilldown" : "Ulrich Rieke", - "y" : 4, - "name" : "Ulrich Rieke" - }, - { - "name" : "Wanderdoc", - "drilldown" : "Wanderdoc", - "y" : 2 - } - ], - "name" : "Perl Weekly Challenge - 046" + "yAxis" : { + "title" : { + "text" : "Total Solutions" } - ], + }, + "plotOptions" : { + "series" : { + "dataLabels" : { + "format" : "{point.y}", + "enabled" : 1 + }, + "borderWidth" : 0 + } + }, + "legend" : { + "enabled" : 0 + }, "drilldown" : { "series" : [ { - "id" : "Andrezgz", - "name" : "Andrezgz", "data" : [ [ "Perl", 2 ] - ] + ], + "name" : "Andrezgz", + "id" : "Andrezgz" }, { - "id" : "Cristina Heredia", "data" : [ [ "Perl", 2 ] ], + "id" : "Cristina Heredia", "name" : "Cristina Heredia" }, { - "id" : "Dave Jacoby", "data" : [ [ "Perl", 2 ] ], + "id" : "Dave Jacoby", "name" : "Dave Jacoby" }, { + "name" : "Duane Powell", + "id" : "Duane Powell", "data" : [ [ "Perl", 2 ] - ], - "name" : "Duane Powell", - "id" : "Duane Powell" + ] }, { - "name" : "Duncan C. White", "data" : [ [ "Perl", 2 ] ], - "id" : "Duncan C. White" + "id" : "Duncan C. White", + "name" : "Duncan C. |
