diff options
| author | Mohammad Sajid Anwar <mohammad.anwar@yahoo.com> | 2024-09-01 15:25:35 +0100 |
|---|---|---|
| committer | Mohammad Sajid Anwar <mohammad.anwar@yahoo.com> | 2024-09-01 15:25:35 +0100 |
| commit | 45b4cdaf9b0d81b34bc09cd9d4e486a82562ebbe (patch) | |
| tree | f238a27f36bd21fad482cae78b1ca26b00355903 | |
| parent | 145c91e15f024b6c9644cee77986dcaded36d2a6 (diff) | |
| download | perlweeklychallenge-club-45b4cdaf9b0d81b34bc09cd9d4e486a82562ebbe.tar.gz perlweeklychallenge-club-45b4cdaf9b0d81b34bc09cd9d4e486a82562ebbe.tar.bz2 perlweeklychallenge-club-45b4cdaf9b0d81b34bc09cd9d4e486a82562ebbe.zip | |
- Added solutions by Wanderdoc.
24 files changed, 2784 insertions, 2672 deletions
diff --git a/challenge-284/wanderdoc/perl/ch-1.pl b/challenge-284/wanderdoc/perl/ch-1.pl new file mode 100755 index 0000000000..ad8595626c --- /dev/null +++ b/challenge-284/wanderdoc/perl/ch-1.pl @@ -0,0 +1,45 @@ +#!perl
+use strict;
+use warnings FATAL => qw(all);
+
+=prompt
+You are given an array of integers, @ints.
+
+Write a script to find the lucky integer if found otherwise return -1. If there are more than one then return the largest.
+
+ A lucky integer is an integer that has a frequency in the array equal to its value.
+
+Example 1
+
+Input: @ints = (2, 2, 3, 4)
+Output: 2
+
+Example 2
+
+Input: @ints = (1, 2, 2, 3, 3, 3)
+Output: 3
+
+Example 3
+
+Input: @ints = (1, 1, 1, 3)
+Output: -1
+
+
+=cut
+
+use Test2::V0;
+
+is(find_lucky_int(2, 2, 3, 4), 2, 'Example 1');
+is(find_lucky_int(1, 2, 2, 3, 3, 3), 3, 'Example 2');
+is(find_lucky_int(1, 1, 1, 3), -1, 'Example 3');
+done_testing();
+
+
+sub find_lucky_int
+{
+ my @arr = @_;
+ my %freq;
+ $freq{$_}++ for @arr;
+ my @output = sort { $b <=> $a } grep { $freq{$_} == $_ } @arr;
+ return $output[0] // -1;
+}
\ No newline at end of file diff --git a/challenge-284/wanderdoc/perl/ch-2.pl b/challenge-284/wanderdoc/perl/ch-2.pl new file mode 100755 index 0000000000..2e331d5da4 --- /dev/null +++ b/challenge-284/wanderdoc/perl/ch-2.pl @@ -0,0 +1,52 @@ +#!perl
+use strict;
+use warnings FATAL => qw(all);
+
+=prompt
+You are given two list of integers, @list1 and @list2. The elements in the @list2 are distinct and also in the @list1.
+
+Write a script to sort the elements in the @list1 such that the relative order of items in @list1 is same as in the @list2. Elements that is missing in @list2 should be placed at the end of @list1 in ascending order.
+Example 1
+
+Input: @list1 = (2, 3, 9, 3, 1, 4, 6, 7, 2, 8, 5)
+ @list2 = (2, 1, 4, 3, 5, 6)
+Ouput: (2, 2, 1, 4, 3, 3, 5, 6, 7, 8, 9)
+
+Example 2
+
+Input: @list1 = (3, 3, 4, 6, 2, 4, 2, 1, 3)
+ @list2 = (1, 3, 2)
+Ouput: (1, 3, 3, 3, 2, 2, 4, 4, 6)
+
+Example 3
+
+Input: @list1 = (3, 0, 5, 0, 2, 1, 4, 1, 1)
+ @list2 = (1, 0, 3, 2)
+Ouput: (1, 1, 1, 0, 0, 3, 2, 4, 5)
+=cut
+
+use Array::Utils qw(:all);
+use Test2::V0;
+
+
+is(relative_sort([2, 3, 9, 3, 1, 4, 6, 7, 2, 8, 5], [2, 1, 4, 3, 5, 6]),
+ [2, 2, 1, 4, 3, 3, 5, 6, 7, 8, 9], 'Example 1');
+is(relative_sort([3, 3, 4, 6, 2, 4, 2, 1, 3], [1, 3, 2]),
+ [1, 3, 3, 3, 2, 2, 4, 4, 6], 'Example 2');
+is(relative_sort([3, 0, 5, 0, 2, 1, 4, 1, 1], [1, 0, 3, 2]),
+ [1, 1, 1, 0, 0, 3, 2, 4, 5], 'Example 3');
+done_testing();
+
+
+sub relative_sort
+{
+ my ($aref_1, $aref_2) = @_;
+ my @a_minus_b = sort { $a <=> $b } array_minus(@$aref_1, @$aref_2);
+ my %positions = map { $aref_2->[$_], $_ } 0 .. $#$aref_2;
+ my $counter = $#$aref_2 + 1;
+ for my $elm (@a_minus_b)
+ {
+ $positions{$elm} = $counter++;
+ }
+ return [sort { $positions{$a} <=> $positions{$b} } @$aref_1];
+}
\ No newline at end of file diff --git a/stats/pwc-current.json b/stats/pwc-current.json index eb41eb17ce..10d511d4f8 100644 --- a/stats/pwc-current.json +++ b/stats/pwc-current.json @@ -2,31 +2,30 @@ "title" : { "text" : "The Weekly Challenge - 284" }, - "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" + } + }, + "legend" : { + "enabled" : 0 }, "plotOptions" : { "series" : { + "borderWidth" : 0, "dataLabels" : { - "enabled" : 1, - "format" : "{point.y}" - }, - "borderWidth" : 0 + "format" : "{point.y}", + "enabled" : 1 + } } }, - "chart" : { - "type" : "column" - }, "series" : [ { - "name" : "The Weekly Challenge - 284", "data" : [ { - "drilldown" : "Ali Moradi", + "name" : "Ali Moradi", "y" : 3, - "name" : "Ali Moradi" + "drilldown" : "Ali Moradi" }, { "drilldown" : "Arne Sommer", @@ -34,14 +33,14 @@ "name" : "Arne Sommer" }, { - "name" : "Athanasius", + "drilldown" : "Athanasius", "y" : 4, - "drilldown" : "Athanasius" + "name" : "Athanasius" }, { "drilldown" : "Cheok-Yin Fung", - "name" : "Cheok-Yin Fung", - "y" : 2 + "y" : 2, + "name" : "Cheok-Yin Fung" }, { "name" : "Dave Jacoby", @@ -50,48 +49,48 @@ }, { "name" : "David Ferrone", - "y" : 2, - "drilldown" : "David Ferrone" + "drilldown" : "David Ferrone", + "y" : 2 }, { + "y" : 2, "drilldown" : "E. Choroba", - "name" : "E. Choroba", - "y" : 2 + "name" : "E. Choroba" }, { - "drilldown" : "Feng Chang", "y" : 2, + "drilldown" : "Feng Chang", "name" : "Feng Chang" }, { + "name" : "Jan Krnavek", "drilldown" : "Jan Krnavek", - "y" : 2, - "name" : "Jan Krnavek" + "y" : 2 }, { "drilldown" : "Jorg Sommrey", - "name" : "Jorg Sommrey", - "y" : 3 + "y" : 3, + "name" : "Jorg Sommrey" }, { - "name" : "Kjetil Skotheim", + "drilldown" : "Kjetil Skotheim", "y" : 2, - "drilldown" : "Kjetil Skotheim" + "name" : "Kjetil Skotheim" }, { + "name" : "Laurent Rosenfeld", "drilldown" : "Laurent Rosenfeld", - "y" : 6, - "name" : "Laurent Rosenfeld" + "y" : 6 }, { - "drilldown" : "Mariano Ortega", "name" : "Mariano Ortega", - "y" : 2 + "y" : 2, + "drilldown" : "Mariano Ortega" }, { "drilldown" : "Mariano Spadaccini", - "name" : "Mariano Spadaccini", - "y" : 2 + "y" : 2, + "name" : "Mariano Spadaccini" }, { "drilldown" : "Mark Anderson", @@ -99,14 +98,14 @@ "name" : "Mark Anderson" }, { - "drilldown" : "Matthew Neleigh", + "name" : "Matthew Neleigh", "y" : 2, - "name" : "Matthew Neleigh" + "drilldown" : "Matthew Neleigh" }, { "name" : "Niels van Dijke", - "y" : 2, - "drilldown" : "Niels van Dijke" + "drilldown" : "Niels van Dijke", + "y" : 2 }, { "name" : "Packy Anderson", @@ -114,19 +113,19 @@ "drilldown" : "Packy Anderson" }, { - "drilldown" : "Paulo Custodio", + "name" : "Paulo Custodio", "y" : 2, - "name" : "Paulo Custodio" + "drilldown" : "Paulo Custodio" }, { - "y" : 3, "name" : "Peter Campbell Smith", + "y" : 3, "drilldown" : "Peter Campbell Smith" }, { - "drilldown" : "Peter Meszaros", + "name" : "Peter Meszaros", "y" : 2, - "name" : "Peter Meszaros" + "drilldown" : "Peter Meszaros" }, { "name" : "Reinier Maliepaard", @@ -134,14 +133,14 @@ "drilldown" : "Reinier Maliepaard" }, { - "drilldown" : "Robbie Hatley", + "name" : "Robbie Hatley", "y" : 3, - "name" : "Robbie Hatley" + "drilldown" : "Robbie Hatley" }, { - "name" : "Robert Ransbottom", + "drilldown" : "Robert Ransbottom", "y" : 2, - "drilldown" : "Robert Ransbottom" + "name" : "Robert Ransbottom" }, { "drilldown" : "Roger Bell_West", @@ -149,19 +148,19 @@ "name" : "Roger Bell_West" }, { - "drilldown" : "Simon Green", + "name" : "Simon Green", "y" : 3, - "name" : "Simon Green" + "drilldown" : "Simon Green" }, { - "y" : 4, "name" : "Thomas Kohler", - "drilldown" : "Thomas Kohler" + "drilldown" : "Thomas Kohler", + "y" : 4 }, { + "y" : 2, "drilldown" : "Tim King", - "name" : "Tim King", - "y" : 2 + "name" : "Tim King" }, { "drilldown" : "Torgny Lyon", @@ -170,34 +169,42 @@ }, { "name" : "Ulrich Rieke", - "y" : 4, - "drilldown" : "Ulrich Rieke" + "drilldown" : "Ulrich Rieke", + "y" : 4 }, { + "name" : "W. Luis Mochan", "drilldown" : "W. Luis Mochan", - "y" : 3, - "name" : "W. Luis Mochan" + "y" : 3 + }, + { + "y" : 2, + "drilldown" : "Wanderdoc", + "name" : "Wanderdoc" } ], - "colorByPoint" : 1 + "colorByPoint" : 1, + "name" : "The Weekly Challenge - 284" } ], "xAxis" : { "type" : "category" }, - "legend" : { - "enabled" : 0 + "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" - } + "chart" : { + "type" : "column" + }, + "subtitle" : { + "text" : "[Champions: 32] Last updated at 2024-09-01 14:25:21 GMT" }, "drilldown" : { "series" : [ { "name" : "Ali Moradi", - "id" : "Ali Moradi", "data" : [ [ "Perl", @@ -207,9 +214,11 @@ "Blog", 1 ] - ] + ], + "id" : "Ali Moradi" }, { + "id" : "Arne Sommer", "data" : [ [ "Raku", @@ -220,7 +229,6 @@ 1 ] ], - "id" : "Arne Sommer", "name" : "Arne Sommer" }, { @@ -238,24 +246,24 @@ ] }, { + "name" : "Cheok-Yin Fung", "data" : [ [ "Perl", 2 ] ], - "name" : "Cheok-Yin Fung", "id" : "Cheok-Yin Fung" }, { + "name" : "Dave Jacoby", "data" : [ [ "Perl", 2 ] ], - "id" : "Dave Jacoby", - "name" : "Dave Jacoby" + "id" : "Dave Jacoby" }, { "data" : [ @@ -269,35 +277,37 @@ }, { "name" : "E. Choroba", - "id" : "E. Choroba", "data" : [ [ "Perl", 2 ] - ] + ], + "id" : "E. Choroba" }, { + "name" : "Feng Chang", "data" : [ [ "Raku", 2 ] ], - "name" : "Feng Chang", "id" : "Feng Chang" }, { - "id" : "Jan Krnavek", - "name" : "Jan Krnavek", "data" : [ [ "Raku", 2 ] - ] + ], + "name" : "Jan Krnavek", + "id" : "Jan Krnavek" }, { + "id" : "Jorg Sommrey", + "name" : "Jorg Sommrey", "data" : [ [ "Perl", @@ -307,23 +317,21 @@ "Blog", 1 ] - ], - "id" : "Jorg Sommrey", - "name" : "Jorg Sommrey" + ] }, { + "name" : "Kjetil Skotheim", "data" : [ [ "Perl", 2 ] ], - "id" : "Kjetil Skotheim", - "name" : "Kjetil Skotheim" + "id" : "Kjetil Skotheim" }, { - "name" : "Laurent Rosenfeld", "id" : "Laurent Rosenfeld", + "name" : "Laurent Rosenfeld", "data" : [ [ "Perl", @@ -341,55 +349,56 @@ }, { "id" : "Mariano Ortega", - "name" : "Mariano Ortega", "data" : [ [ "Perl", 2 ] - ] + ], + "name" : "Mariano Ortega" }, { - "id" : "Mariano Spadaccini", - "name" : "Mariano Spadaccini", "data" : [ [ "Perl", 2 ] - ] + ], + "name" : "Mariano Spadaccini", + "id" : "Mariano Spadaccini" }, { - "id" : "Mark Anderson", - "name" : "Mark Anderson", "data" : [ [ "Raku", 2 ] - ] + ], + "name" : "Mark Anderson", + "id" : "Mark Anderson" }, { "name" : "Matthew Neleigh", - "id" : "Matthew Neleigh", "data" : [ [ "Perl", 2 ] - ] + ], + "id" : "Matthew Neleigh" }, { + "name" : "Niels van Dijke", "data" : [ [ "Perl", 2 ] ], - "id" : "Niels van Dijke", - "name" : "Niels van Dijke" + "id" : "Niels van Dijke" }, { + "id" : "Packy Anderson", "data" : [ [ "Perl", @@ -404,18 +413,17 @@ 1 ] ], - "id" : "Packy Anderson", "name" : "Packy Anderson" }, { - "id" : "Paulo Custodio", "name" : "Paulo Custodio", "data" : [ [ "Perl", 2 ] - ] + ], + "id" : "Paulo Custodio" }, { "id" : "Peter Campbell Smith", @@ -443,7 +451,6 @@ }, { "name" : "Reinier Maliepaard", - "id" : "Reinier Maliepaard", "data" : [ [ "Perl", @@ -453,11 +460,10 @@ "Blog", 1 ] - ] + ], + "id" : "Reinier Maliepaard" }, { - "name" : "Robbie Hatley", - "id" : "Robbie Hatley", "data" : [ [ "Perl", @@ -467,7 +473,9 @@ "Blog", 1 ] - ] + ], + "name" : "Robbie Hatley", + "id" : "Robbie Hatley" }, { "id" : "Robert Ransbottom", @@ -494,12 +502,11 @@ 1 ] ], - "id" : "Roger Bell_West", - "name" : "Roger Bell_West" + "name" : "Roger Bell_West", + "id" : "Roger Bell_West" }, { "name" : "Simon Green", - "id" : "Simon Green", "data" : [ [ "Perl", @@ -509,9 +516,12 @@ "Blog", 1 ] - ] + ], + "id" : "Simon Green" }, { + "id" : "Thomas Kohler", + "name" : "Thomas Kohler", "data" : [ [ "Perl", @@ -521,33 +531,29 @@ "Blog", 2 ] - ], - "name" : "Thomas Kohler", - "id" : "Thomas Kohler" + ] }, { "name" : "Tim King", - "id" : "Tim King", "data" : [ [ "Perl", 2 ] - ] + ], + "id" : "Tim King" }, { + "id" : "Torgny Lyon", + "name" : "Torgny Lyon", "data" : [ [ "Perl", 2 ] - ], - "name" : "Torgny Lyon", - "id" : "Torgny Lyon" + ] }, { - "id" : "Ulrich Rieke", - "name" : "Ulrich Rieke", "data" : [ [ "Perl", @@ -557,7 +563,9 @@ "Raku", 2 ] - ] + ], + "name" : "Ulrich Rieke", + "id" : "Ulrich Rieke" }, { "id" : "W. Luis Mochan", @@ -572,10 +580,17 @@ 1 ] ] + }, + { + "data" : [ + [ + "Perl", + 2 + ] + ], + "name" : "Wanderdoc", + "id" : "Wanderdoc" } ] - }, - "subtitle" : { - "text" : "[Champions: 31] Last updated at 2024-09-01 09:07:00 GMT" } } diff --git a/stats/pwc-language-breakdown-2019.json b/stats/pwc-language-breakdown-2019.json index a15abc00f7..4757795e04 100644 --- a/stats/pwc-language-breakdown-2019.json +++ b/stats/pwc-language-breakdown-2019.json @@ -1,13 +1,251 @@ { + "title" : { + "text" : "The Weekly Challenge Language" + }, "yAxis" : { "title" : { "text" : "Total Solutions" } }, + "plotOptions" : { + "series" : { + "dataLabels" : { + "format" : "{point.y}", + "enabled" : 1 + }, + "borderWidth" : 0 + } + }, + "legend" : { + "enabled" : "false" + }, + "chart" : { + "type" : "column" + }, + "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/>" + }, + "series" : [ + { + "data" : [ + { + "name" : "041", + "drilldown" : "041", + "y" : 80 + }, + { + "name" : "040", + "drilldown" : "040", + "y" : 77 + }, + { + "y" : 68, + "drilldown" : "039", + "name" : "039" + }, + { + "name" : "038", + "y" : 74, + "drilldown" : "038" + }, + { + "y" : 70, + "drilldown" : "037", + "name" : "037" + }, + { + "name" : "036", + "drilldown" : "036", + "y" : 70 + }, + { + "y" : 68, + "drilldown" : "035", + "name" : "035" + }, + { + "drilldown" : "034", + "y" : 70, + "name" : "034" + }, + { + "name" : "033", + "drilldown" : "033", + "y" : 113 + }, + { + "name" : "032", + "drilldown" : "032", + "y" : 97 + }, + { + "name" : "031", + "y" : 93, + "drilldown" : "031" + }, + { + "y" : 120, + "drilldown" : "030", + "name" : "030" + }, + { + "y" : 83, + "drilldown" : "029", + "name" : "029" + }, + { + "name" : "028", + "drilldown" : "028", + "y" : 82 + }, + { + "y" : 64, + "drilldown" : "027", + "name" : "027" + }, + { + "name" : "026", + "y" : 75, + "drilldown" : "026" + }, + { + "name" : "025", + "drilldown" : "025", + "y" : 62 + }, + { + "y" : 77, + "drilldown" : "024", + "name" : "024" + }, + { + "name" : "023", + "drilldown" : "023", + "y" : 88 + }, + { + "name" : "022", + "y" : 72, + "drilldown" : "022" + }, + { + "name" : "021", + "drilldown" : "021", + "y" : 72 + }, + { + "name" : "020", + "drilldown" : "020", + "y" : 100 + }, + { + "y" : 101, + "drilldown" : "019", + "name" : "019" + }, + { + "name" : "018", + "y" : 82, + "drilldown" : "018" + }, + { + "name" : "017", + "y" : 83, + "drilldown" : "017" + }, + { + "drilldown" : "016", + "y" : 75, + "name" : "016" + }, + { + "name" : "015", + "drilldown" : "015", + "y" : 95 + }, + { + "drilldown" : "014", + "y" : 98, + "name" : "014" + }, + { + "y" : 85, + "drilldown" : "013", + "name" : "013" + }, + { + "name" : "012", + "y" : 90, + "drilldown" : "012" + }, + { + "drilldown" : "011", + "y" : 86, + "name" : "011" + }, + { + "name" : "010", + "drilldown" : "010", + "y" : 69 + }, + { + "name" : "009", + "drilldown" : "009", + "y" : 79 + }, + { + "drilldown" : "008", + "y" : 82, + "name" : "008" + }, + { + "name" : "007", + "y" : 71, + "drilldown" : "007" + }, + { + "drilldown" : "006", + "y" : 63, + "name" : "006" + }, + { + "name" : "005", + "drilldown" : "005", + "y" : 82 + }, + { + "name" : "004", + "y" : 106, + "drilldown" : "004" + }, + { + "drilldown" : "003", + "y" : 91, + "name" : "003" + }, + { + "drilldown" : "002", + "y" : 133, + "name" : "002" + }, + { + "drilldown" : "001", + "y" : 165, + "name" : "001" + } + ], + "name" : "The Weekly Challenge Languages", + "colorByPoint" : "true" + } + ], + "xAxis" : { + "type" : "category" + }, "drilldown" : { "series" : [ { - "name" : "041", "id" : "041", "data" : [ [ |