diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-07-13 16:38:23 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-07-13 16:38:23 +0100 |
| commit | 94593b86d15e92a321a133051000f910918a3c90 (patch) | |
| tree | 725c7a83527616380debec70d248ba5dab013861 | |
| parent | 16fb9f34db004fd14232739dc728a0688f0206f3 (diff) | |
| download | perlweeklychallenge-club-94593b86d15e92a321a133051000f910918a3c90.tar.gz perlweeklychallenge-club-94593b86d15e92a321a133051000f910918a3c90.tar.bz2 perlweeklychallenge-club-94593b86d15e92a321a133051000f910918a3c90.zip | |
- Added solution by Duane Powell.
| -rw-r--r-- | challenge-016/duane-powell/perl5/ch-1.pl | 53 | ||||
| -rw-r--r-- | stats/pwc-current.json | 295 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown-summary.json | 62 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown.json | 302 | ||||
| -rw-r--r-- | stats/pwc-leaders.json | 856 | ||||
| -rw-r--r-- | stats/pwc-summary-1-30.json | 96 | ||||
| -rw-r--r-- | stats/pwc-summary-31-60.json | 118 | ||||
| -rw-r--r-- | stats/pwc-summary-61-90.json | 20 | ||||
| -rw-r--r-- | stats/pwc-summary-91-120.json | 42 | ||||
| -rw-r--r-- | stats/pwc-summary.json | 246 |
10 files changed, 1079 insertions, 1011 deletions
diff --git a/challenge-016/duane-powell/perl5/ch-1.pl b/challenge-016/duane-powell/perl5/ch-1.pl new file mode 100644 index 0000000000..360b9244e9 --- /dev/null +++ b/challenge-016/duane-powell/perl5/ch-1.pl @@ -0,0 +1,53 @@ +#!/usr/bin/perl +use Modern::Perl; + +# https://perlweeklychallenge.org/blog/perl-weekly-challenge-016/ +# At a party a pie is to be shared by 100 guest. The first guest gets 1% of the pie, the second guest gets 2% of +# the remaining pie, the third gets 3% of the remaining pie, the fourth gets 4% and so on. +# Write a script that figures out which guest gets the largest piece of pie. + +my $verbose = shift; + +my $pie = 1; +my $guest = 0; +my $slice = 0; +my $biggest_slice = 0; +for my $s (1..100) { + my $one_percent = $pie/100; + $slice = $s * $one_percent; + $pie -= $slice; + if ($slice > $biggest_slice) { + $biggest_slice = $slice; + $guest = $s; + } + say "$s $slice $pie" if ($verbose); +} + +say "Guest number $guest got the largest slice of pie"; + +__END__ + +./ch1.pl +Guest number 10 got the largest slice of pie + +./ch1.pl 1 +1 0.01 0.99 +2 0.0198 0.9702 +3 0.029106 0.941094 +4 0.03764376 0.90345024 +5 0.045172512 0.858277728 +6 0.05149666368 0.80678106432 +7 0.0564746745024 0.7503063898176 +8 0.060024511185408 0.690281878632192 +9 0.0621253690768973 0.628156509555295 +10 0.0628156509555295 0.565340858599765 +11 0.0621874944459742 0.503153364153791 +12 0.0603784036984549 0.442774960455336 +13 0.0575607448591937 0.385214215596143 +... +96 3.73304861775776e-36 1.55543692406573e-37 +97 1.50877381634376e-37 4.66631077219721e-39 +98 4.57298455675327e-39 9.33262154439444e-41 +99 9.23929532895049e-41 9.33262154439446e-43 +100 9.33262154439446e-43 0 +Guest number 10 got the largest slice of pie diff --git a/stats/pwc-current.json b/stats/pwc-current.json index 4ac47b8458..b745e9aa71 100644 --- a/stats/pwc-current.json +++ b/stats/pwc-current.json @@ -1,129 +1,19 @@ { - "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 - }, - "yAxis" : { - "title" : { - "text" : "Total Solutions" - } - }, - "plotOptions" : { - "series" : { - "dataLabels" : { - "format" : "{point.y}", - "enabled" : 1 - }, - "borderWidth" : 0 - } - }, - "legend" : { - "enabled" : 0 - }, - "xAxis" : { - "type" : "category" - }, - "series" : [ - { - "data" : [ - { - "name" : "Andrezgz", - "y" : 1, - "drilldown" : "Andrezgz" - }, - { - "name" : "Arne Sommer", - "drilldown" : "Arne Sommer", - "y" : 3 - }, - { - "y" : 2, - "drilldown" : "Daniel Mantovani", - "name" : "Daniel Mantovani" - }, - { - "drilldown" : "Dave Jacoby", - "y" : 1, - "name" : "Dave Jacoby" - }, - { - "name" : "Joelle Maslak", - "y" : 2, - "drilldown" : "Joelle Maslak" - }, - { - "name" : "Kevin Colyer", - "drilldown" : "Kevin Colyer", - "y" : 2 - }, - { - "y" : 3, - "drilldown" : "Laurent Rosenfeld", - "name" : "Laurent Rosenfeld" - }, - { - "drilldown" : "Lubos Kolouch", - "y" : 2, - "name" : "Lubos Kolouch" - }, - { - "name" : "Noud", - "y" : 2, - "drilldown" : "Noud" - }, - { - "drilldown" : "Ozzy", - "y" : 1, - "name" : "Ozzy" - }, - { - "drilldown" : "Roger Bell West", - "y" : 2, - "name" : "Roger Bell West" - }, - { - "name" : "Ruben Westerberg", - "drilldown" : "Ruben Westerberg", - "y" : 4 - }, - { - "name" : "Simon Proctor", - "y" : 1, - "drilldown" : "Simon Proctor" - }, - { - "name" : "Steven Wilson", - "y" : 1, - "drilldown" : "Steven Wilson" - } - ], - "colorByPoint" : 1, - "name" : "Perl Weekly Challenge - 016" - } - ], - "chart" : { - "type" : "column" - }, - "title" : { - "text" : "Perl Weekly Challenge - 016" - }, - "subtitle" : { - "text" : "[Champions: 14] Last updated at 2019-07-13 15:33:58 GMT" - }, "drilldown" : { "series" : [ { - "id" : "Andrezgz", "data" : [ [ "Perl 5", 1 ] ], + "id" : "Andrezgz", "name" : "Andrezgz" }, { + "id" : "Arne Sommer", + "name" : "Arne Sommer", "data" : [ [ "Perl 6", @@ -133,32 +23,39 @@ "Blog", 1 ] - ], - "name" : "Arne Sommer", - "id" : "Arne Sommer" + ] }, { + "id" : "Daniel Mantovani", "name" : "Daniel Mantovani", "data" : [ [ "Perl 5", 2 ] - ], - "id" : "Daniel Mantovani" + ] }, { + "id" : "Dave Jacoby", + "name" : "Dave Jacoby", "data" : [ [ "Perl 5", 1 ] - ], - "name" : "Dave Jacoby", - "id" : "Dave Jacoby" + ] + }, + { + "id" : "Duane Powell", + "name" : "Duane Powell", + "data" : [ + [ + "Perl 5", + 1 + ] + ] }, { - "name" : "Joelle Maslak", "data" : [ [ "Perl 5", @@ -169,19 +66,21 @@ 1 ] ], + "name" : "Joelle Maslak", "id" : "Joelle Maslak" }, { + "name" : "Kevin Colyer", + "id" : "Kevin Colyer", "data" : [ [ "Perl 6", 2 ] - ], - "name" : "Kevin Colyer", - "id" : "Kevin Colyer" + ] }, { + "id" : "Laurent Rosenfeld", "name" : "Laurent Rosenfeld", "data" : [ [ @@ -196,32 +95,31 @@ "Blog", 1 ] - ], - "id" : "Laurent Rosenfeld" + ] }, { - "id" : "Lubos Kolouch", "data" : [ [ "Perl 5", 2 ] ], - "name" : "Lubos Kolouch" + "name" : "Lubos Kolouch", + "id" : "Lubos Kolouch" }, { - "id" : "Noud", "data" : [ [ "Perl 6", 2 ] ], - "name" : "Noud" + "name" : "Noud", + "id" : "Noud" }, { - "id" : "Ozzy", "name" : "Ozzy", + "id" : "Ozzy", "data" : [ [ "Perl 6", @@ -230,17 +128,16 @@ ] }, { - "id" : "Roger Bell West", - "name" : "Roger Bell West", "data" : [ [ "Perl 5", 2 ] - ] + ], + "name" : "Roger Bell West", + "id" : "Roger Bell West" }, { - "name" : "Ruben Westerberg", "data" : [ [ "Perl 5", @@ -251,28 +148,146 @@ 2 ] ], + "name" : "Ruben Westerberg", "id" : "Ruben Westerberg" }, { + "name" : "Simon Proctor", "id" : "Simon Proctor", "data" : [ [ "Perl 6", 1 ] - ], - "name" : "Simon Proctor" + ] }, { "id" : "Steven Wilson", + "name" : "Steven Wilson", "data" : [ [ "Perl 5", 1 ] - ], - "name" : "Steven Wilson" + ] } ] + }, + "tooltip" : { + "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>", + "followPointer" : 1, + "pointFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>" + }, + "yAxis" : { + "title" : { + "text" : "Total Solutions" + } + }, + "legend" : { + "enabled" : 0 + }, + "plotOptions" : { + "series" : { + "borderWidth" : 0, + "dataLabels" : { + "enabled" : 1, + "format" : "{point.y}" + } + } + }, + "chart" : { + "type" : "column" + }, + "series" : [ + { + "data" : [ + { + "name" : "Andrezgz", + "y" : 1, + "drilldown" : "Andrezgz" + }, + { + "name" : "Arne Sommer", + "y" : 3, + "drilldown" : "Arne Sommer" + }, + { + "name" : "Daniel Mantovani", + "y" : 2, + "drilldown" : "Daniel Mantovani" + }, + { + "drilldown" : "Dave Jacoby", + "y" : 1, + "name" : "Dave Jacoby" + }, + { + "name" : "Duane Powell", + "drilldown" : "Duane Powell", + "y" : 1 + }, + { + "y" : 2, + "drilldown" : "Joelle Maslak", + "name" : "Joelle Maslak" + }, + { + "name" : "Kevin Colyer", + "drilldown" : "Kevin Colyer", + "y" : 2 + }, + { + "y" : 3, + "drilldown" : "Laurent Rosenfeld", + "name" : "Laurent Rosenfeld" + }, + { + "drilldown" : "Lubos Kolouch", + "y" : 2, + "name" : "Lubos Kolouch" + }, + { + "name" : "Noud", + "y" : 2, + "drilldown" : "Noud" + }, + { + "y" : 1, + "drilldown" : "Ozzy", + "name" : "Ozzy" + }, + { + "name" : "Roger Bell West", + "drilldown" : "Roger Bell West", + "y" : 2 + }, + { + "drilldown" : "Ruben Westerberg", + "y" : 4, + "name" : "Ruben Westerberg" + }, + { + "drilldown" : "Simon Proctor", + "y" : 1, + "name" : "Simon Proctor" + }, + { + "name" : "Steven Wilson", + "y" : 1, + "drilldown" : "Steven Wilson" + } + ], + "colorByPoint" : 1, + "name" : "Perl Weekly Challenge - 016" + } + ], + "xAxis" : { + "type" : "category" + }, + "title" : { + "text" : "Perl Weekly Challenge - 016" + }, + "subtitle" : { + "text" : "[Champions: 15] Last updated at 2019-07-13 15:37:42 GMT" } } diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json index a4e3eaada8..7dc1536bad 100644 --- a/stats/pwc-language-breakdown-summary.json +++ b/stats/pwc-language-breakdown-summary.json @@ -1,6 +1,18 @@ { "series" : [ { + "dataLabels" : { + "color" : "#FFFFFF", + "rotation" : -90, + "format" : "{point.y:.0f}", + "enabled" : "true", + "align" : "right", + "style" : { + "fontSize" : "13px", + "fontFamily" : "Verdana, sans-serif" + }, + "y" : 10 + }, "name" : "Contributions", "data" : [ [ @@ -9,55 +21,43 @@ ], [ "Perl 5", - 651 + 652 ], [ "Perl 6", 375 ] - ], - "dataLabels" : { - "y" : 10, - "format" : "{point.y:.0f}", - "align" : "right", - "rotation" : -90, - "color" : "#FFFFFF", - "enabled" : "true", - "style" : { - "fontFamily" : "Verdana, sans-serif", - "fontSize" : "13px" - } - } + ] } ], - "title" : { - "text" : "Perl Weekly Challenge Contributions - 2019" - }, "chart" : { "type" : "column" }, - "subtitle" : { - "text" : "Last updated at 2019-07-13 15:34:07 GMT" + "tooltip" : { + "pointFormat" : "<b>{point.y:.0f}</b>" }, - "yAxis" : { - "min" : 0, - "title" : { - "text" : null - } + "title" : { + "text" : "Perl Weekly Challenge Contributions - 2019" }, "legend" : { "enabled" : "false" }, - "tooltip" : { - "pointFormat" : "<b>{point.y:.0f}</b>" - }, "xAxis" : { + "type" : "category", "labels" : { "style" : { - "fontFamily" : "Verdana, sans-serif", - "fontSize" : "13px" + "fontSize" : "13px", + "fontFamily" : "Verdana, sans-serif" } - }, - "type" : "category" + } + }, + "yAxis" : { + "min" : 0, + "title" : { + "text" : null + } + }, + "subtitle" : { + "text" : "Last updated at 2019-07-13 15:37:51 GMT" } } diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json index a8d0c0251c..db451ad56f 100644 --- a/stats/pwc-language-breakdown.json +++ b/stats/pwc-language-breakdown.json @@ -1,6 +1,94 @@ { - "xAxis" : { - "type" : "category" + "series" : [ + { + "colorByPoint" : "true", + "name" : "Perl Weekly Challenge Languages", + "data" : [ + { + "y" : 123, + "name" : "#001", + "drilldown" : "001" + }, + { + "drilldown" : "002", + "name" : "#002", + "y" : 104 + }, + { + "drilldown" : "003", + "name" : "#003", + "y" : 66 + }, + { + "name" : "#004", + "drilldown" : "004", + "y" : 84 + }, + { + "y" : 66, + "drilldown" : "005", + "name" : "#005" + }, + { + "y" : 47, + "drilldown" : "006", + "name" : "#006" + }, + { + "y" : 54, + "name" : "#007", + "drilldown" : "007" + }, + { + "name" : "#008", + "drilldown" : "008", + "y" : 67 + }, + { + "name" : "#009", + "drilldown" : "009", + "y" : 65 + }, + { + "name" : "#010", + "drilldown" : "010", + "y" : 58 + }, + { + "name" : "#011", + "drilldown" : "011", + "y" : 77 + }, + { + "name" : "#012", + "drilldown" : "012", + "y" : 81 + }, + { + "name" : "#013", + "drilldown" : "013", + "y" : 74 + }, + { + "drilldown" : "014", + "name" : "#014", + "y" : 94 + }, + { + "name" : "#015", + "drilldown" : "015", + "y" : 83 + }, + { + "y" : 28, + "drilldown" : "016", + "name" : "#016" + } + ] + } + ], + "chart" : { + "type" : "column" }, "tooltip" : { "followPointer" : "true", @@ -10,11 +98,29 @@ "legend" : { "enabled" : "false" }, + "title" : { + "text" : "Perl Weekly Challenge Language" + }, + "plotOptions" : { + "series" : { + "borderWidth" : 0, + "dataLabels" : { + "format" : "{point.y}", + "enabled" : 1 + } + } + }, + "yAxis" : { + "title" : { + "text" : "Total Solutions" + } + }, + "subtitle" : { + "text" : "Click the columns to drilldown the language breakdown. Last updated at 2019-07-13 15:37:51 GMT" + }, "drilldown" : { "series" : [ { - "id" : "001", - "name" : "001", "data" : [ [ "Perl 5", @@ -28,10 +134,11 @@ "Blog", 10 ] - ] + ], + "name" : "001", + "id" : "001" }, { - "name" : "002", "data" : [ [ "Perl 5", @@ -46,11 +153,10 @@ 9 ] ], - "id" : "002" + "id" : "002", + "name" : "002" }, { - "id" : "003", - "name" : "003", "data" : [ [ "Perl 5", @@ -64,10 +170,11 @@ "Blog", 8 ] - ] + ], + "name" : "003", + "id" : "003" }, { - "id" : "004", "data" : [ [ "Perl 5", @@ -82,9 +189,11 @@ 9 ] ], + "id" : "004", "name" : "004" }, { + "name" : "005", "id" : "005", "data" : [ [ @@ -99,11 +208,9 @@ "Blog", 11 ] - ], - "name" : "005" + ] }, { - "name" : "006", "data" : [ [ "Perl 5", @@ -118,9 +225,11 @@ 6 ] ], - "id" : "006" + "id" : "006", + "name" : "006" }, { + "name" : "007", "id" : "007", "data" : [ [ @@ -135,10 +244,10 @@ "Blog", 8 ] - ], - "name" : "007" + ] }, { + "name" : "008", "id" : "008", "data" : [ [ @@ -153,10 +262,11 @@ "Blog", 9 ] - ], - "name" : "008" + ] }, { + "id" : "009", + "name" : "009", "data" : [ [ "Perl 5", @@ -170,12 +280,11 @@ "Blog", 11 ] - ], - "name" : "009", - "id" : "009" + ] }, { "name" : "010", + "id" : "010", "data" : [ [ "Perl 5", @@ -189,11 +298,11 @@ "Blog", 9 ] - ], - "id" : "010" + ] }, { "id" : "011", + "name" : "011", "data" : [ [ "Perl 5", @@ -207,12 +316,9 @@ "Blog", 8 ] - ], - "name" : "011" + ] }, { - "id" : "012", - "name" : "012", "data" : [ [ "Perl 5", @@ -226,11 +332,11 @@ "Blog", 9 ] - ] + ], + "name" : "012", + "id" : "012" }, { - "id" : "013", - "name" : "013", "data" : [ [ "Perl 5", @@ -244,7 +350,9 @@ "Blog", 11 ] - ] + ], + "name" : "013", + "id" : "013" }, { "data" : [ @@ -261,10 +369,12 @@ 13 ] ], - "name" : "014", - "id" : "014" + "id" : "014", + "name" : "014" }, { + "id" : "015", + "name" : "015", "data" : [ [ "Perl 5", @@ -278,16 +388,15 @@ "Blog", 11 ] - ], - "name" : "015", - "id" : "015" + ] }, { + "name" : "016", "id" : "016", "data" : [ [ "Perl 5", - 13 + 14 ], [ "Perl 6", @@ -297,120 +406,11 @@ "Blog", 2 ] - ], - "name" : "016" + ] } ] }, - "yAxis" : { - "title" : { - "text" : "Total Solutions" - } - }, - "subtitle" : { - "text" : "Click the columns to drilldown the language breakdown. Last updated at 2019-07-13 15:34:07 GMT" - }, - "chart" : { - "type" : "column" - }, - "plotOptions" : { - "series" : { - "dataLabels" : { - "enabled" : 1, - "format" : "{point.y}" - }, - "borderWidth" : 0 - } - }, - "title" : { - "text" : "Perl Weekly Challenge Language" - }, - "series" : [ - { - "data" : [ - { - "name" : "#001", - "drilldown" : "001", - "y" : 123 - }, - { - "name" : "#002", - "y" : 104, - "drilldown" : "002" - }, - { - "name" : "#003", - "drilldown" : "003", - "y" : 66 - }, - { - "y" : 84, - "drilldown" : "004", - "name" : "#004" - }, - { - "drilldown" : "005", - "y" : 66, - "name" : "#005" - }, - { - "drilldown" : "006", - "y" : 47, - "name" : "#006" - }, - { - "y" : 54, - "drilldown" : "007", - "name" : "#007" - }, - { - "name" : "#008", - "y" : 67, - "drilldown" : "008" - }, - { - "drilldown" : "009", - "y" : 65, - "name" : "#009" - }, - { - "drilldown" : "010", - "y" : 58, - "name" : "#010" - }, - { - "y" : 77, - "drilldown" : "011", - "name" : "#011" - }, - { - "y" : 81, - "drilldown" : "012", - "name" : "#012" - }, - { - "name" : "#013", - "drilldown" : "013", - "y" : 74 - }, - { - "y" : 94, - "drilldown" : "014", - "name" : "#014" - }, - { - "y" : 83, - "drilldown" : "015", - "name" : "#015" - }, - { - "y" : 27, - "drilldown" : "016", - "name" : "#016" - } - ], - "name" : "Perl Weekly Challenge Languages", - "colorByPoint" : "true" - } - ] + "xAxis" : { + "type" : "category" + } } diff --git a/stats/pwc-leaders.json b/stats/pwc-leaders.json index 763c5672ca..6381632125 100644 --- a/stats/pwc-leaders.json +++ b/stats/pwc-leaders.json @@ -1,47 +1,328 @@ { + "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" : "true", + "headerFormat" : "<span style=\"font-size:11px\"></span>" + }, + "xAxis" : { + "type" : "category" + }, + "chart" : { + "type" : "column" + }, + "legend" : { + "enabled" : "false" + }, + "series" : [ + { + "data" : [ + { + "name" : "#1: Joelle Maslak", + "y" : 164, + "drilldown" : "Joelle Maslak" + }, + { + "y" : 160, + "drilldown" : "Laurent Rosenfeld", + "name" : "#2: Laurent Rosenfeld" + }, + { + "name" : "#3: Jaldhar H. Vyas", + "y" : 126, + "drilldown" : "Jaldhar H. Vyas" + }, + { + "name" : "#4: Ruben Westerberg", + "y" : 116, + "drilldown" : "Ruben Westerberg" + }, + { + "name" : "#5: Adam Russell", + "drilldown" : "Adam Russell", + "y" : 90 + }, + { + "name" : "#6: Arne Sommer", + "drilldown" : "Arne Sommer", + "y" : 88 + }, + { + "y" : 88, + "drilldown" : "Athanasius", + "name" : "#7: Athanasius" + }, + { + "y" : 74, + "drilldown" : "Simon Proctor", + "name" : "#8: Simon Proctor" + }, + { + "drilldown" : "Kian-Meng Ang", + "y" : 72, + "name" : "#9: Kian-Meng Ang" + }, + { + "drilldown" : "Dave Jacoby", + "y" : 68, + "name" : "#10: Dave Jacoby" + }, + { + "drilldown" : "Francis Whittle", + "y" : 68, + "name" : "#11: Francis Whittle" + }, + { + "drilldown" : "E. Choroba", + "y" : 66, + "name" : "#12: E. Choroba" + }, + { + "y" : 62, + "drilldown" : "Gustavo Chaves", + "name" : "#13: Gustavo Chaves" + }, + { + "name" : "#14: Andrezgz", + "y" : 60, + "drilldown" : "Andrezgz" |
