diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-10-11 23:26:29 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-10-11 23:26:29 +0100 |
| commit | 8740dd31a9e8511d8d471dd510a9d65ef3ba4754 (patch) | |
| tree | ae0c54c8ac4e3a824127ae0d9c239555a43ff1b5 | |
| parent | a67327cc12c53d2bad9db9764e90437829b61ed3 (diff) | |
| download | perlweeklychallenge-club-8740dd31a9e8511d8d471dd510a9d65ef3ba4754.tar.gz perlweeklychallenge-club-8740dd31a9e8511d8d471dd510a9d65ef3ba4754.tar.bz2 perlweeklychallenge-club-8740dd31a9e8511d8d471dd510a9d65ef3ba4754.zip | |
- Added Raku solution to "Frequency Count" task.
| -rw-r--r-- | challenge-081/mohammad-anwar/raku/ch-2.raku | 50 | ||||
| -rw-r--r-- | stats/pwc-current.json | 292 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown-summary.json | 58 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown.json | 594 | ||||
| -rw-r--r-- | stats/pwc-leaders.json | 372 | ||||
| -rw-r--r-- | stats/pwc-summary-1-30.json | 52 | ||||
| -rw-r--r-- | stats/pwc-summary-121-150.json | 114 | ||||
| -rw-r--r-- | stats/pwc-summary-151-180.json | 102 | ||||
| -rw-r--r-- | stats/pwc-summary-181-210.json | 76 | ||||
| -rw-r--r-- | stats/pwc-summary-31-60.json | 40 | ||||
| -rw-r--r-- | stats/pwc-summary-61-90.json | 38 | ||||
| -rw-r--r-- | stats/pwc-summary-91-120.json | 102 | ||||
| -rw-r--r-- | stats/pwc-summary.json | 36 |
13 files changed, 990 insertions, 936 deletions
diff --git a/challenge-081/mohammad-anwar/raku/ch-2.raku b/challenge-081/mohammad-anwar/raku/ch-2.raku new file mode 100644 index 0000000000..d60c82b191 --- /dev/null +++ b/challenge-081/mohammad-anwar/raku/ch-2.raku @@ -0,0 +1,50 @@ +#!/usr/bin/env raku + +# +# Perl Weekly Challenge - 081 +# +# Task #2: Frequency Count +# +# https://perlweeklychallenge.org/blog/perl-weekly-challenge-081 +# + +use v6.d; + +sub MAIN(Str :$file where *.IO.f) { + frequency-count(fetch-words($file)); +} + +# +# +# SUBROUTINES + +sub fetch-words(Str $file where *.IO.f) { + + my $words; + for $file.IO.lines -> $line is copy { + $line ~~ s:g/\.//; + $line ~~ s:g/\"//; + $line ~~ s:g/\(//; + $line ~~ s:g/\)//; + $line ~~ s:g/\,//; + $line ~~ s:g/\'s//; + $line ~~ s:g/\-\-/ /; + for $line.split(" ") -> $word { + $words.{$word} += 1; + } + } + + return $words; +} + +sub frequency-count($words) { + + my %frequency = (); + for $words.keys -> $word { + %frequency{$words.{$word}}.push: $word; + } + + for %frequency.keys.sort({ $^a <=> $^b }) -> $count { + ($count, %frequency{$count}.sort).join(" ").say; + } +} diff --git a/stats/pwc-current.json b/stats/pwc-current.json index a3f8a46195..7f377bd75e 100644 --- a/stats/pwc-current.json +++ b/stats/pwc-current.json @@ -3,37 +3,47 @@ "type" : "category" }, "subtitle" : { - "text" : "[Champions: 38] Last updated at 2020-10-11 22:03:41 GMT" - }, - "chart" : { - "type" : "column" + "text" : "[Champions: 38] Last updated at 2020-10-11 22:26:06 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 + "plotOptions" : { + "series" : { + "borderWidth" : 0, + "dataLabels" : { + "enabled" : 1, + "format" : "{point.y}" + } + } }, "title" : { "text" : "Perl Weekly Challenge - 081" }, + "yAxis" : { + "title" : { + "text" : "Total Solutions" + } + }, + "chart" : { + "type" : "column" + }, "drilldown" : { "series" : [ { + "name" : "Abigail", "data" : [ [ "Perl", 2 ] ], - "id" : "Abigail", - "name" : "Abigail" + "id" : "Abigail" }, { "id" : "Adam Russell", - "name" : "Adam Russell", "data" : [ [ "Perl", @@ -43,19 +53,22 @@ "Blog", 1 ] - ] + ], + "name" : "Adam Russell" }, { + "name" : "Alexander Pankoff", + "id" : "Alexander Pankoff", "data" : [ [ "Perl", 2 ] - ], - "id" : "Alexander Pankoff", - "name" : "Alexander Pankoff" + ] }, { + "name" : "Andinus", + "id" : "Andinus", "data" : [ [ "Perl", @@ -65,21 +78,21 @@ "Blog", 2 ] - ], - "name" : "Andinus", - "id" : "Andinus" + ] }, { + "id" : "Andrew Shitov", "data" : [ [ "Raku", 2 ] ], - "name" : "Andrew Shitov", - "id" : "Andrew Shitov" + "name" : "Andrew Shitov" }, { + "name" : "Arne Sommer", + "id" : "Arne Sommer", "data" : [ [ "Raku", @@ -89,11 +102,10 @@ "Blog", 1 ] - ], - "name" : "Arne Sommer", - "id" : "Arne Sommer" + ] }, { + "name" : "Athanasius", "data" : [ [ "Perl", @@ -104,17 +116,16 @@ 2 ] ], - "id" : "Athanasius", - "name" : "Athanasius" + "id" : "Athanasius" }, { + "name" : "Bob Lied", "data" : [ [ "Perl", 2 ] ], - "name" : "Bob Lied", "id" : "Bob Lied" }, { @@ -128,7 +139,6 @@ ] }, { - "id" : "Colin Crain", "name" : "Colin Crain", "data" : [ [ @@ -143,31 +153,32 @@ "Blog", 1 ] - ] + ], + "id" : "Colin Crain" }, { + "id" : "Dave Jacoby", "data" : [ [ "Perl", 2 ] ], - "id" : "Dave Jacoby", "name" : "Dave Jacoby" }, { + "name" : "Duncan C. White", "data" : [ [ "Perl", 2 ] ], - "name" : "Duncan C. White", "id" : "Duncan C. White" }, { - "id" : "E. Choroba", "name" : "E. Choroba", + "id" : "E. Choroba", "data" : [ [ "Perl", @@ -176,8 +187,8 @@ ] }, { - "id" : "Flavio Poletti", "name" : "Flavio Poletti", + "id" : "Flavio Poletti", "data" : [ [ "Perl", @@ -200,37 +211,36 @@ "name" : "James Smith" }, { + "name" : "Jan Krnavek", "data" : [ [ "Raku", 2 ] ], - "name" : "Jan Krnavek", "id" : "Jan Krnavek" }, { + "name" : "Jorg Sommrey", + "id" : "Jorg Sommrey", "data" : [ [ "Perl", 2 ] - ], - "name" : "Jorg Sommrey", - "id" : "Jorg Sommrey" + ] }, { + "id" : "Jose Luis", "data" : [ [ "Perl", 2 ] ], - "id" : "Jose Luis", "name" : "Jose Luis" }, { - "name" : "Julio de Castro", "id" : "Julio de Castro", "data" : [ [ @@ -241,29 +251,31 @@ "Raku", 2 ] - ] + ], + "name" : "Julio de Castro" }, { + "id" : "Kang-min Liu", "data" : [ [ "Raku", 2 ] ], - "id" : "Kang-min Liu", "name" : "Kang-min Liu" }, { + "name" : "Lars Thegler", + "id" : "Lars Thegler", "data" : [ [ "Perl", 2 ] - ], - "name" : "Lars Thegler", - "id" : "Lars Thegler" + ] }, { + "name" : "Laurent Rosenfeld", "data" : [ [ "Perl", @@ -278,47 +290,50 @@ 1 ] ], - "id" : "Laurent Rosenfeld", - "name" : "Laurent Rosenfeld" + "id" : "Laurent Rosenfeld" }, { - "name" : "Lubos Kolouch", "id" : "Lubos Kolouch", "data" : [ [ "Perl", 2 ] - ] + ], + "name" : "Lubos Kolouch" }, { "id" : "Mark Anderson", - "name" : "Mark Anderson", "data" : [ [ "Raku", 2 ] - ] + ], + "name" : "Mark Anderson" }, { + "name" : "Markus Holzer", "data" : [ [ "Raku", 2 ] ], - "name" : "Markus Holzer", "id" : "Markus Holzer" }, { + "name" : "Mohammad S Anwar", "data" : [ [ "Perl", 2 + ], + [ + "Raku", + 1 ] ], - "name" : "Mohammad S Anwar", "id" : "Mohammad S Anwar" }, { @@ -341,36 +356,35 @@ }, { "id" : "Niels van Dijke", - "name" : "Niels van Dijke", "data" : [ [ "Perl", 2 ] - ] + ], + "name" : "Niels van Dijke" }, { - "id" : "Nuno Vieira", - "name" : "Nuno Vieira", "data" : [ [ "Perl", 2 ] - ] + ], + "id" : "Nuno Vieira", + "name" : "Nuno Vieira" }, { + "id" : "Pete Houston", "data" : [ [ "Perl", 2 ] ], - "id" : "Pete Houston", "name" : "Pete Houston" }, { - "id" : "Roger Bell_West", "name" : "Roger Bell_West", "data" : [ [ @@ -385,7 +399,8 @@ "Blog", 1 ] - ] + ], + "id" : "Roger Bell_West" }, { "data" : [ @@ -399,7 +414,6 @@ }, { "name" : "Simon Green", - "id" : "Simon Green", "data" : [ [ "Perl", @@ -409,21 +423,20 @@ "Blog", 1 ] - ] + ], + "id" : "Simon Green" }, { + "name" : "Simon Proctor", + "id" : "Simon Proctor", "data" : [ [ "Raku", 2 ] - ], - "id" : "Simon Proctor", - "name" : "Simon Proctor" + ] }, { - "id" : "Ulrich Rieke", - "name" : "Ulrich Rieke", "data" : [ [ "Perl", @@ -433,11 +446,13 @@ "Raku", 1 ] - ] + ], + "id" : "Ulrich Rieke", + "name" : "Ulrich Rieke" }, { - "id" : "Vinod Kumar K", "name" : "Vinod Kumar K", + "id" : "Vinod Kumar K", "data" : [ [ "Perl", @@ -466,28 +481,28 @@ 2 ] ], - "name" : "Wanderdoc", - "id" : "Wanderdoc" + "id" : "Wanderdoc", + "name" : "Wanderdoc" } ] }, - "yAxis" : { - "title" : { - "text" : "Total Solutions" - } + "legend" : { + "enabled" : 0 }, "series" : [ { + "name" : "Perl Weekly Challenge - 081", + "colorByPoint" : 1, "data" : [ { - "name" : "Abigail", + "y" : 2, "drilldown" : "Abigail", - "y" : 2 + "name" : "Abigail" }, { - "drilldown" : "Adam Russell", "name" : "Adam Russell", - "y" : 3 + "y" : 3, + "drilldown" : "Adam Russell" }, { "name" : "Alexander Pankoff", @@ -495,39 +510,39 @@ "y" : 2 }, { - "name" : "Andinus", "drilldown" : "Andinus", - "y" : 4 + "y" : 4, + "name" : "Andinus" }, { - "name" : "Andrew Shitov", + "y" : 2, "drilldown" : "Andrew Shitov", - "y" : 2 + "name" : "Andrew Shitov" }, { - "name" : "Arne Sommer", "drilldown" : "Arne Sommer", - "y" : 3 + "y" : 3, + "name" : "Arne Sommer" }, { + "name" : "Athanasius", "y" : 4, - "drilldown" : "Athanasius", - "name" : "Athanasius" + "drilldown" : "Athanasius" }, { + "name" : "Bob Lied", "y" : 2, - "drilldown" : "Bob Lied", - "name" : "Bob Lied" + "drilldown" : "Bob Lied" }, { - "name" : "Cheok-Yin Fung", "drilldown" : "Cheok-Yin Fung", - "y" : 2 + "y" : 2, + "name" : "Cheok-Yin Fung" }, { - "y" : 5, "name" : "Colin Crain", - "drilldown" : "Colin Crain" + "drilldown" : "Colin Crain", + "y" : 5 }, { "name" : "Dave Jacoby", @@ -540,14 +555,14 @@ "name" : "Duncan C. White" }, { + "drilldown" : "E. Choroba", "y" : 2, - "name" : "E. Choroba", - "drilldown" : "E. Choroba" + "name" : "E. Choroba" }, { "drilldown" : "Flavio Poletti", - "name" : "Flavio Poletti", - "y" : 4 + "y" : 4, + "name" : "Flavio Poletti" }, { "name" : "James Smith", @@ -555,74 +570,74 @@ "y" : 2 }, { + "y" : 2, "drilldown" : "Jan Krnavek", - "name" : "Jan Krnavek", - "y" : 2 + "name" : "Jan Krnavek" }, { + "drilldown" : "Jorg Sommrey", "y" : 2, - "name" : "Jorg Sommrey", - "drilldown" : "Jorg Sommrey" + "name" : "Jorg Sommrey" }, { - "name" : "Jose Luis", "drilldown" : "Jose Luis", - "y" : 2 + "y" : 2, + "name" : "Jose Luis" }, { - "drilldown" : "Julio de Castro", "name" : "Julio de Castro", - "y" : 4 + "y" : 4, + "drilldown" : "Julio de Castro" }, { "drilldown" : "Kang-min Liu", - "name" : "Kang-min Liu", - "y" : 2 + "y" : 2, + "name" : "Kang-min Liu" }, { "drilldown" : "Lars Thegler", - "name" : "Lars Thegler", - "y" : 2 + "y" : 2, + "name" : "Lars Thegler" }, { + "drilldown" : "Laurent Rosenfeld", "y" : 3, - "name" : "Laurent Rosenfeld", - "drilldown" : "Laurent Rosenfeld" + "name" : "Laurent Rosenfeld" }, { - "y" : 2, "drilldown" : "Lubos Kolouch", + "y" : 2, "name" : "Lubos Kolouch" }, { "drilldown" : "Mark Anderson", - "name" : "Mark Anderson", - "y" : 2 + "y" : 2, + "name" : "Mark Anderson" }, { + "drilldown" : "Markus Holzer", "y" : 2, - "name" : "Markus Holzer", - "drilldown" : "Markus Holzer" + "name" : "Markus Holzer" }, { "name" : "Mohammad S Anwar", "drilldown" : "Mohammad S Anwar", - "y" : 2 + "y" : 3 }, { + "name" : "Myoungjin Jeon", "y" : 6, - "drilldown" : "Myoungjin Jeon", - "name" : "Myoungjin Jeon" + "drilldown" : "Myoungjin Jeon" }, { + "drilldown" : "Niels van Dijke", "y" : 2, - "name" : "Niels van Dijke", - "drilldown" : "Niels van Dijke" + "name" : "Niels van Dijke" }, { - "name" : "Nuno Vieira", + "y" : 2, "drilldown" : "Nuno Vieira", - "y" : 2 + "name" : "Nuno Vieira" }, { "name" : "Pete Houston", @@ -630,14 +645,14 @@ "y" : 2 }, { + "name" : "Roger Bell_West", "y" : 5, - "drilldown" : "Roger Bell_West", - "name" : "Roger Bell_West" + "drilldown" : "Roger Bell_West" }, { - "y" : 2, + "name" : "Shawn Wagner", "drilldown" : "Shawn Wagner", - "name" : "Shawn Wagner" + "y" : 2 }, { "name" : "Simon Green", @@ -646,18 +661,18 @@ }, { "drilldown" : "Simon Proctor", - "name" : "Simon Proctor", - "y" : 2 + "y" : 2, + "name" : "Simon Proctor" }, { - "drilldown" : "Ulrich Rieke", "name" : "Ulrich Rieke", + "drilldown" : "Ulrich Rieke", "y" : 2 }, { - "y" : 1, + "name" : "Vinod Kumar K", "drilldown" : "Vinod Kumar K", - "name" : "Vinod Kumar K" + "y" : 1 }, { "name" : "Walt Mankowski", @@ -665,22 +680,11 @@ "y" : 3 }, { + "name" : "Wanderdoc", "y" : 2, - "drilldown" : "Wanderdoc", - "name" : "Wanderdoc" + "drilldown" : "Wanderdoc" } - ], - "name" : "Perl Weekly Challenge - 081", - "colorByPoint" : 1 - } - ], - "plotOptions" : { - "series" : { - "borderWidth" : 0, - "dataLabels" : { - "enabled" : 1, - "format" : "{point.y}" - } + ] } - } + ] } diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json index 6207c5c361..10dc0c4784 100644 --- a/stats/pwc-language-breakdown-summary.json +++ b/stats/pwc-language-breakdown-summary.json @@ -1,25 +1,4 @@ { - "legend" : { - "enabled" : "false" - }, - "tooltip" : { - "pointFormat" : "<b>{point.y:.0f}</b>" - }, - "chart" : { - "type" : "column" - }, - "subtitle" : { - "text" : "Last updated at 2020-10-11 22:03:41 GMT" - }, - "xAxis" : { - "labels" : { - "style" : { - "fontFamily" : "Verdana, sans-serif", - "fontSize" : "13px" - } - }, - "type" : "category" - }, "series" : [ { "data" : [ @@ -33,24 +12,30 @@ ], [ "Raku", - 2248 + 2249 ] ], + "name" : "Contributions", "dataLabels" : { - "enabled" : "true", - "y" : 10, - "format" : "{point.y:.0f}", - "rotation" : -90, "style" : { "fontFamily" : "Verdana, sans-serif", "fontSize" : "13px" }, "color" : "#FFFFFF", - "align" : "right" - }, - "name" : "Contributions" + "rotation" : -90, + "enabled" : "true", + "y" : 10, + "align" : "right", + "format" : "{point.y:.0f}" + } } ], + "legend" : { + "enabled" : "false" + }, + "chart" : { + "type" : "column" + }, "yAxis" : { "title" : { "text" : null @@ -59,5 +44,20 @@ }, "title" : { "text" : "Perl Weekly Challenge Contributions [2019 - 2020]" + }, + "tooltip" : { + "pointFormat" : "<b>{point.y:.0f}</b>" + }, + "xAxis" : { + "labels" : { + "style" : { + "fontFamily" : "Verdana, sans-serif", + "fontSize" : "13px" + } + }, + "type" : "category" + }, + "subtitle" : { + "text" : "Last updated at 2020-10-11 22:26:06 GMT" } } diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json index 2a1c7dca42..14152cf74d 100644 --- a/stats/pwc-language-breakdown.json +++ b/stats/pwc-language-breakdown.json @@ -1,7 +1,30 @@ { + "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>" + }, + "subtitle" : { + "text" : "Click the columns to drilldown the language breakdown. Last updated at 2020-10-11 22:26:06 GMT" + }, + "xAxis" : { + "type" : "category" + }, "title" : { "text" : "Perl Weekly Challenge Language" }, + "plotOptions" : { + "series" : { + "borderWidth" : 0, + "dataLabels" : { + "format" : "{point.y}", + "enabled" : 1 + } + } + }, + "chart" : { + "type" : "column" + }, "drilldown" : { "series" : [ { @@ -19,12 +42,10 @@ 11 ] ], - "name" : "001", - "id" : "001" + "id" : "001", + "name" : "001" }, { - "name" : "002", - "id" : "002", "data" : [ [ "Perl", @@ -38,9 +59,12 @@ "Blog", 10 ] - ] + ], + "id" : "002", + "name" : "002" }, { + "id" : "003", "data" : [ [ "Perl", @@ -55,10 +79,11 @@ 9 ] ], - "name" : "003", - "id" : "003" + "name" : "003" }, { + "name" : "004", + "id" : "004", "data" : [ [ "Perl", @@ -72,12 +97,9 @@ "Blog", 10 ] - ], - "name" : "004", - "id" : "004" + ] }, { - "id" : "005", "name" : "005", "data" : [ [ @@ -92,9 +114,11 @@ "Blog", 12 ] - ] + ], + "id" : "005" }, { + "name" : "006", "data" : [ [ "Perl", @@ -109,12 +133,11 @@ 7 ] ], - "id" : "006", - "name" : "006" + "id" : "006" }, { - "id" : "007", "name" : "007", + "id" : "007", "data" : [ [ "Perl", @@ -131,8 +154,8 @@ ] }, { - "id" : "008", "name" : "008", + "id" : "008", "data" : [ [ "Perl", @@ -149,6 +172,7 @@ ] }, { + "id" : "009", "data" : [ [ "Perl", @@ -163,12 +187,10 @@ 13 ] ], - "id" : "009", "name" : "009" }, { "name" : "010", - "id" : "010", "data" : [ [ "Perl", @@ -182,11 +204,10 @@ "Blog", 11 ] - ] + ], + "id" : "010" }, { - "name" : "011", - "id" : "011", "data" : [ [ "Perl", @@ -200,9 +221,12 @@ "Blog", 10 ] - ] + ], + "id" : "011", + "name" : "011" }, { + "name" : "012", "data" : [ [ "Perl", @@ -217,11 +241,9 @@ 11 ] ], - "id" : "012", - "name" : "012" + "id" : "012" }, { - "name" : "013", "id" : "013", "data" : [ [ @@ -236,9 +258,11 @@ "Blog", 13 ] - ] + ], + "name" : "013" }, { + "name" : "014", "data" : [ [ "Perl", @@ -253,12 +277,10 @@ 15 ] ], - "name" : "014", "id" : "014" }, { "name" : "015", - "id" : "015", "data" : [ [ "Perl", @@ -272,10 +294,10 @@ "Blog", 15 ] - ] + ], + "id" : "015" }, { - "id" : "016", "name" : "016", "data" : [ [ @@ -290,7 +312,8 @@ "Blog", 12 ] - ] + ], + "id" : "016" }, { "name" : "017", @@ -311,7 +334,6 @@ ] }, { - "name" : "018", "id" : "018", "data" : [ [ @@ -326,10 +348,10 @@ "Blog", |
