aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--challenge-054/mohammad-anwar/perl/ch-1.pl17
-rw-r--r--challenge-054/mohammad-anwar/raku/ch-1.p68
-rw-r--r--stats/pwc-current.json125
-rw-r--r--stats/pwc-language-breakdown-summary.json76
-rw-r--r--stats/pwc-language-breakdown.json408
-rw-r--r--stats/pwc-leaders.json756
-rw-r--r--stats/pwc-summary-1-30.json42
-rw-r--r--stats/pwc-summary-121-150.json36
-rw-r--r--stats/pwc-summary-151-180.json48
-rw-r--r--stats/pwc-summary-31-60.json102
-rw-r--r--stats/pwc-summary-61-90.json102
-rw-r--r--stats/pwc-summary-91-120.json98
-rw-r--r--stats/pwc-summary.json38
13 files changed, 950 insertions, 906 deletions
diff --git a/challenge-054/mohammad-anwar/perl/ch-1.pl b/challenge-054/mohammad-anwar/perl/ch-1.pl
new file mode 100644
index 0000000000..590710cf09
--- /dev/null
+++ b/challenge-054/mohammad-anwar/perl/ch-1.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use List::Util qw(reduce);
+use Algorithm::Combinatorics qw(permutations);
+
+my $n = $ARGV[0];
+my $k = $ARGV[1];
+
+die "ERROR: Missing digit count.\n" unless defined $n;
+die "ERROR: Missing sequence number.\n" unless defined $k;
+die "ERROR: Invalid digit count $n.\n" unless $n > 0;
+die "ERROR: Invalid sequence number $k.\n" unless $k > 0 && ($k <= reduce { $a * $b } 1 .. $n);
+
+print [ map { join "", @$_ } permutations([ 1..$n ]) ]->[$k-1];
diff --git a/challenge-054/mohammad-anwar/raku/ch-1.p6 b/challenge-054/mohammad-anwar/raku/ch-1.p6
new file mode 100644
index 0000000000..5e68c197b5
--- /dev/null
+++ b/challenge-054/mohammad-anwar/raku/ch-1.p6
@@ -0,0 +1,8 @@
+#!/usr/bin/env perl6
+
+use v6.c;
+
+sub MAIN(Int $n where * > 0, Int $k where * > 0) {
+ die "ERROR: Invalid sequence number $k." unless $k <= [*] 1..$n;
+ say ( 1..$n ).permutations.map({ .join })[$k -1];
+}
diff --git a/stats/pwc-current.json b/stats/pwc-current.json
index 945ca33ebd..1a4a0cab16 100644
--- a/stats/pwc-current.json
+++ b/stats/pwc-current.json
@@ -1,23 +1,25 @@
{
- "title" : {
- "text" : "Perl Weekly Challenge - 054"
+ "xAxis" : {
+ "type" : "category"
},
- "chart" : {
- "type" : "column"
+ "subtitle" : {
+ "text" : "[Champions: 9] Last updated at 2020-03-30 23:58:10 GMT"
},
"drilldown" : {
"series" : [
{
"name" : "Dave Jacoby",
- "id" : "Dave Jacoby",
"data" : [
[
"Perl",
2
]
- ]
+ ],
+ "id" : "Dave Jacoby"
},
{
+ "id" : "Javier Luque",
+ "name" : "Javier Luque",
"data" : [
[
"Perl",
@@ -31,23 +33,20 @@
"Blog",
1
]
- ],
- "id" : "Javier Luque",
- "name" : "Javier Luque"
+ ]
},
{
- "name" : "Luca Ferrari",
"id" : "Luca Ferrari",
"data" : [
[
"Raku",
2
]
- ]
+ ],
+ "name" : "Luca Ferrari"
},
{
"name" : "Markus Holzer",
- "id" : "Markus Holzer",
"data" : [
[
"Perl",
@@ -57,10 +56,24 @@
"Raku",
2
]
+ ],
+ "id" : "Markus Holzer"
+ },
+ {
+ "id" : "Mohammad S Anwar",
+ "name" : "Mohammad S Anwar",
+ "data" : [
+ [
+ "Perl",
+ 1
+ ],
+ [
+ "Raku",
+ 1
+ ]
]
},
{
- "id" : "Roger Bell West",
"data" : [
[
"Perl",
@@ -71,21 +84,21 @@
2
]
],
- "name" : "Roger Bell West"
+ "name" : "Roger Bell West",
+ "id" : "Roger Bell West"
},
{
- "id" : "Simon Proctor",
+ "name" : "Simon Proctor",
"data" : [
[
"Raku",
2
]
],
- "name" : "Simon Proctor"
+ "id" : "Simon Proctor"
},
{
"name" : "Ulrich Rieke",
- "id" : "Ulrich Rieke",
"data" : [
[
"Perl",
@@ -95,40 +108,56 @@
"Raku",
2
]
- ]
+ ],
+ "id" : "Ulrich Rieke"
},
{
- "name" : "Yet Ebreo",
+ "id" : "Yet Ebreo",
"data" : [
[
"Perl",
2
]
],
- "id" : "Yet Ebreo"
+ "name" : "Yet Ebreo"
}
]
},
- "legend" : {
- "enabled" : 0
+ "yAxis" : {
+ "title" : {
+ "text" : "Total Solutions"
+ }
+ },
+ "title" : {
+ "text" : "Perl Weekly Challenge - 054"
+ },
+ "tooltip" : {
+ "followPointer" : 1,
+ "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/>"
+ },
+ "chart" : {
+ "type" : "column"
},
"series" : [
{
+ "colorByPoint" : 1,
+ "name" : "Perl Weekly Challenge - 054",
"data" : [
{
- "y" : 2,
+ "name" : "Dave Jacoby",
"drilldown" : "Dave Jacoby",
- "name" : "Dave Jacoby"
+ "y" : 2
},
{
- "name" : "Javier Luque",
"drilldown" : "Javier Luque",
+ "name" : "Javier Luque",
"y" : 5
},
{
- "y" : 2,
"drilldown" : "Luca Ferrari",
- "name" : "Luca Ferrari"
+ "name" : "Luca Ferrari",
+ "y" : 2
},
{
"y" : 3,
@@ -136,41 +165,33 @@
"name" : "Markus Holzer"
},
{
- "y" : 4,
+ "y" : 2,
+ "drilldown" : "Mohammad S Anwar",
+ "name" : "Mohammad S Anwar"
+ },
+ {
"name" : "Roger Bell West",
- "drilldown" : "Roger Bell West"
+ "drilldown" : "Roger Bell West",
+ "y" : 4
},
{
- "y" : 2,
+ "drilldown" : "Simon Proctor",
"name" : "Simon Proctor",
- "drilldown" : "Simon Proctor"
+ "y" : 2
},
{
+ "y" : 3,
"name" : "Ulrich Rieke",
- "drilldown" : "Ulrich Rieke",
- "y" : 3
+ "drilldown" : "Ulrich Rieke"
},
{
- "y" : 2,
+ "name" : "Yet Ebreo",
"drilldown" : "Yet Ebreo",
- "name" : "Yet Ebreo"
+ "y" : 2
}
- ],
- "colorByPoint" : 1,
- "name" : "Perl Weekly Challenge - 054"
+ ]
}
],
- "yAxis" : {
- "title" : {
- "text" : "Total Solutions"
- }
- },
- "subtitle" : {
- "text" : "[Champions: 8] Last updated at 2020-03-30 22:42:06 GMT"
- },
- "xAxis" : {
- "type" : "category"
- },
"plotOptions" : {
"series" : {
"borderWidth" : 0,
@@ -180,9 +201,7 @@
}
}
},
- "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/>"
+ "legend" : {
+ "enabled" : 0
}
}
diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json
index c63d302363..4a484fea41 100644
--- a/stats/pwc-language-breakdown-summary.json
+++ b/stats/pwc-language-breakdown-summary.json
@@ -1,33 +1,33 @@
{
- "legend" : {
- "enabled" : "false"
- },
- "chart" : {
- "type" : "column"
+ "xAxis" : {
+ "labels" : {
+ "style" : {
+ "fontFamily" : "Verdana, sans-serif",
+ "fontSize" : "13px"
+ }
+ },
+ "type" : "category"
},
- "title" : {
- "text" : "Perl Weekly Challenge Contributions [2019 - 2020]"
+ "subtitle" : {
+ "text" : "Last updated at 2020-03-30 23:58:10 GMT"
},
"yAxis" : {
- "min" : 0,
"title" : {
"text" : null
- }
+ },
+ "min" : 0
+ },
+ "title" : {
+ "text" : "Perl Weekly Challenge Contributions [2019 - 2020]"
+ },
+ "tooltip" : {
+ "pointFormat" : "<b>{point.y:.0f}</b>"
+ },
+ "chart" : {
+ "type" : "column"
},
"series" : [
{
- "dataLabels" : {
- "format" : "{point.y:.0f}",
- "align" : "right",
- "y" : 10,
- "rotation" : -90,
- "color" : "#FFFFFF",
- "style" : {
- "fontFamily" : "Verdana, sans-serif",
- "fontSize" : "13px"
- },
- "enabled" : "true"
- },
"name" : "Contributions",
"data" : [
[
@@ -36,28 +36,28 @@
],
[
"Perl",
- 2263
+ 2264
],
[
"Raku",
- 1405
+ 1406
]
- ]
- }
- ],
- "xAxis" : {
- "type" : "category",
- "labels" : {
- "style" : {
- "fontSize" : "13px",
- "fontFamily" : "Verdana, sans-serif"
+ ],
+ "dataLabels" : {
+ "enabled" : "true",
+ "style" : {
+ "fontFamily" : "Verdana, sans-serif",
+ "fontSize" : "13px"
+ },
+ "align" : "right",
+ "format" : "{point.y:.0f}",
+ "y" : 10,
+ "color" : "#FFFFFF",
+ "rotation" : -90
}
}
- },
- "subtitle" : {
- "text" : "Last updated at 2020-03-30 22:42:06 GMT"
- },
- "tooltip" : {
- "pointFormat" : "<b>{point.y:.0f}</b>"
+ ],
+ "legend" : {
+ "enabled" : "false"
}
}
diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json
index 06dc1bc41a..acb14dbe8e 100644
--- a/stats/pwc-language-breakdown.json
+++ b/stats/pwc-language-breakdown.json
@@ -1,14 +1,18 @@
{
- "title" : {
- "text" : "Perl Weekly Challenge Language"
+ "subtitle" : {
+ "text" : "Click the columns to drilldown the language breakdown. Last updated at 2020-03-30 23:58:10 GMT"
},
- "chart" : {
- "type" : "column"
+ "xAxis" : {
+ "type" : "category"
+ },
+ "yAxis" : {
+ "title" : {
+ "text" : "Total Solutions"
+ }
},
"drilldown" : {
"series" : [
{
- "name" : "001",
"id" : "001",
"data" : [
[
@@ -23,9 +27,11 @@
"Blog",
11
]
- ]
+ ],
+ "name" : "001"
},
{
+ "id" : "002",
"name" : "002",
"data" : [
[
@@ -40,10 +46,10 @@
"Blog",
10
]
- ],
- "id" : "002"
+ ]
},
{
+ "id" : "003",
"data" : [
[
"Perl",
@@ -58,10 +64,11 @@
9
]
],
- "id" : "003",
"name" : "003"
},
{
+ "id" : "004",
+ "name" : "004",
"data" : [
[
"Perl",
@@ -75,11 +82,11 @@
"Blog",
10
]
- ],
- "id" : "004",
- "name" : "004"
+ ]
},
{
+ "id" : "005",
+ "name" : "005",
"data" : [
[
"Perl",
@@ -93,12 +100,9 @@
"Blog",
12
]
- ],
- "id" : "005",
- "name" : "005"
+ ]
},
{
- "id" : "006",
"data" : [
[
"Perl",
@@ -113,7 +117,8 @@
7
]
],
- "name" : "006"
+ "name" : "006",
+ "id" : "006"
},
{
"id" : "007",
@@ -134,7 +139,6 @@
"name" : "007"
},
{
- "id" : "008",
"data" : [
[
"Perl",
@@ -149,10 +153,11 @@
12
]
],
- "name" : "008"
+ "name" : "008",
+ "id" : "008"
},
{
- "name" : "009",
+ "id" : "009",
"data" : [
[
"Perl",
@@ -167,11 +172,10 @@
13
]
],
- "id" : "009"
+ "name" : "009"
},
{
"name" : "010",
- "id" : "010",
"data" : [
[
"Perl",
@@ -185,10 +189,10 @@
"Blog",
11
]
- ]
+ ],
+ "id" : "010"
},
{
- "name" : "011",
"id" : "011",
"data" : [
[
@@ -203,10 +207,10 @@
"Blog",
10
]
- ]
+ ],
+ "name" : "011"
},
{
- "id" : "012",
"data" : [
[
"Perl",
@@ -221,11 +225,12 @@
11
]
],
- "name" : "012"
+ "name" : "012",
+ "id" : "012"
},
{
- "name" : "013",
"id" : "013",
+ "name" : "013",
"data" : [
[
"Perl",
@@ -243,7 +248,6 @@
},
{
"name" : "014",
- "id" : "014",
"data" : [
[
"Perl",
@@ -257,7 +261,8 @@
"Blog",
15
]
- ]
+ ],
+ "id" : "014"
},
{
"data" : [
@@ -274,12 +279,10 @@
15
]
],
- "id" : "015",
- "name" : "015"
+ "name" : "015",
+ "id" : "015"
},
{
- "name" : "016",
- "id" : "016",
"data" : [
[
"Perl",
@@ -293,7 +296,9 @@
"Blog",
12
]
- ]
+ ],
+ "name" : "016",
+ "id" : "016"
},
{
"data" : [
@@ -310,10 +315,11 @@
12
]
],
- "id" : "017",
- "name" : "017"
+ "name" : "017",
+ "id" : "017"
},
{
+ "id" : "018",
"name" : "018",
"data" : [
[
@@ -328,11 +334,10 @@
"Blog",
14
]
- ],
- "id" : "018"
+ ]
},
{
- "id" : "019",
+ "name" : "019",
"data" : [
[
"Perl",
@@ -347,10 +352,10 @@
13
]
],
- "name" : "019"
+ "id" : "019"
},
{
- "name" : "020",
+ "id" : "020",
"data" : [
[
"Perl",
@@ -365,7 +370,7 @@
13
]
],
- "id" : "020"
+ "name" : "020"
},
{
"data" : [
@@ -382,11 +387,11 @@
10
]
],
- "id" : "021",
- "name" : "021"
+ "name" : "021",
+ "id" : "021"
},
{
- "id" : "022",
+ "name" : "022",
"data" : [
[
"Perl",
@@ -401,9 +406,10 @@
10
]
],
- "name" : "022"
+ "id" : "022"
},
{
+ "name" : "023",
"data" : [
[
"Perl",
@@ -418,10 +424,10 @@
12
]
],
- "id" : "023",
- "name" : "023"
+ "id" : "023"
},
{
+ "id" : "024",
"name" : "024",
"data" : [
[
@@ -436,11 +442,9 @@
"Blog",
11
]
- ],
- "id" : "024"
+ ]
},
{
- "id" : "025",
"data" : [
[
"Perl",
@@ -455,9 +459,11 @@
12
]
],
- "name" : "025"
+ "name" : "025",
+ "id" : "025"
},
{
+ "name" : "026",
"data" : [
[
"Perl",
@@ -472,8 +478,7 @@
10
]
],
- "id" : "026",
- "name" : "026"
+ "id" : "026"
},
{
"data" : [
@@ -490,12 +495,11 @@
9
]
],
- "id" : "027",
- "name" : "027"
+ "name" : "027",
+ "id" : "027"
},
{
"name" : "028",
- "id" : "028",
"data" : [
[
"Perl",
@@ -509,10 +513,12 @@
"Blog",
9
]
- ]
+ ],
+ "id" : "028"
},
{
"id" : "029",
+ "name" : "029",
"data" : [
[
"Perl",
@@ -526,11 +532,10 @@
"Blog",
12
]
- ],
- "name" : "029"
+ ]
},
{
- "name" : "030",
+ "id" : "030",
"data" : [
[
"Perl",
@@ -545,10 +550,9 @@
10
]
],
- "id" : "030"
+ "name" : "030"
},
{
- "name" : "031",
"data" : [
[
"Perl",
@@ -563,6 +567,7 @@
9
]
],
+ "name" : "031",
"id" : "031"
},
{
@@ -584,7 +589,7 @@
"id" : "032"
},
{
- "name" : "033",
+ "id" : "033",
"data" : [
[
"Perl",
@@ -599,9 +604,10 @@
10
]
],
- "id" : "033"
+ "name" : "033"
},
{
+ "name" : "034",
"data" : [
[
"Perl",
@@ -616,10 +622,10 @@
11
]
],
- "id" : "034",
- "name" : "034"
+ "id" : "034"
},
{
+ "id" : "035",
"name" : "035",
"data" : [
[
@@ -634,11 +640,9 @@
"Blog",
9
]
- ],
- "id" : "035"
+ ]
},
{
- "name" : "036",
"data" : [
[
"Perl",
@@ -653,6 +657,7 @@
11
]
],
+ "name" : "036",
"id" : "036"
},
{
@@ -674,8 +679,6 @@
"name" : "037"
},
{
- "name" : "038",
- "id" : "038",
"data" : [
[
"Perl",
@@ -689,7 +692,9 @@
"Blog",
12
]
- ]
+ ],
+ "name" : "038",
+ "id" : "038"
},
{
"name" : "039",
@@ -710,6 +715,7 @@
"id" : "039"
},
{
+ "id" : "040",
"data" : [
[
"Perl",
@@ -724,10 +730,10 @@
10
]
],
- "id" : "040",
"name" : "040"
},
{
+ "id" : "041",
"data" : [
[
"Perl",
@@ -742,10 +748,11 @@
8
]
],
- "id" : "041",
"name" : "041"
},
{
+ "id" : "042",
+ "name" : "042",
"data" : [
[
"Perl",
@@ -759,12 +766,9 @@
"Blog",
11
]
- ],
- "id" : "042",
- "name" : "042"
+ ]
},
{
- "name" : "043",
"id" : "043",
"data" : [
[
@@ -779,9 +783,11 @@
"Blog",
10
]
- ]
+ ],
+ "name" : "043"
},
{
+ "id" : "044",
"data" : [
[
"Perl",
@@ -796,10 +802,10 @@
10
]
],
- "id" : "044",
"name" : "044"
},
{
+ "id" : "045",
"name" : "045",
"data" : [
[
@@ -814,12 +820,9 @@
"Blog",
11
]
- ],
- "id" : "045"
+ ]
},
{
- "name" : "046",
- "id" : "046",
"data" : [
[
"Perl",
@@ -833,11 +836,11 @@
"Blog",
10
]
- ]
+ ],
+ "name" : "046",
+ "id" : "046"
},
{
- "name" : "047",
- "id" : "047",
"data" : [
[
"Perl",
@@ -851,10 +854,11 @@
"Blog",
10
]
- ]
+ ],
+ "name" : "047",
+ "id" : "047"
},
{
- "name" : "048",
"data" : [
[
"Perl",
@@ -869,11 +873,11 @@
12
]
],
+ "name" : "048",
"id" : "048"
},
{
"name" : "049",
- "id" : "049",
"data" : [
[
"Perl",
@@ -887,10 +891,10 @@
"Blog",
12
]
- ]
+ ],
+ "id" : "049"
},
{
- "name" : "050",
"data" : [
[
"Perl",
@@ -905,9 +909,11 @@
12
]
],
+ "name" : "050",
"id" : "050"
},
{
+ "id" : "051",
"data" : [
[
"Perl",
@@ -922,11 +928,9 @@
10
]
],
- "id" : "051",
"name" : "051"
},
{
- "name" : "052",
"id" : "052",
"data" : [
[
@@ -941,9 +945,11 @@
"Blog",
13
]
- ]
+ ],
+ "name" : "052"
},
{
+ "id" : "053",
"name" : "053",
"data" : [
[
@@ -958,19 +964,18 @@
"Blog",
14
]
- ],
- "id" : "053"
+ ]
},
{
"id" : "054",
"data" : [
[
"Perl",
- 10
+ 11
],
[
"Raku",
- 12
+ 13
],
[
"Blog",
@@ -981,13 +986,28 @@
}
]
},
+ "tooltip" : {
+ "headerFormat" : "<span style=\"font-size:11px\"></span>",
+ "followPointer" : "true",
+ "pointFormat" : "<span style=\"color:{point.color}\">Challenge {point.name}</span>: <b>{point.y:f}</b><br/>"
+ },
+ "title" : {
+ "text" : "Perl Weekly Challenge Language"
+ },
"legend" : {
"enabled" : "false"
},
+ "plotOptions" : {
+ "series" : {
+ "dataLabels" : {
+ "format" : "{point.y}",
+ "enabled" : 1
+ },
+ "borderWidth" : 0
+ }
+ },
"series" : [
{
- "name" : "Perl Weekly Challenge Languages",
- "colorByPoint" : "true",
"data" : [
{
"y" : 140,
@@ -995,18 +1015,18 @@
"name" : "#001"
},
{
- "y" : 109,
+ "name" : "#002",
"drilldown" : "002",
- "name" : "#002"
+ "y" : 109
},
{
- "drilldown" : "003",
+ "y" : 71,
"name" : "#003",
- "y" : 71
+ "drilldown" : "003"
},
{
- "name" : "#004",
"drilldown" : "004",
+ "name" : "#004",
"y" : 91
},
{
@@ -1015,8 +1035,8 @@
"drilldown" : "005"
},
{
- "drilldown" : "006",
"name" : "#006",
+ "drilldown" : "006",
"y" : 52
},
{
@@ -1025,33 +1045,33 @@
"name" : "#007"
},
{
- "y" : 70,
+ "drilldown" : "008",
"name" : "#008",
- "drilldown" : "008"
+ "y" : 70
},
{
- "drilldown" : "009",
+ "y" : 68,
"name" : "#009",
- "y" : 68
+ "drilldown" : "009"
},
{
- "name" : "#010",
+ "y" : 60,
"drilldown" : "010",
- "y" : 60
+ "name" : "#010"
},
{
"y" : 79,
- "name" : "#011",
- "drilldown" : "011"
+ "drilldown" : "011",
+ "name" : "#011"
},
{
- "name" : "#012",
+ "y" : 83,
"drilldown" : "012",
- "y" : 83
+ "name" : "#012"
},
{
- "drilldown" : "013",
"name" : "#013",
+ "drilldown" : "013",
"y" : 76
},
{
@@ -1060,24 +1080,24 @@
"drilldown" : "014"
},
{
- "name" : "#015",
"drilldown" : "015",
+ "name" : "#015",