diff options
| author | Mohammad Sajid Anwar <mohammad.anwar@yahoo.com> | 2024-09-08 21:29:17 +0100 |
|---|---|---|
| committer | Mohammad Sajid Anwar <mohammad.anwar@yahoo.com> | 2024-09-08 21:29:17 +0100 |
| commit | 725c6b87d5c76d5cd8fef6b30a2979c84c16eb9e (patch) | |
| tree | a93486f1b10d94995cb0a671bb801e999df41869 | |
| parent | 88b393512839ee311a24dfd2cc2b909a1455eafe (diff) | |
| download | perlweeklychallenge-club-725c6b87d5c76d5cd8fef6b30a2979c84c16eb9e.tar.gz perlweeklychallenge-club-725c6b87d5c76d5cd8fef6b30a2979c84c16eb9e.tar.bz2 perlweeklychallenge-club-725c6b87d5c76d5cd8fef6b30a2979c84c16eb9e.zip | |
- Added solutions by Asher Harvey-Smith.
- Added solutions by Bob Lied.
- Added solutions by Jorg Sommrey.
- Added solutions by Paulo Custodio.
- Added solutions by Jan Krnavek.
- Added solutions by Wanderdoc.
25 files changed, 3169 insertions, 2951 deletions
diff --git a/challenge-285/wanderdoc/perl/ch-1.pl b/challenge-285/wanderdoc/perl/ch-1.pl new file mode 100755 index 0000000000..9338b2056e --- /dev/null +++ b/challenge-285/wanderdoc/perl/ch-1.pl @@ -0,0 +1,72 @@ +#!perl
+use strict;
+use warnings FATAL => qw(all);
+
+=prompt
+You are given a list of routes, @routes.
+
+Write a script to find the destination with no further outgoing connection.
+Example 1
+
+Input: @routes = (["B","C"], ["D","B"], ["C","A"])
+Output: "A"
+
+"D" -> "B" -> "C" -> "A".
+"B" -> "C" -> "A".
+"C" -> "A".
+"A".
+
+Example 2
+
+Input: @routes = (["A","Z"])
+Output: "Z"
+
+=cut
+
+
+use Test2::V0;
+use List::Util qw(uniq);
+
+is(construction(["B","C"], ["D","B"], ["C","A"]), 'A', 'Example 1');
+is(construction(["A","Z"]), 'Z', 'Example 2');
+is(logic(["B","C"], ["D","B"], ["C","A"]), 'A', 'Example 1A');
+is(logic(["A","Z"]), 'Z', 'Example 2A');
+done_testing();
+
+sub construction
+{
+ my @arr = @_;
+ if ( 1 == scalar @arr )
+ {
+ return $arr[0]->[1];
+ }
+ my @paths;
+ for my $idx_1 ( 0 .. $#arr )
+ {
+ my @step = @{$arr[$idx_1]};
+ for my $idx_2 ( 0 .. $#arr )
+ {
+ next if ( $idx_1 == $idx_2 );
+
+
+ if ( $arr[$idx_2]->[0] eq $step[-1])
+ {
+ push @step, @{$arr[$idx_2]}
+ }
+ }
+ my $step_str = join('', @step);
+ $step_str =~ s/(?<char>.)\k<char>/$1/g;
+ push @paths, $step_str;
+ }
+ my @output = uniq map substr($_, -1, 1), @paths;
+ return wantarray ? @output : "@output";
+}
+
+sub logic
+{
+ my @arr = @_;
+ my %first = map {$_->[0] => undef} @arr;
+ my %last = map {$_->[1] => undef} @arr;
+ delete @last{keys %first};
+ return wantarray ? keys %last : join('', keys %last);
+}
\ No newline at end of file diff --git a/challenge-285/wanderdoc/perl/ch-2.pl b/challenge-285/wanderdoc/perl/ch-2.pl new file mode 100755 index 0000000000..276e9f3a8a --- /dev/null +++ b/challenge-285/wanderdoc/perl/ch-2.pl @@ -0,0 +1,86 @@ +#!perl
+use strict;
+use warnings FATAL => qw(all);
+
+=prompt
+Compute the number of ways to make change for given amount in cents. By using the coins e.g. Penny, Nickel, Dime, Quarter and Half-dollar, in how many distinct ways can the total value equal to the given amount? Order of coin selection does not matter.
+
+A penny (P) is equal to 1 cent.
+A nickel (N) is equal to 5 cents.
+A dime (D) is equal to 10 cents.
+A quarter (Q) is equal to 25 cents.
+A half-dollar (HD) is equal to 50 cents.
+
+Example 1
+
+Input: $amount = 9
+Ouput: 2
+
+1: 9P
+2: N + 4P
+
+Example 2
+
+Input: $amount = 15
+Ouput: 6
+
+1: D + 5P
+2: D + N
+3: 3N
+4: 2N + 5P
+5: N + 10P
+6: 15P
+=cut
+
+
+use Test2::V0;
+my %COINS = (1 => 'P', 5 => 'N', 10 => 'D', 25 => 'Q', 50 => 'HD');
+
+
+
+is(find_partitions(9, [keys %COINS]), 2, 'Example 1');
+is(find_partitions(15, [keys %COINS]), 6, 'Example 2');
+done_testing();
+
+
+
+
+
+
+sub find_partitions
+{
+ my ($sum, $numbers) = @_;
+ my @output;
+ my @stack = ([$sum, []]);
+ while (@stack)
+ {
+ my ($this_sum, $this_partition) = @{pop @stack};
+ if ($this_sum == 0)
+ {
+ push @output, $this_partition;
+ next;
+ }
+ for my $num (@$numbers)
+ {
+ if ($this_sum >= $num and (!@$this_partition or $num <= $this_partition->[-1]))
+ {
+ push @stack, [$this_sum - $num, [@$this_partition, $num]];
+ }
+ }
+ }
+ return scalar @output; # if needed: format_output(@output);
+}
+
+sub format_output # if verbose output needed
+{
+ my @arr = @_;
+ my @output_formatted;
+ for my $solution ( @arr )
+ {
+ my %freq;
+ do { $freq{$_}++ } for @$solution;
+ my $formatted = join("+", map { $freq{$_} . $COINS{$_} } keys %freq);
+ push @output_formatted, $formatted;
+ }
+ return @output_formatted;
+}
diff --git a/stats/pwc-challenge-284.json b/stats/pwc-challenge-284.json index 55940f5ca3..37827b2083 100644 --- a/stats/pwc-challenge-284.json +++ b/stats/pwc-challenge-284.json @@ -1,10 +1,19 @@ { + "xAxis" : { + "type" : "category" + }, + "legend" : { + "enabled" : 0 + }, + "chart" : { + "type" : "column" + }, "plotOptions" : { "series" : { "borderWidth" : 0, "dataLabels" : { - "format" : "{point.y}", - "enabled" : 1 + "enabled" : 1, + "format" : "{point.y}" } } }, @@ -18,29 +27,29 @@ "name" : "Ali Moradi" }, { - "drilldown" : "Andrew Schneider", "y" : 2, + "drilldown" : "Andrew Schneider", "name" : "Andrew Schneider" }, { + "name" : "Arne Sommer", "drilldown" : "Arne Sommer", - "y" : 3, - "name" : "Arne Sommer" + "y" : 3 }, { - "name" : "Athanasius", + "drilldown" : "Athanasius", "y" : 4, - "drilldown" : "Athanasius" + "name" : "Athanasius" }, { - "name" : "BarrOff", "drilldown" : "BarrOff", - "y" : 1 + "y" : 1, + "name" : "BarrOff" }, { - "name" : "Bob Lied", "y" : 2, - "drilldown" : "Bob Lied" + "drilldown" : "Bob Lied", + "name" : "Bob Lied" }, { "y" : 2, @@ -48,53 +57,53 @@ "name" : "Cheok-Yin Fung" }, { + "name" : "Dave Jacoby", "drilldown" : "Dave Jacoby", - "y" : 2, - "name" : "Dave Jacoby" + "y" : 2 }, { "name" : "David Ferrone", - "y" : 2, - "drilldown" : "David Ferrone" + "drilldown" : "David Ferrone", + "y" : 2 }, { "name" : "E. Choroba", - "drilldown" : "E. Choroba", - "y" : 2 + "y" : 2, + "drilldown" : "E. Choroba" }, { - "name" : "Feng Chang", "y" : 2, - "drilldown" : "Feng Chang" + "drilldown" : "Feng Chang", + "name" : "Feng Chang" }, { - "name" : "Jaldhar H. Vyas", "drilldown" : "Jaldhar H. Vyas", - "y" : 5 + "y" : 5, + "name" : "Jaldhar H. Vyas" }, { - "drilldown" : "Jan Krnavek", "y" : 2, + "drilldown" : "Jan Krnavek", "name" : "Jan Krnavek" }, { - "y" : 3, + "name" : "Jorg Sommrey", "drilldown" : "Jorg Sommrey", - "name" : "Jorg Sommrey" + "y" : 4 }, { - "drilldown" : "Kjetil Skotheim", "y" : 2, + "drilldown" : "Kjetil Skotheim", "name" : "Kjetil Skotheim" }, { "name" : "Laurent Rosenfeld", - "drilldown" : "Laurent Rosenfeld", - "y" : 6 + "y" : 6, + "drilldown" : "Laurent Rosenfeld" }, { - "drilldown" : "Mariano Ortega", "y" : 2, + "drilldown" : "Mariano Ortega", "name" : "Mariano Ortega" }, { @@ -108,29 +117,29 @@ "y" : 2 }, { - "name" : "Matthew Neleigh", + "y" : 2, "drilldown" : "Matthew Neleigh", - "y" : 2 + "name" : "Matthew Neleigh" }, { - "name" : "Matthias Muth", + "drilldown" : "Matthias Muth", "y" : 3, - "drilldown" : "Matthias Muth" + "name" : "Matthias Muth" }, { - "drilldown" : "Nelo Tovar", "y" : 2, + "drilldown" : "Nelo Tovar", "name" : "Nelo Tovar" }, { - "drilldown" : "Niels van Dijke", + "name" : "Niels van Dijke", "y" : 2, - "name" : "Niels van Dijke" + "drilldown" : "Niels van Dijke" }, { "name" : "Packy Anderson", - "y" : 5, - "drilldown" : "Packy Anderson" + "drilldown" : "Packy Anderson", + "y" : 5 }, { "y" : 2, @@ -138,9 +147,9 @@ "name" : "Paulo Custodio" }, { - "name" : "Peter Campbell Smith", "y" : 3, - "drilldown" : "Peter Campbell Smith" + "drilldown" : "Peter Campbell Smith", + "name" : "Peter Campbell Smith" }, { "name" : "Peter Meszaros", @@ -148,44 +157,44 @@ "y" : 2 }, { + "name" : "Reinier Maliepaard", "drilldown" : "Reinier Maliepaard", - "y" : 3, - "name" : "Reinier Maliepaard" + "y" : 3 }, { - "y" : 3, "drilldown" : "Robbie Hatley", + "y" : 3, "name" : "Robbie Hatley" }, { - "name" : "Robert Ransbottom", + "drilldown" : "Robert Ransbottom", "y" : 2, - "drilldown" : "Robert Ransbottom" + "name" : "Robert Ransbottom" }, { - "drilldown" : "Roger Bell_West", "y" : 5, + "drilldown" : "Roger Bell_West", "name" : "Roger Bell_West" }, { "name" : "Simon Green", - "drilldown" : "Simon Green", - "y" : 3 + "y" : 3, + "drilldown" : "Simon Green" }, { "name" : "Thomas Kohler", - "drilldown" : "Thomas Kohler", - "y" : 4 + "y" : 4, + "drilldown" : "Thomas Kohler" }, { + "name" : "Tim King", "y" : 2, - "drilldown" : "Tim King", - "name" : "Tim King" + "drilldown" : "Tim King" }, { "name" : "Torgny Lyon", - "y" : 2, - "drilldown" : "Torgny Lyon" + "drilldown" : "Torgny Lyon", + "y" : 2 }, { "name" : "Ulrich Rieke", @@ -206,17 +215,27 @@ "colorByPoint" : 1 } ], + "subtitle" : { + "text" : "[Champions: 38] Last updated at 2024-09-08 20:27:08 GMT" + }, + "title" : { + "text" : "The Weekly Challenge - 284" + }, "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/>" + "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>", + "followPointer" : 1 }, - "legend" : { - "enabled" : 0 + "yAxis" : { + "title" : { + "text" : "Total Solutions" + } }, "drilldown" : { "series" : [ { + "id" : "Ali Moradi", + "name" : "Ali Moradi", "data" : [ [ "Perl", @@ -226,19 +245,17 @@ "Blog", 1 ] - ], - "id" : "Ali Moradi", - "name" : "Ali Moradi" + ] }, { + "name" : "Andrew Schneider", + "id" : "Andrew Schneider", "data" : [ [ "Perl", 2 ] - ], - "id" : "Andrew Schneider", - "name" : "Andrew Schneider" + ] }, { "name" : "Arne Sommer", @@ -269,8 +286,8 @@ "name" : "Athanasius" }, { - "name" : "BarrOff", "id" : "BarrOff", + "name" : "BarrOff", "data" : [ [ "Raku", @@ -279,14 +296,14 @@ ] }, { - "name" : "Bob Lied", - "id" : "Bob Lied", "data" : [ [ "Perl", 2 ] - ] + ], + "id" : "Bob Lied", + "name" : "Bob Lied" }, { "data" : [ @@ -295,28 +312,28 @@ 2 ] ], - "id" : "Cheok-Yin Fung", - "name" : "Cheok-Yin Fung" + "name" : "Cheok-Yin Fung", + "id" : "Cheok-Yin Fung" }, { - "id" : "Dave Jacoby", "data" : [ [ "Perl", 2 ] ], + "id" : "Dave Jacoby", "name" : "Dave Jacoby" }, { - "id" : "David Ferrone", "data" : [ [ "Perl", 2 ] ], - "name" : "David Ferrone" + "name" : "David Ferrone", + "id" : "David Ferrone" }, { "name" : "E. Choroba", @@ -329,17 +346,16 @@ ] }, { + "name" : "Feng Chang", + "id" : "Feng Chang", "data" : [ [ "Raku", 2 ] - ], - "id" : "Feng Chang", - "name" : "Feng Chang" + ] }, { - "id" : "Jaldhar H. Vyas", "data" : [ [ "Perl", @@ -354,19 +370,22 @@ 1 ] ], + "id" : "Jaldhar H. Vyas", "name" : "Jaldhar H. Vyas" }, { "id" : "Jan Krnavek", + "name" : "Jan Krnavek", "data" : [ [ "Raku", 2 ] - ], - "name" : "Jan Krnavek" + ] }, { + "id" : "Jorg Sommrey", + "name" : "Jorg Sommrey", "data" : [ [ "Perl", @@ -374,23 +393,22 @@ ], [ "Blog", - 1 + 2 ] - ], - "id" : "Jorg Sommrey", - "name" : "Jorg Sommrey" + ] }, { - "name" : "Kjetil Skotheim", "data" : [ [ "Perl", 2 ] ], - "id" : "Kjetil Skotheim" + "id" : "Kjetil Skotheim", + "name" : "Kjetil Skotheim" }, { + "id" : "Laurent Rosenfeld", "name" : "Laurent Rosenfeld", "data" : [ [ @@ -405,12 +423,11 @@ "Blog", 2 ] - ], - "id" : "Laurent Rosenfeld" + ] }, { - "name" : "Mariano Ortega", "id" : "Mariano Ortega", + "name" : "Mariano Ortega", "data" : [ [ "Perl", @@ -419,34 +436,34 @@ ] }, { - "id" : "Mariano Spadaccini", "data" : [ [ "Perl", 2 ] ], - "name" : "Mariano Spadaccini" + "name" : "Mariano Spadaccini", + "id" : "Mariano Spadaccini" }, { - "name" : "Mark Anderson", "data" : [ [ "Raku", 2 ] ], - "id" : "Mark Anderson" + "id" : "Mark Anderson", + "name" : "Mark Anderson" }, { "id" : "Matthew Neleigh", + "name" : "Matthew Neleigh", "data" : [ [ "Perl", 2 ] - ], - "name" : "Matthew Neleigh" + ] }, { "data" : [ @@ -459,12 +476,12 @@ 1 ] ], - "id" : "Matthias Muth", - "name" : "Matthias Muth" + "name" : "Matthias Muth", + "id" : "Matthias Muth" }, { - "name" : "Nelo Tovar", "id" : "Nelo Tovar", + "name" : "Nelo Tovar", "data" : [ [ "Perl", @@ -483,6 +500,8 @@ ] }, { + "id" : "Packy Anderson", + "name" : "Packy Anderson", "data" : [ [ "Perl", @@ -496,22 +515,19 @@ "Blog", 1 ] - ], - "id" : "Packy Anderson", - "name" : "Packy Anderson" + ] }, { "id" : "Paulo Custodio", + "name" : "Paulo Custodio", "data" : [ [ "Perl", 2 ] - ], - "name" : "Paulo Custodio" + ] }, { - "id" : "Peter Campbell Smith", "data" : [ [ "Perl", @@ -522,17 +538,18 @@ 1 ] ], - "name" : "Peter Campbell Smith" + "name" : "Peter Campbell Smith", + "id" : "Peter Campbell Smith" }, { - "id" : "Peter Meszaros", "data" : [ [ "Perl", 2 ] ], - "name" : "Peter Meszaros" + "name" : "Peter Meszaros", + "id" : "Peter Meszaros" }, { "data" : [ @@ -545,11 +562,10 @@ 1 ] ], - "id" : "Reinier Maliepaard", - "name" : "Reinier Maliepaard" + "name" : "Reinier Maliepaard", + "id" : "Reinier Maliepaard" }, { - "id" : "Robbie Hatley", "data" : [ [ "Perl", @@ -560,19 +576,21 @@ 1 ] ], + "id" : "Robbie Hatley", "name" : "Robbie Hatley" }, { - "name" : "Robert Ransbottom", "data" : [ [ "Raku", 2 ] ], + "name" : "Robert Ransbottom", "id" : "Robert Ransbottom" }, { + "name" : "Roger Bell_West", "id" : "Roger Bell_West", "data" : [ [ @@ -587,11 +605,9 @@ "Blog", 1 ] - ], - "name" : "Roger Bell_West" + ] }, { - "id" : "Simon Green", "data" : [ [ "Perl", @@ -602,9 +618,12 @@ 1 ] ], + "id" : "Simon Green", "name" : "Simon Green" }, { + "id" : "Thomas Kohler", + "name" : "Thomas Kohler", "data" : [ [ "Perl", @@ -614,19 +633,17 @@ "Blog", 2 ] - ], - "id" : "Thomas Kohler", - "name" : "Thomas Kohler" + ] }, { + "name" : "Tim King", + "id" : "Tim King", "data" : [ [ "Perl", 2 ] - ], - "id" : "Tim King", - "name" : "Tim King" + ] }, { "name" : "Torgny Lyon", @@ -639,7 +656,6 @@ ] }, { - "name" : "Ulrich Rieke", "data" : [ [ "Perl", @@ -650,6 +666,7 @@ 2 ] ], + "name" : "Ulrich Rieke", "id" : "Ulrich Rieke" }, { @@ -677,22 +694,5 @@ "name" : "Wanderdoc" } ] - }, - "subtitle" : { - "text" : "[Champions: 38] Last updated at 2024-09-02 12:06:24 GMT" - }, - "xAxis" : { - "type" : "category" - }, - "yAxis" : { - "title" : { - "text" : "Total Solutions" - } - }, - "chart" : { - "type" : "column" - }, - "title" : { - "text" : "The Weekly Challenge - 284" } } diff --git a/stats/pwc-current.json b/stats/pwc-current.json index 9cd4d0711a..9a8de9f12e 100644 --- a/stats/pwc-current.json +++ b/stats/pwc-current.json @@ -1,21 +1,4 @@ { - "legend" : { - "enabled" : 0 - }, - "tooltip" : { - "followPointer" : 1, - "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/>" - }, - "plotOptions" : { - "series" : { - "dataLabels" : { - "enabled" : 1, - "format" : "{point.y}" - }, - "borderWidth" : 0 - } - }, "drilldown" : { "series" : [ { @@ -29,12 +12,10 @@ 1 ] ], - "id" : "Ali Moradi", - "name" : "Ali Moradi" + "name" : "Ali Moradi", + "id" : "Ali Moradi" }, { - "id" : "Arne Sommer", - "name" : "Arne Sommer", "data" : [ [ "Raku", @@ -44,7 +25,19 @@ "Blog", 1 ] - ] + ], + "name" : "Arne Sommer", + "id" : "Arne Sommer" + }, + { + "data" : [ + [ + "Raku", + 1 + ] + ], + "id" : "Asher Harvey-Smith", + "name" : "Asher Harvey-Smith" }, { "name" : "Athanasius", @@ -61,8 +54,18 @@ ] }, { - "id" : "Cheok-Yin Fung", + "data" : [ + [ + "Perl", + 2 + ] + ], + "name" : "Bob Lied", + "id" : "Bob Lied" + }, + { "name" : "Cheok-Yin Fung", + "id" : "Cheok-Yin Fung", "data" : [ [ "Perl", @@ -71,8 +74,8 @@ ] }, { - "name" : "Dave Jacoby", "id" : "Dave Jacoby", + "name" : "Dave Jacoby", "data" : [ [ "Perl", @@ -81,6 +84,8 @@ ] }, { + "name" : "David Ferrone", + "id" : "David Ferrone", "data" : [ [ "Perl", @@ -90,31 +95,41 @@ "Blog", 1 ] - ], - "id" : "David Ferrone", - "name" : "David Ferrone" + ] }, { + "id" : "E. Choroba", + "name" : "E. Choroba", "data" : [ [ "Perl", 2 ] - ], - "name" : "E. Choroba", - "id" : "E. Choroba" + |