aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--challenge-078/mohammad-anwar/raku/ch-1.raku40
-rw-r--r--challenge-078/mohammad-anwar/raku/ch-1.t46
-rw-r--r--stats/pwc-current.json182
-rw-r--r--stats/pwc-language-breakdown-summary.json52
-rw-r--r--stats/pwc-language-breakdown.json586
-rw-r--r--stats/pwc-leaders.json384
-rw-r--r--stats/pwc-summary-1-30.json38
-rw-r--r--stats/pwc-summary-121-150.json36
-rw-r--r--stats/pwc-summary-151-180.json102
-rw-r--r--stats/pwc-summary-181-210.json48
-rw-r--r--stats/pwc-summary-31-60.json90
-rw-r--r--stats/pwc-summary-61-90.json38
-rw-r--r--stats/pwc-summary-91-120.json100
-rw-r--r--stats/pwc-summary.json36
14 files changed, 934 insertions, 844 deletions
diff --git a/challenge-078/mohammad-anwar/raku/ch-1.raku b/challenge-078/mohammad-anwar/raku/ch-1.raku
new file mode 100644
index 0000000000..96def316d5
--- /dev/null
+++ b/challenge-078/mohammad-anwar/raku/ch-1.raku
@@ -0,0 +1,40 @@
+#!/usr/bin/env raku
+
+#
+# Perl Weekly Challenge - 078
+#
+# Task #1: Leader Element
+#
+# https://perlweeklychallenge.org/blog/perl-weekly-challenge-078
+#
+
+use v6.d;
+
+sub MAIN(Str :$L = "9, 10, 7, 5, 6, 1") {
+ leader-elements($L).join(", ").say;
+}
+
+#
+#
+# METHOD
+
+sub leader-elements(Str $list) {
+
+ die "ERROR: Invalid list [$list].\n" unless $list ~~ /^[\-?\d\,?\s?]+$/;
+
+ my @array = $list.split(',').map: { .Int };
+ my $index = 0;
+ my @leader-elements = Empty;
+ for @array -> $n {
+ if $index == @array.elems-1 {
+ @leader-elements.push: $n;
+ }
+ else {
+ @leader-elements.push: $n
+ if $n > @array[$index+1 .. @array.elems-1].max;
+ }
+ $index++;
+ }
+
+ return |@leader-elements;
+}
diff --git a/challenge-078/mohammad-anwar/raku/ch-1.t b/challenge-078/mohammad-anwar/raku/ch-1.t
new file mode 100644
index 0000000000..15a0468f7d
--- /dev/null
+++ b/challenge-078/mohammad-anwar/raku/ch-1.t
@@ -0,0 +1,46 @@
+#!/usr/bin/env raku
+
+#
+# Perl Weekly Challenge - 078
+#
+# Task #1: Leader Element
+#
+# https://perlweeklychallenge.org/blog/perl-weekly-challenge-078
+#
+
+use Test;
+
+is-deeply leader-elements("9, 10, 7, 5, 6, 1"),
+ (10, 7, 6, 1),
+ "testing example 1";
+
+is-deeply leader-elements("3, 4, 5"),
+ (5),
+ "testing example 2";
+
+done-testing;
+
+#
+#
+# METHOD
+
+sub leader-elements(Str $list) {
+
+ die "ERROR: Invalid list [$list].\n" unless $list ~~ /^[\-?\d\,?\s?]+$/;
+
+ my @array = $list.split(',').map: { .Int };
+ my $index = 0;
+ my @leader-elements = Empty;
+ for @array -> $n {
+ if $index == @array.elems-1 {
+ @leader-elements.push: $n;
+ }
+ else {
+ @leader-elements.push: $n
+ if $n > @array[$index+1 .. @array.elems-1].max;
+ }
+ $index++;
+ }
+
+ return |@leader-elements;
+}
diff --git a/stats/pwc-current.json b/stats/pwc-current.json
index 7beaad456d..4e7c179b65 100644
--- a/stats/pwc-current.json
+++ b/stats/pwc-current.json
@@ -1,4 +1,19 @@
{
+ "plotOptions" : {
+ "series" : {
+ "borderWidth" : 0,
+ "dataLabels" : {
+ "format" : "{point.y}",
+ "enabled" : 1
+ }
+ }
+ },
+ "title" : {
+ "text" : "Perl Weekly Challenge - 078"
+ },
+ "subtitle" : {
+ "text" : "[Champions: 20] Last updated at 2020-09-15 21:21:24 GMT"
+ },
"drilldown" : {
"series" : [
{
@@ -8,20 +23,22 @@
2
]
],
- "id" : "Abigail",
- "name" : "Abigail"
+ "name" : "Abigail",
+ "id" : "Abigail"
},
{
"name" : "Alexander Pankoff",
- "id" : "Alexander Pankoff",
"data" : [
[
"Perl",
2
]
- ]
+ ],
+ "id" : "Alexander Pankoff"
},
{
+ "id" : "Andinus",
+ "name" : "Andinus",
"data" : [
[
"Perl",
@@ -31,9 +48,7 @@
"Blog",
2
]
- ],
- "id" : "Andinus",
- "name" : "Andinus"
+ ]
},
{
"data" : [
@@ -46,28 +61,28 @@
1
]
],
- "id" : "Andrew Shitov",
- "name" : "Andrew Shitov"
+ "name" : "Andrew Shitov",
+ "id" : "Andrew Shitov"
},
{
- "name" : "Anton Fedotov",
"id" : "Anton Fedotov",
"data" : [
[
"Perl",
2
]
- ]
+ ],
+ "name" : "Anton Fedotov"
},
{
"id" : "Bob Lied",
- "name" : "Bob Lied",
"data" : [
[
"Perl",
2
]
- ]
+ ],
+ "name" : "Bob Lied"
},
{
"data" : [
@@ -80,8 +95,8 @@
"id" : "Dave Cross"
},
{
- "name" : "Dave Jacoby",
"id" : "Dave Jacoby",
+ "name" : "Dave Jacoby",
"data" : [
[
"Perl",
@@ -90,68 +105,72 @@
]
},
{
- "id" : "E. Choroba",
- "name" : "E. Choroba",
"data" : [
[
"Perl",
2
]
- ]
+ ],
+ "name" : "E. Choroba",
+ "id" : "E. Choroba"
},
{
+ "id" : "James Smith",
+ "name" : "James Smith",
"data" : [
[
"Perl",
2
]
- ],
- "name" : "James Smith",
- "id" : "James Smith"
+ ]
},
{
- "name" : "Jason Messer",
"id" : "Jason Messer",
"data" : [
[
"Raku",
2
]
- ]
+ ],
+ "name" : "Jason Messer"
},
{
+ "id" : "Mark Anderson",
"data" : [
[
"Raku",
2
]
],
- "id" : "Mark Anderson",
"name" : "Mark Anderson"
},
{
+ "id" : "Markus Holzer",
"data" : [
[
"Raku",
2
]
],
- "name" : "Markus Holzer",
- "id" : "Markus Holzer"
+ "name" : "Markus Holzer"
},
{
+ "name" : "Mohammad S Anwar",
"data" : [
[
"Perl",
1
+ ],
+ [
+ "Raku",
+ 1
]
],
- "id" : "Mohammad S Anwar",
- "name" : "Mohammad S Anwar"
+ "id" : "Mohammad S Anwar"
},
{
- "name" : "Niels van Dijke",
"id" : "Niels van Dijke",
+ "name" : "Niels van Dijke",
"data" : [
[
"Perl",
@@ -160,7 +179,6 @@
]
},
{
- "name" : "Roger Bell_West",
"id" : "Roger Bell_West",
"data" : [
[
@@ -171,21 +189,22 @@
"Raku",
2
]
- ]
+ ],
+ "name" : "Roger Bell_West"
},
{
- "name" : "Simon Proctor",
- "id" : "Simon Proctor",
"data" : [
[
"Raku",
2
]
- ]
+ ],
+ "name" : "Simon Proctor",
+ "id" : "Simon Proctor"
},
{
- "name" : "Steven Wilson",
"id" : "Steven Wilson",
+ "name" : "Steven Wilson",
"data" : [
[
"Perl",
@@ -194,6 +213,8 @@
]
},
{
+ "id" : "Ulrich Rieke",
+ "name" : "Ulrich Rieke",
"data" : [
[
"Perl",
@@ -203,11 +224,10 @@
"Raku",
2
]
- ],
- "id" : "Ulrich Rieke",
- "name" : "Ulrich Rieke"
+ ]
},
{
+ "name" : "Walt Mankowski",
"data" : [
[
"Perl",
@@ -218,37 +238,25 @@
1
]
],
- "id" : "Walt Mankowski",
- "name" : "Walt Mankowski"
+ "id" : "Walt Mankowski"
}
]
},
- "subtitle" : {
- "text" : "[Champions: 20] Last updated at 2020-09-15 19:34:40 GMT"
- },
- "chart" : {
- "type" : "column"
- },
- "title" : {
- "text" : "Perl Weekly Challenge - 078"
- },
- "yAxis" : {
- "title" : {
- "text" : "Total Solutions"
- }
+ "legend" : {
+ "enabled" : 0
},
"series" : [
{
"colorByPoint" : 1,
"data" : [
{
- "y" : 2,
"drilldown" : "Abigail",
- "name" : "Abigail"
+ "name" : "Abigail",
+ "y" : 2
},
{
- "drilldown" : "Alexander Pankoff",
"name" : "Alexander Pankoff",
+ "drilldown" : "Alexander Pankoff",
"y" : 2
},
{
@@ -257,18 +265,18 @@
"drilldown" : "Andinus"
},
{
- "drilldown" : "Andrew Shitov",
"name" : "Andrew Shitov",
+ "drilldown" : "Andrew Shitov",
"y" : 3
},
{
- "y" : 2,
"name" : "Anton Fedotov",
- "drilldown" : "Anton Fedotov"
+ "drilldown" : "Anton Fedotov",
+ "y" : 2
},
{
- "drilldown" : "Bob Lied",
"name" : "Bob Lied",
+ "drilldown" : "Bob Lied",
"y" : 2
},
{
@@ -282,19 +290,19 @@
"y" : 2
},
{
+ "y" : 2,
"name" : "E. Choroba",
- "drilldown" : "E. Choroba",
- "y" : 2
+ "drilldown" : "E. Choroba"
},
{
+ "y" : 2,
"name" : "James Smith",
- "drilldown" : "James Smith",
- "y" : 2
+ "drilldown" : "James Smith"
},
{
"y" : 2,
- "drilldown" : "Jason Messer",
- "name" : "Jason Messer"
+ "name" : "Jason Messer",
+ "drilldown" : "Jason Messer"
},
{
"name" : "Mark Anderson",
@@ -302,24 +310,24 @@
"y" : 2
},
{
+ "y" : 2,
"drilldown" : "Markus Holzer",
- "name" : "Markus Holzer",
- "y" : 2
+ "name" : "Markus Holzer"
},
{
- "y" : 1,
- "name" : "Mohammad S Anwar",
- "drilldown" : "Mohammad S Anwar"
+ "y" : 2,
+ "drilldown" : "Mohammad S Anwar",
+ "name" : "Mohammad S Anwar"
},
{
- "drilldown" : "Niels van Dijke",
+ "y" : 2,
"name" : "Niels van Dijke",
- "y" : 2
+ "drilldown" : "Niels van Dijke"
},
{
+ "y" : 4,
"drilldown" : "Roger Bell_West",
- "name" : "Roger Bell_West",
- "y" : 4
+ "name" : "Roger Bell_West"
},
{
"name" : "Simon Proctor",
@@ -332,33 +340,29 @@
"drilldown" : "Steven Wilson"
},
{
- "y" : 4,
+ "drilldown" : "Ulrich Rieke",
"name" : "Ulrich Rieke",
- "drilldown" : "Ulrich Rieke"
+ "y" : 4
},
{
- "name" : "Walt Mankowski",
"drilldown" : "Walt Mankowski",
+ "name" : "Walt Mankowski",
"y" : 3
}
],
"name" : "Perl Weekly Challenge - 078"
}
],
- "xAxis" : {
- "type" : "category"
- },
- "plotOptions" : {
- "series" : {
- "borderWidth" : 0,
- "dataLabels" : {
- "enabled" : 1,
- "format" : "{point.y}"
- }
+ "yAxis" : {
+ "title" : {
+ "text" : "Total Solutions"
}
},
- "legend" : {
- "enabled" : 0
+ "chart" : {
+ "type" : "column"
+ },
+ "xAxis" : {
+ "type" : "category"
},
"tooltip" : {
"headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>",
diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json
index 56ac40b555..70945bf6b9 100644
--- a/stats/pwc-language-breakdown-summary.json
+++ b/stats/pwc-language-breakdown-summary.json
@@ -1,33 +1,18 @@
{
- "xAxis" : {
- "type" : "category",
- "labels" : {
- "style" : {
- "fontFamily" : "Verdana, sans-serif",
- "fontSize" : "13px"
- }
- }
- },
- "legend" : {
- "enabled" : "false"
- },
- "tooltip" : {
- "pointFormat" : "<b>{point.y:.0f}</b>"
- },
"subtitle" : {
- "text" : "Last updated at 2020-09-15 19:34:40 GMT"
+ "text" : "Last updated at 2020-09-15 21:21:24 GMT"
},
"title" : {
"text" : "Perl Weekly Challenge Contributions [2019 - 2020]"
},
- "chart" : {
- "type" : "column"
+ "legend" : {
+ "enabled" : "false"
},
"yAxis" : {
+ "min" : 0,
"title" : {
"text" : null
- },
- "min" : 0
+ }
},
"series" : [
{
@@ -43,21 +28,36 @@
],
[
"Raku",
- 2134
+ 2135
]
],
"dataLabels" : {
- "rotation" : -90,
- "y" : 10,
- "format" : "{point.y:.0f}",
"color" : "#FFFFFF",
+ "format" : "{point.y:.0f}",
"align" : "right",
"enabled" : "true",
"style" : {
"fontSize" : "13px",
"fontFamily" : "Verdana, sans-serif"
- }
+ },
+ "y" : 10,
+ "rotation" : -90
}
}
- ]
+ ],
+ "chart" : {
+ "type" : "column"
+ },
+ "tooltip" : {
+ "pointFormat" : "<b>{point.y:.0f}</b>"
+ },
+ "xAxis" : {
+ "labels" : {
+ "style" : {
+ "fontFamily" : "Verdana, sans-serif",
+ "fontSize" : "13px"
+ }
+ },
+ "type" : "category"
+ }
}
diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json
index 01e539868c..5b5961afd1 100644
--- a/stats/pwc-language-breakdown.json
+++ b/stats/pwc-language-breakdown.json
@@ -1,7 +1,19 @@
{
+ "chart" : {
+ "type" : "column"
+ },
+ "tooltip" : {
+ "pointFormat" : "<span style=\"color:{point.color}\">Challenge {point.name}</span>: <b>{point.y:f}</b><br/>",
+ "headerFormat" : "<span style=\"font-size:11px\"></span>",
+ "followPointer" : "true"
+ },
+ "xAxis" : {
+ "type" : "category"
+ },
"drilldown" : {
"series" : [
{
+ "name" : "001",
"data" : [
[
"Perl",
@@ -16,10 +28,10 @@
11
]
],
- "id" : "001",
- "name" : "001"
+ "id" : "001"
},
{
+ "name" : "002",
"data" : [
[
"Perl",
@@ -34,12 +46,11 @@
10
]
],
- "name" : "002",
"id" : "002"
},
{
- "name" : "003",
"id" : "003",
+ "name" : "003",
"data" : [
[
"Perl",
@@ -56,8 +67,6 @@
]
},
{
- "name" : "004",
- "id" : "004",
"data" : [
[
"Perl",
@@ -71,9 +80,12 @@
"Blog",
10
]
- ]
+ ],
+ "name" : "004",
+ "id" : "004"
},
{
+ "name" : "005",
"data" : [
[
"Perl",
@@ -88,12 +100,10 @@
12
]
],
- "name" : "005",
"id" : "005"
},
{
"id" : "006",
- "name" : "006",
"data" : [
[
"Perl",
@@ -107,11 +117,10 @@
"Blog",
7
]
- ]
+ ],
+ "name" : "006"
},
{
- "name" : "007",
- "id" : "007",
"data" : [
[
"Perl",
@@ -125,11 +134,12 @@
"Blog",
10
]
- ]
+ ],
+ "name" : "007",
+ "id" : "007"
},
{
"name" : "008",
- "id" : "008",
"data" : [
[
"Perl",
@@ -143,9 +153,12 @@
"Blog",
12
]
- ]
+ ],
+ "id" : "008"
},
{
+ "id" : "009",
+ "name" : "009",
"data" : [
[
"Perl",
@@ -159,12 +172,9 @@
"Blog",
13
]
- ],
- "name" : "009",
- "id" : "009"
+ ]
},
{
- "id" : "010",
"name" : "010",
"data" : [
[
@@ -179,9 +189,12 @@
"Blog",
11
]
- ]
+ ],
+ "id" : "010"
},
{
+ "id" : "011",
+ "name" : "011",
"data" : [
[
"Perl",
@@ -195,11 +208,11 @@
"Blog",
10
]
- ],
- "id" : "011",
- "name" : "011"
+ ]
},
{
+ "id" : "012",
+ "name" : "012",
"data" : [
[
"Perl",
@@ -213,11 +226,10 @@
"Blog",
11
]
- ],
- "name" : "012",
- "id" : "012"
+ ]
},
{
+ "id" : "013",
"data" : [
[
"Perl",
@@ -232,10 +244,11 @@
13
]
],
- "name" : "013",
- "id" : "013"
+ "name" : "013"
},
{
+ "id" : "014",
+ "name" : "014",
"data" : [
[
"Perl",
@@ -249,12 +262,9 @@
"Blog",
15
]
- ],
- "id" : "014",
- "name" : "014"
+ ]
},
{
- "id" : "015",
"name" : "015",
"data" : [
[
@@ -269,9 +279,11 @@
"Blog",
15
]
- ]
+ ],
+ "id" : "015"
},
{
+ "name" : "016",
"data" : [
[
"Perl",
@@ -286,10 +298,10 @@
12
]
],
- "name" : "016",
"id" : "016"
},
{
+ "id" : "017",
"data" : [
[
"Perl",
@@ -304,12 +316,9 @@
12
]
],
- "name" : "017",
- "id" : "017"
+ "name" : "017"
},
{
- "name" : "018",
- "id" : "018",
"data" : [
[
"Perl",
@@ -323,11 +332,11 @@
"Blog",
14
]
- ]
+ ],
+ "name" : "018",
+ "id" : "018"
},
{
- "id" : "019",
- "name" : "019",
"data" : [
[
"Perl",
@@ -341,9 +350,12 @@
"Blog",
13
]
- ]
+ ],
+ "name" : "019",
+ "id" : "019"
},
{
+ "name" : "020",
"data" : [
[
"Perl",
@@ -358,11 +370,9 @@
13
]
],
- "name" : "020",
"id" : "020"
},
{
- "id" : "021",
"name" : "021",
"data" : [
[
@@ -377,9 +387,11 @@
"Blog",
10
]
- ]
+ ],
+ "id" : "021"
},
{
+ "name" : "022",
"data" : [
[
"Perl",
@@ -394,8 +406,7 @@
10
]
],
- "id" : "022",
- "name" : "022"
+ "id" : "022"
},
{
"data" : [
@@ -412,8 +423,8 @@
12
]
],
- "id" : "023",
- "name" : "023"
+ "name" : "023",
+ "id" : "023"
},
{
"data" : [
@@ -430,12 +441,11 @@
11
]
],
- "id" : "024",
- "name" : "024"
+ "name" : "024",
+ "id" : "024"
},
{
"id" : "025",
- "name" : "025",
"data" : [
[
"Perl",
@@ -449,11 +459,12 @@
"Blog",
12
]
- ]
+ ],
+ "name" : "025"
},
{
- "name" : "026",
"id" : "026",
+ "name" : "026",
"data" : [
[
"Perl",
@@ -470,8 +481,8 @@
]
},
{
- "name" : "027",
"id" : "027",
+ "name" : "027",
"data" : [
[
"Perl",
@@ -488,7 +499,6 @@
]
},
{
- "name" : "028",
"id" : "028",
"data" : [
[
@@ -503,9 +513,11 @@
"Blog",
9
]
- ]
+ ],
+ "name" : "028"
},
{
+ "id" : "029",
"data" : [
[
"Perl",
@@ -520,12 +532,11 @@
12
]
],
- "name" : "029",
- "id" : "029"
+ "name" : "029"
},
{
- "name" : "030",
"id" : "030",
+ "name" : "030",
"data" : [
[
"Perl",
@@ -614,8 +625,6 @@
]
},
{
- "id" : "035",
- "name" : "035",
"data" : [
[
"Perl",
@@ -629,7 +638,9 @@
"Blog",
9
]
- ]
+ ],
+ "name" : "035",
+ "id" : "035"
},
{
"id" : "036",
@@ -650,6 +661,8 @@
]
},
{
+ "id" : "037",
+ "name" : "037",
"data" : [
[
"Perl",
@@ -663,11 +676,10 @@
"Blog",
9
]
- ],
- "name" : "037",
- "id" : "037"
+ ]
},
{
+ "id" : "038",
"data" : [
[
"Perl",
@@ -682,12 +694,9 @@
12
]
],
- "name" : "038",
- "id" : "038"
+ "name" : "038"
},
{
- "name" : "039",
- "id" : "039",
"data" : [
[
"Perl",
@@ -701,11 +710,11 @@
"Blog",
12
]
- ]
+ ],
+ "name" : "039",
+ "id" : "039"
},
{
- "id" : "040",
- "name" : "040",
"data" : [
[
"Perl",
@@ -719,9 +728,13 @@
"Blog",
10
]
- ]
+ ],
+ "name" : "040",
+ "id" : "040"
},
{
+ "id" : "041",
+ "name" : "041",
"data" : [
[
"Perl",
@@ -735,13 +748,10 @@
"Blog",
9
]
- ],
- "id" : "041",
- "name" : "041"
+ ]
},
{
"name" : "042",
- "id" : "042",
"data" : [
[
"Perl",
@@ -755,7 +765,8 @@
"Blog",
11
]
- ]
+ ],
+ "id" : "042"
},
{
"id" : "043",
@@ -777,7 +788,6 @@
},
{
"name" : "044",
- "id" : "044",
"data" : [
[
"Perl",
@@ -791,10 +801,10 @@
"Blog",
11
]
- ]
+ ],
+ "id" : "044"
},
{
- "name" : "045",
"id" : "045",
"data" : [
[
@@ -809,11 +819,10 @@
"Blog",
11
]
- ]
+ ],
+ "name" : "045"
},
{
- "name" : "046",
- "id" : "046",
"data" : [
[
"Perl",
@@ -827,11 +836,12 @@
"Blog",
10
]
- ]
+ ],
+ "name" : "046",
+ "id" : "046"
},
{
"id" : "047",
- "name" : "047",
"data" : [
[
"Perl",
@@ -845,11 +855,10 @@
"Blog",
10
]
- ]
+ ],
+ "name" : "047"
},
{
- "name" : "048",
- "id" : "048",
"data" : [
[
"Perl",
@@ -863,11 +872,11 @@
"Blog",
12
]
- ]
+ ],
+ "name" : "048",
+ "id" : "04