diff options
| author | Mohammad Sajid Anwar <mohammad.anwar@yahoo.com> | 2024-08-27 22:01:28 +0100 |
|---|---|---|
| committer | Mohammad Sajid Anwar <mohammad.anwar@yahoo.com> | 2024-08-27 22:01:28 +0100 |
| commit | c770821c3e880416ca0b690a215f2a55237eb948 (patch) | |
| tree | 536c38d2cd6c552917b0a235e36d93863b13c52f | |
| parent | 9cc77d8fb45f6113343904f24ae2bb0d555c7d7e (diff) | |
| download | perlweeklychallenge-club-c770821c3e880416ca0b690a215f2a55237eb948.tar.gz perlweeklychallenge-club-c770821c3e880416ca0b690a215f2a55237eb948.tar.bz2 perlweeklychallenge-club-c770821c3e880416ca0b690a215f2a55237eb948.zip | |
- Added solutions by Matthew Neleigh.
- Added solutions by Dave Jacoby.
- Added solutions by Laurent Rosenfeld.
25 files changed, 2848 insertions, 2770 deletions
diff --git a/challenge-284/laurent-rosenfeld/blog1.txt b/challenge-284/laurent-rosenfeld/blog1.txt new file mode 100644 index 0000000000..608d71d8c5 --- /dev/null +++ b/challenge-284/laurent-rosenfeld/blog1.txt @@ -0,0 +1 @@ +https://blogs.perl.org/users/laurent_r/2024/08/perl-weekly-challenge-284-relative-sort.html diff --git a/challenge-284/laurent-rosenfeld/perl/ch-2.pl b/challenge-284/laurent-rosenfeld/perl/ch-2.pl new file mode 100644 index 0000000000..4ef7ecce09 --- /dev/null +++ b/challenge-284/laurent-rosenfeld/perl/ch-2.pl @@ -0,0 +1,27 @@ +use strict; +use warnings; +use feature 'say'; + +sub relative_sort { + my ($in1, $in2) = @_; + my @result; + my %unsorted; + $unsorted{$_}++ for @$in1; + for my $i (@$in2) { + if (exists $unsorted{$i}) { + push @result, ($i) x $unsorted{$i}; + $unsorted{$i} = 0; + } + } + push @result, sort map { ($_) x $unsorted{$_}} + grep { $unsorted{$_} > 0 } keys %unsorted; + return "@result"; +} + +my @tests = ( [[2, 3, 9, 3, 1, 4, 6, 7, 2, 8, 5], [2, 1, 4, 3, 5, 6]], + [[3, 3, 4, 6, 2, 4, 2, 1, 3], [1, 3, 2]], + [[3, 0, 5, 0, 2, 1, 4, 1, 1], [1, 0, 3, 2]] ); +for my $test (@tests) { + printf "%-15s => ", "@{$test->[1]}"; + say relative_sort @$test[0], @$test[1]; +} diff --git a/challenge-284/laurent-rosenfeld/raku/ch-2.raku b/challenge-284/laurent-rosenfeld/raku/ch-2.raku new file mode 100644 index 0000000000..013b724e4f --- /dev/null +++ b/challenge-284/laurent-rosenfeld/raku/ch-2.raku @@ -0,0 +1,20 @@ +sub relative-sort (@in1, @in2) { + my @result; + my $to-be-sorted = @in1.BagHash; + for @in2 -> $i { + if $to-be-sorted{$i}:exists { + append @result, $i xx $to-be-sorted{$i}; + $to-be-sorted{$i} = 0; + } + } + append @result, (map { $_ xx $to-be-sorted{$_}}, $to-be-sorted.keys).sort; + return "@result[]"; +} + +my @tests = ((2, 3, 9, 3, 1, 4, 6, 7, 2, 8, 5), (2, 1, 4, 3, 5, 6)), + ((3, 3, 4, 6, 2, 4, 2, 1, 3), (1, 3, 2)), + ((3, 0, 5, 0, 2, 1, 4, 1, 1), (1, 0, 3, 2)); +for @tests -> @test { + printf "%-15s => ", "@test[1]"; + say relative-sort @test[0], @test[1]; +} diff --git a/stats/pwc-current.json b/stats/pwc-current.json index a2a3dc3660..6b71d1d218 100644 --- a/stats/pwc-current.json +++ b/stats/pwc-current.json @@ -1,22 +1,168 @@ { + "series" : [ + { + "colorByPoint" : 1, + "data" : [ + { + "y" : 2, + "drilldown" : "Cheok-Yin Fung", + "name" : "Cheok-Yin Fung" + }, + { + "drilldown" : "Dave Jacoby", + "y" : 2, + "name" : "Dave Jacoby" + }, + { + "y" : 2, + "drilldown" : "David Ferrone", + "name" : "David Ferrone" + }, + { + "drilldown" : "Feng Chang", + "y" : 2, + "name" : "Feng Chang" + }, + { + "name" : "Kjetil Skotheim", + "y" : 2, + "drilldown" : "Kjetil Skotheim" + }, + { + "name" : "Laurent Rosenfeld", + "drilldown" : "Laurent Rosenfeld", + "y" : 6 + }, + { + "drilldown" : "Mariano Spadaccini", + "y" : 2, + "name" : "Mariano Spadaccini" + }, + { + "drilldown" : "Mark Anderson", + "y" : 2, + "name" : "Mark Anderson" + }, + { + "name" : "Matthew Neleigh", + "y" : 2, + "drilldown" : "Matthew Neleigh" + }, + { + "name" : "Niels van Dijke", + "y" : 2, + "drilldown" : "Niels van Dijke" + }, + { + "drilldown" : "Packy Anderson", + "y" : 5, + "name" : "Packy Anderson" + }, + { + "name" : "Paulo Custodio", + "y" : 2, + "drilldown" : "Paulo Custodio" + }, + { + "y" : 3, + "drilldown" : "Peter Campbell Smith", + "name" : "Peter Campbell Smith" + }, + { + "drilldown" : "Peter Meszaros", + "y" : 2, + "name" : "Peter Meszaros" + }, + { + "name" : "Robbie Hatley", + "y" : 3, + "drilldown" : "Robbie Hatley" + }, + { + "y" : 4, + "drilldown" : "Roger Bell_West", + "name" : "Roger Bell_West" + }, + { + "name" : "Thomas Kohler", + "drilldown" : "Thomas Kohler", + "y" : 4 + }, + { + "drilldown" : "Torgny Lyon", + "y" : 2, + "name" : "Torgny Lyon" + }, + { + "drilldown" : "Ulrich Rieke", + "y" : 4, + "name" : "Ulrich Rieke" + }, + { + "name" : "W. Luis Mochan", + "drilldown" : "W. Luis Mochan", + "y" : 3 + } + ], + "name" : "The Weekly Challenge - 284" + } + ], + "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" }, + "xAxis" : { + "type" : "category" + }, + "plotOptions" : { + "series" : { + "borderWidth" : 0, + "dataLabels" : { + "format" : "{point.y}", + "enabled" : 1 + } + } + }, + "title" : { + "text" : "The Weekly Challenge - 284" + }, + "yAxis" : { + "title" : { + "text" : "Total Solutions" + } + }, + "subtitle" : { + "text" : "[Champions: 20] Last updated at 2024-08-27 21:01:16 GMT" + }, "drilldown" : { "series" : [ { - "id" : "Cheok-Yin Fung", + "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" : "David Ferrone", "id" : "David Ferrone", + "name" : "David Ferrone", "data" : [ [ "Perl", @@ -25,62 +171,62 @@ ] }, { + "id" : "Feng Chang", "data" : [ [ "Raku", 2 ] ], - "id" : "Feng Chang", "name" : "Feng Chang" }, { + "id" : "Kjetil Skotheim", "name" : "Kjetil Skotheim", "data" : [ [ "Perl", 2 ] - ], - "id" : "Kjetil Skotheim" + ] }, { - "id" : "Laurent Rosenfeld", + "name" : "Laurent Rosenfeld", "data" : [ [ "Perl", - 1 + 2 ], [ "Raku", - 1 + 2 ], [ "Blog", - 1 + 2 ] ], - "name" : "Laurent Rosenfeld" + "id" : "Laurent Rosenfeld" }, { - "name" : "Mariano Spadaccini", + "id" : "Mariano Spadaccini", "data" : [ [ "Perl", 2 ] ], - "id" : "Mariano Spadaccini" + "name" : "Mariano Spadaccini" }, { - "name" : "Mark Anderson", "id" : "Mark Anderson", "data" : [ [ "Raku", 2 ] - ] + ], + "name" : "Mark Anderson" }, { "data" : [ @@ -89,12 +235,22 @@ 2 ] ], + "name" : "Matthew Neleigh", + "id" : "Matthew Neleigh" + }, + { "id" : "Niels van Dijke", - "name" : "Niels van Dijke" + "name" : "Niels van Dijke", + "data" : [ + [ + "Perl", + 2 + ] + ] }, { - "name" : "Packy Anderson", "id" : "Packy Anderson", + "name" : "Packy Anderson", "data" : [ [ "Perl", @@ -111,8 +267,8 @@ ] }, { - "name" : "Paulo Custodio", "id" : "Paulo Custodio", + "name" : "Paulo Custodio", "data" : [ [ "Perl", @@ -121,6 +277,7 @@ ] }, { + "id" : "Peter Campbell Smith", "data" : [ [ "Perl", @@ -131,22 +288,20 @@ 1 ] ], - "id" : "Peter Campbell Smith", "name" : "Peter Campbell Smith" }, { - "name" : "Peter Meszaros", "data" : [ [ "Perl", 2 ] ], + "name" : "Peter Meszaros", "id" : "Peter Meszaros" }, { "name" : "Robbie Hatley", - "id" : "Robbie Hatley", "data" : [ [ "Perl", @@ -156,7 +311,8 @@ "Blog", 1 ] - ] + ], + "id" : "Robbie Hatley" }, { "data" : [ @@ -169,12 +325,12 @@ 2 ] ], - "id" : "Roger Bell_West", - "name" : "Roger Bell_West" + "name" : "Roger Bell_West", + "id" : "Roger Bell_West" }, { - "name" : "Thomas Kohler", "id" : "Thomas Kohler", + "name" : "Thomas Kohler", "data" : [ [ "Perl", @@ -211,7 +367,6 @@ "name" : "Ulrich Rieke" }, { - "name" : "W. Luis Mochan", "data" : [ [ "Perl", @@ -222,136 +377,11 @@ 1 ] ], + "name" : "W. Luis Mochan", "id" : "W. Luis Mochan" } ] }, - "yAxis" : { - "title" : { - "text" : "Total Solutions" - } - }, - "subtitle" : { - "text" : "[Champions: 18] Last updated at 2024-08-27 11:43:58 GMT" - }, - "title" : { - "text" : "The Weekly Challenge - 284" - }, - "xAxis" : { - "type" : "category" - }, - "series" : [ - { - "name" : "The Weekly Challenge - 284", - "colorByPoint" : 1, - "data" : [ - { - "name" : "Cheok-Yin Fung", - "drilldown" : "Cheok-Yin Fung", - "y" : 2 - }, - { - "drilldown" : "David Ferrone", - "y" : 2, - "name" : "David Ferrone" - }, - { - "name" : "Feng Chang", - "drilldown" : "Feng Chang", - "y" : 2 - }, - { - "drilldown" : "Kjetil Skotheim", - "y" : 2, - "name" : "Kjetil Skotheim" - }, - { - "y" : 3, - "drilldown" : "Laurent Rosenfeld", - "name" : "Laurent Rosenfeld" - }, - { - "name" : "Mariano Spadaccini", - "y" : 2, - "drilldown" : "Mariano Spadaccini" - }, - { - "drilldown" : "Mark Anderson", - "y" : 2, - "name" : "Mark Anderson" - }, - { - "drilldown" : "Niels van Dijke", - "y" : 2, - "name" : "Niels van Dijke" - }, - { - "name" : "Packy Anderson", - "y" : 5, - "drilldown" : "Packy Anderson" - }, - { - "drilldown" : "Paulo Custodio", - "y" : 2, - "name" : "Paulo Custodio" - }, - { - "name" : "Peter Campbell Smith", - "y" : 3, - "drilldown" : "Peter Campbell Smith" - }, - { - "y" : 2, - "drilldown" : "Peter Meszaros", - "name" : "Peter Meszaros" - }, - { - "name" : "Robbie Hatley", - "drilldown" : "Robbie Hatley", - "y" : 3 - }, - { - "name" : "Roger Bell_West", - "drilldown" : "Roger Bell_West", - "y" : 4 - }, - { - "y" : 4, - "drilldown" : "Thomas Kohler", - "name" : "Thomas Kohler" - }, - { - "name" : "Torgny Lyon", - "y" : 2, - "drilldown" : "Torgny Lyon" - }, - { - "name" : "Ulrich Rieke", - "y" : 4, - "drilldown" : "Ulrich Rieke" - }, - { - "drilldown" : "W. Luis Mochan", - "y" : 3, - "name" : "W. Luis Mochan" - } - ] - } - ], - "tooltip" : { - "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/>", - "followPointer" : 1 - }, - "plotOptions" : { - "series" : { - "borderWidth" : 0, - "dataLabels" : { - "enabled" : 1, - "format" : "{point.y}" - } - } - }, "legend" : { "enabled" : 0 } diff --git a/stats/pwc-language-breakdown-2019.json b/stats/pwc-language-breakdown-2019.json index 1c174c7184..49128ee78f 100644 --- a/stats/pwc-language-breakdown-2019.json +++ b/stats/pwc-language-breakdown-2019.json @@ -1,16 +1,236 @@ { - "yAxis" : { - "title" : { - "text" : "Total Solutions" + "xAxis" : { + "type" : "category" + }, + "chart" : { + "type" : "column" + }, + "series" : [ + { + "data" : [ + { + "name" : "041", + "y" : 80, + "drilldown" : "041" + }, + { + "drilldown" : "040", + "y" : 77, + "name" : "040" + }, + { + "name" : "039", + "drilldown" : "039", + "y" : 68 + }, + { + "name" : "038", + "drilldown" : "038", + "y" : 74 + }, + { + "name" : "037", + "y" : 70, + "drilldown" : "037" + }, + { + "drilldown" : "036", + "y" : 70, + "name" : "036" + }, + { + "name" : "035", + "y" : 68, + "drilldown" : "035" + }, + { + "name" : "034", + "drilldown" : "034", + "y" : 70 + }, + { + "name" : "033", + "drilldown" : "033", + "y" : 113 + }, + { + "name" : "032", + "drilldown" : "032", + "y" : 97 + }, + { + "drilldown" : "031", + "y" : 93, + "name" : "031" + }, + { + "name" : "030", + "y" : 120, + "drilldown" : "030" + }, + { + "drilldown" : "029", + "y" : 83, + "name" : "029" + }, + { + "name" : "028", + "y" : 82, + "drilldown" : "028" + }, + { + "drilldown" : "027", + "y" : 64, + "name" : "027" + }, + { + "y" : 75, + "drilldown" : "026", + "name" : "026" + }, + { + "name" : "025", + "y" : 62, + "drilldown" : "025" + }, + { + "y" : 77, + "drilldown" : "024", + "name" : "024" + }, + { + "name" : "023", + "drilldown" : "023", + "y" : 88 + }, + { + "drilldown" : "022", + "y" : 72, + "name" : "022" + }, + { + "drilldown" : "021", + "y" : 72, + "name" : "021" + }, + { + "drilldown" : "020", + "y" : 100, + "name" : "020" + }, + { + "drilldown" : "019", + "y" : 101, + "name" : "019" + }, + { + "name" : "018", + "drilldown" : "018", + "y" : 82 + }, + { + "y" : 83, + "drilldown" : "017", + "name" : "017" + }, + { + "drilldown" : "016", + "y" : 75, + "name" : "016" + }, + { + "name" : "015", + "y" : 95, + "drilldown" : "015" + }, + { + "drilldown" : "014", + "y" : 98, + "name" : "014" + }, + { + "name" : "013", + "drilldown" : "013", + "y" : 85 + }, + { + "name" : "012", + "drilldown" : "012", + "y" : 90 + }, + { + "y" : 86, + "drilldown" : "011", + "name" : "011" + }, + { + "y" : 69, + "drilldown" : "010", + "name" : "010" + }, + { + "name" : "009", + "drilldown" : "009", + "y" : 79 + }, + { + "drilldown" : "008", + "y" : 82, + "name" : "008" + }, + { + "name" : "007", + "drilldown" : "007", + "y" : 71 + }, + { + "y" : 63, + "drilldown" : "006", + "name" : "006" + }, + { + "drilldown" : "005", + "y" : 82, + "name" : "005" + }, + { + "name" : "004", + "drilldown" : "004", + "y" : 106 + }, + { + "y" : 91, + "drilldown" : "003", + "name" : "003" + }, + { + "drilldown" : "002", + "y" : 133, + "name" : "002" + }, + { + "name" : "001", + "drilldown" : "001", + "y" : 165 + } + ], + "name" : "The Weekly Challenge Languages", + "colorByPoint" : "true" } + ], + "tooltip" : { + "followPointer" : "true", + "headerFormat" : "<span style=\"font-size:11px\"></span>", + "pointFormat" : "<span style=\"color:{point.color}\">Challenge {point.name}</span>: <b>{point.y:f}</b><br/>" }, - "subtitle" : { - "text" : "Click the columns to drilldown the language breakdown. Last updated at 2024-08-27 11:43:58 GMT" + "legend" : { + "enabled" : "false" }, "drilldown" : { "series" : [ { "id" : "041", + "name" : "041", "data" : [ [ "Perl", @@ -24,12 +244,9 @@ "Blog", 9 ] - ], - "name" : "041" + ] }, { - "name" : "040", - "id" : "040", "data" : [ [ "Perl", @@ -43,10 +260,12 @@ "Blog", 10 ] - ] + ], + "name" : "040", + "id" : "040" }, { - "name" : "039", + "id" : "039", "data" : [ [ "Perl", @@ -61,10 +280,11 @@ 12 ] ], - "id" : "039" + "name" : "039" }, { "id" : "038", + "name" : "038", "data" : [ [ "Perl", @@ -78,10 +298,10 @@ "Blog", 12 ] - ], - "name" : "038" + ] }, { + "name" : "037", "data" : [ [ "Perl", @@ -96,10 +316,10 @@ 9 ] ], - "id" : "037", - "name" : "037" + "id" : "037" }, { + "id" : "036", "data" : [ [ "Perl", @@ -114,7 +334,6 @@ 11 ] ], - "id" : "036", "name" : "036" }, { @@ -136,8 +355,6 @@ "id" : "035" }, { - "name" : "034", - "id" : "034", "data" : [ [ "Perl", @@ -151,10 +368,12 @@ "Blog", 11 ] - ] + ], + "name" : "034", + "id" : "034" }, { - "name" : "033", + "id" : "033", "data" : [ [ "Perl", @@ -169,9 +388,11 @@ 10 ] ], - "id" : "033" + "name" : "033" }, { + "id" : "032", + "name" : "032", "data" : [ [ "Perl", @@ -185,11 +406,11 @@ "Blog", 10 ] - ], - "id" : "032", - "name" : "032" + ] }, { + "id" : "031", + "name" : "031", "data" : [ [ "Perl", @@ -203,13 +424,10 @@ "Blog", 9 ] - ], - "id" : "031", - "name" : "031" + ] }, { "name" : "030", - "id" : "030", "data" : [ [ "Perl", @@ -223,10 +441,10 @@ "Blog", 10 ] - ] + ], + "id" : "030" }, { - "name" : "029", "data" : [ [ "Perl", @@ -241,10 +459,10 @@ 12 ] ], + "name" : "029", "id" : "029" }, { - "id" : "028", "data" : [ [ "Perl", @@ -259,9 +477,11 @@ 9 ] ], - "name" : "028" + "name" : "028", + "id" : "028" }, { + "id" : "027", "data" : [ [ "Perl", @@ -276,11 +496,9 @@ 9 |
