diff options
28 files changed, 4015 insertions, 3804 deletions
diff --git a/challenge-283/reinier-maliepaard/blog.txt b/challenge-283/reinier-maliepaard/blog.txt new file mode 100644 index 0000000000..d284e5590c --- /dev/null +++ b/challenge-283/reinier-maliepaard/blog.txt @@ -0,0 +1 @@ +https://reiniermaliepaard.nl/perl/pwc/index.php?id=pwc283 diff --git a/challenge-283/reinier-maliepaard/perl/ch-1.pl b/challenge-283/reinier-maliepaard/perl/ch-1.pl new file mode 100644 index 0000000000..f780df165a --- /dev/null +++ b/challenge-283/reinier-maliepaard/perl/ch-1.pl @@ -0,0 +1,44 @@ +#!/usr/bin/perl +use strict; +use warnings; +use Statistics::Frequency; + +=begin +Let's use the marvellous Statistics CPAN module! +=cut + +sub unique_number { + my @ints = @_; + # create a new Statistics::Frequency object + my $freq = Statistics::Frequency->new(@ints); + + for (my $i = 0; $i <= $#ints; $i++) { + $freq->frequency($element) returns the frequency of an element + return($ints[$i]) if ( $freq->frequency($ints[$i]) == 1); + } + +} + +# Tests + +my @ints; + +# Example 1 +@ints = (3, 3, 1); +print(unique_number(@ints), "\n"); # Output: 1 + +# Example 2 +@ints = (3, 2, 4, 2, 4); +print(unique_number(@ints), "\n"); # Output: 3 + +# Example 3 +@ints = (1); +print(unique_number(@ints), "\n"); # Output: 1 + +# Example 4 +@ints = (4, 3, 1, 1, 1, 4); +print( unique_number(@ints), "\n" ); # Output: 3 + +# Example 5 +@ints = (3, 3, 3, 2, 2, 1); +print( unique_number(@ints), "\n" ); # Output: 1 diff --git a/challenge-283/reinier-maliepaard/perl/ch-2.pl b/challenge-283/reinier-maliepaard/perl/ch-2.pl new file mode 100644 index 0000000000..93583e6a03 --- /dev/null +++ b/challenge-283/reinier-maliepaard/perl/ch-2.pl @@ -0,0 +1,68 @@ +#!/usr/bin/perl +use strict; +use warnings; + +=begin +Let's use my favorite Statistics module again! +=cut + +use Statistics::Frequency; + +sub digit_count_value { + + my @ints = @_; + # create a new Statistics::Frequency object + my $freq = Statistics::Frequency->new(@ints); + + for (my $i = 0; $i < scalar(@ints); $i++) { + # $freq->frequency($i) returns the frequency + # only if $i is element of @ints + if (grep( /^$i$/, @ints )) { + return("false") if($freq->frequency($i) != $ints[$i]); + } else { + # if $i is not an element of @ints, $ints[$i] should be 0 + return("false") if ($ints[$i] != 0); + } + } + return("true"); +} + +# Tests + +my @ints; + +# Example 1 +@ints = (1, 2, 1, 0); +print(digit_count_value(@ints), "\n"); # Output: true + +# Example 2 +@ints = (0, 3, 0); +print(digit_count_value(@ints), "\n"); # Output: false + +# Example 3 +@ints = (2, 0, 2, 0); +print( digit_count_value(@ints), "\n"); # Output: true + +# Example 4 +@ints = (2, 1, 2, 0, 0); +print( digit_count_value(@ints), "\n"); # Output: true + +# Example 5 +@ints = (2, 1, 0, 0, 2); +print( digit_count_value(@ints), "\n"); # Output: false + +# Example 6 +@ints = (2, 1, 1, 0, 0); +print( digit_count_value(@ints), "\n"); # Output: false + +# Example 7 +@ints = (0, 3, 2, 0, 1); +print( digit_count_value(@ints), "\n"); # Output: false + +# Example 8 +@ints = (2, 1, 2, 0); +print( digit_count_value(@ints), "\n"); # Output: false + +# Example 9 +@ints = (3, 1, 2, 0); +print( digit_count_value(@ints), "\n"); # Output: false diff --git a/stats/pwc-challenge-233.json b/stats/pwc-challenge-233.json index 0b435d5409..30231057c8 100644 --- a/stats/pwc-challenge-233.json +++ b/stats/pwc-challenge-233.json @@ -1,10 +1,262 @@ { + "chart" : { + "type" : "column" + }, + "title" : { + "text" : "The Weekly Challenge - 233" + }, + "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 + }, + "subtitle" : { + "text" : "[Champions: 44] Last updated at 2024-08-20 14:08:19 GMT" + }, "legend" : { "enabled" : 0 }, + "series" : [ + { + "name" : "The Weekly Challenge - 233", + "colorByPoint" : 1, + "data" : [ + { + "y" : 4, + "name" : "Adam Russell", + "drilldown" : "Adam Russell" + }, + { + "drilldown" : "Ali Moradi", + "y" : 5, + "name" : "Ali Moradi" + }, + { + "y" : 4, + "name" : "Andrew Shitov", + "drilldown" : "Andrew Shitov" + }, + { + "drilldown" : "Arne Sommer", + "name" : "Arne Sommer", + "y" : 3 + }, + { + "drilldown" : "Athanasius", + "y" : 4, + "name" : "Athanasius" + }, + { + "drilldown" : "Avery Adams", + "name" : "Avery Adams", + "y" : 4 + }, + { + "drilldown" : "BarrOff", + "y" : 2, + "name" : "BarrOff" + }, + { + "y" : 3, + "name" : "Bob Lied", + "drilldown" : "Bob Lied" + }, + { + "drilldown" : "Bruce Gray", + "y" : 2, + "name" : "Bruce Gray" + }, + { + "drilldown" : "Cheok-Yin Fung", + "y" : 2, + "name" : "Cheok-Yin Fung" + }, + { + "y" : 2, + "name" : "Dave Jacoby", + "drilldown" : "Dave Jacoby" + }, + { + "drilldown" : "David Ferrone", + "y" : 2, + "name" : "David Ferrone" + }, + { + "drilldown" : "E. Choroba", + "name" : "E. Choroba", + "y" : 2 + }, + { + "y" : 2, + "name" : "Feng Chang", + "drilldown" : "Feng Chang" + }, + { + "name" : "Humberto Massa", + "y" : 2, + "drilldown" : "Humberto Massa" + }, + { + "name" : "Jaldhar H. Vyas", + "y" : 5, + "drilldown" : "Jaldhar H. Vyas" + }, + { + "drilldown" : "Jan Krnavek", + "y" : 2, + "name" : "Jan Krnavek" + }, + { + "name" : "Jorg Sommrey", + "y" : 2, + "drilldown" : "Jorg Sommrey" + }, + { + "y" : 2, + "name" : "Kjetil Skotheim", + "drilldown" : "Kjetil Skotheim" + }, + { + "drilldown" : "Laurent Rosenfeld", + "y" : 5, + "name" : "Laurent Rosenfeld" + }, + { + "drilldown" : "Lubos Kolouch", + "name" : "Lubos Kolouch", + "y" : 3 + }, + { + "drilldown" : "Luca Ferrari", + "y" : 8, + "name" : "Luca Ferrari" + }, + { + "y" : 2, + "name" : "Mariano Spadaccini", + "drilldown" : "Mariano Spadaccini" + }, + { + "drilldown" : "Mark Anderson", + "y" : 2, + "name" : "Mark Anderson" + }, + { + "drilldown" : "Marton Polgar", + "y" : 2, + "name" : "Marton Polgar" + }, + { + "name" : "Matthew Neleigh", + "y" : 2, + "drilldown" : "Matthew Neleigh" + }, + { + "drilldown" : "Matthias Muth", + "name" : "Matthias Muth", + "y" : 3 + }, + { + "drilldown" : "mauke", + "y" : 2, + "name" : "mauke" + }, + { + "name" : "Niels van Dijke", + "y" : 2, + "drilldown" : "Niels van Dijke" + }, + { + "drilldown" : "Packy Anderson", + "y" : 5, + "name" : "Packy Anderson" + }, + { + "drilldown" : "Paulo Custodio", + "name" : "Paulo Custodio", + "y" : 2 + }, + { + "name" : "Peter Campbell Smith", + "y" : 3, + "drilldown" : "Peter Campbell Smith" + }, + { + "drilldown" : "Peter Meszaros", + "name" : "Peter Meszaros", + "y" : 2 + }, + { + "y" : 3, + "name" : "Robbie Hatley", + "drilldown" : "Robbie Hatley" + }, + { + "y" : 2, + "name" : "Robert DiCicco", + "drilldown" : "Robert DiCicco" + }, + { + "drilldown" : "Robert Ransbottom", + "name" : "Robert Ransbottom", + "y" : 2 + }, + { + "name" : "Roger Bell_West", + "y" : 5, + "drilldown" : "Roger Bell_West" + }, + { + "drilldown" : "Simon Green", + "name" : "Simon Green", + "y" : 3 + }, + { + "y" : 2, + "name" : "Solathian", + "drilldown" : "Solathian" + }, + { + "name" : "Stephen G. Lynn", + "y" : 3, + "drilldown" : "Stephen G. Lynn" + }, + { + "name" : "Thomas Kohler", + "y" : 4, + "drilldown" : "Thomas Kohler" + }, + { + "name" : "Ulrich Rieke", + "y" : 4, + "drilldown" : "Ulrich Rieke" + }, + { + "name" : "W. Luis Mochan", + "y" : 3, + "drilldown" : "W. Luis Mochan" + }, + { + "drilldown" : "Wanderdoc", + "y" : 2, + "name" : "Wanderdoc" + } + ] + } + ], + "xAxis" : { + "type" : "category" + }, + "yAxis" : { + "title" : { + "text" : "Total Solutions" + } + }, "drilldown" : { "series" : [ { + "name" : "Adam Russell", + "id" : "Adam Russell", "data" : [ [ "Perl", @@ -14,9 +266,7 @@ "Blog", 2 ] - ], - "name" : "Adam Russell", - "id" : "Adam Russell" + ] }, { "data" : [ @@ -33,10 +283,12 @@ 1 ] ], - "id" : "Ali Moradi", - "name" : "Ali Moradi" + "name" : "Ali Moradi", + "id" : "Ali Moradi" }, { + "name" : "Andrew Shitov", + "id" : "Andrew Shitov", "data" : [ [ "Raku", @@ -46,9 +298,7 @@ "Blog", 2 ] - ], - "name" : "Andrew Shitov", - "id" : "Andrew Shitov" + ] }, { "data" : [ @@ -65,8 +315,6 @@ "name" : "Arne Sommer" }, { - "id" : "Athanasius", - "name" : "Athanasius", "data" : [ [ "Perl", @@ -76,7 +324,9 @@ "Raku", 2 ] - ] + ], + "id" : "Athanasius", + "name" : "Athanasius" }, { "data" : [ @@ -103,6 +353,8 @@ "name" : "BarrOff" }, { + "name" : "Bob Lied", + "id" : "Bob Lied", "data" : [ [ "Perl", @@ -112,9 +364,7 @@ "Blog", 1 ] - ], - "id" : "Bob Lied", - "name" : "Bob Lied" + ] }, { "data" : [ @@ -123,28 +373,28 @@ 2 ] ], - "id" : "Bruce Gray", - "name" : "Bruce Gray" + "name" : "Bruce Gray", + "id" : "Bruce Gray" }, { + "name" : "Cheok-Yin Fung", + "id" : "Cheok-Yin Fung", "data" : [ [ "Perl", 2 ] - ], - "id" : "Cheok-Yin Fung", - "name" : "Cheok-Yin Fung" + ] }, { - "id" : "Dave Jacoby", - "name" : "Dave Jacoby", "data" : [ [ "Perl", 2 ] - ] + ], + "id" : "Dave Jacoby", + "name" : "Dave Jacoby" }, { "data" : [ @@ -153,8 +403,8 @@ 2 ] ], - "id" : "David Ferrone", - "name" : "David Ferrone" + "name" : "David Ferrone", + "id" : "David Ferrone" }, { "name" : "E. Choroba", @@ -167,24 +417,24 @@ ] }, { + "id" : "Feng Chang", + "name" : "Feng Chang", "data" : [ [ "Raku", 2 ] - ], - "id" : "Feng Chang", - "name" : "Feng Chang" + ] }, { - "name" : "Humberto Massa", - "id" : "Humberto Massa", "data" : [ [ "Raku", 2 ] - ] + ], + "id" : "Humberto Massa", + "name" : "Humberto Massa" }, { "data" : [ @@ -205,38 +455,36 @@ "id" : "Jaldhar H. Vyas" }, { + "id" : "Jan Krnavek", + "name" : "Jan Krnavek", "data" : [ [ "Raku", 2 ] - ], - "id" : "Jan Krnavek", - "name" : "Jan Krnavek" + ] }, { + "name" : "Jorg Sommrey", + "id" : "Jorg Sommrey", "data" : [ [ "Perl", 2 ] - ], - "name" : "Jorg Sommrey", - "id" : "Jorg Sommrey" + ] }, { + "name" : "Kjetil Skotheim", + "id" : "Kjetil Skotheim", "data" : [ [ "Perl", 2 ] - ], - "name" : "Kjetil Skotheim", - "id" : "Kjetil Skotheim" + ] }, { - "id" : "Laurent Rosenfeld", - "name" : "Laurent Rosenfeld", "data" : [ [ "Perl", @@ -250,11 +498,13 @@ "Blog", 2 ] - ] + ], + "id" : "Laurent Rosenfeld", + "name" : "Laurent Rosenfeld" }, { - "id" : "Lubos Kolouch", "name" : "Lubos Kolouch", + "id" : "Lubos Kolouch", "data" : [ [ "Perl", @@ -281,34 +531,34 @@ ] }, { - "name" : "Mariano Spadaccini", - "id" : "Mariano Spadaccini", "data" : [ [ "Perl", 2 ] - ] + ], + "name" : "Mariano Spadaccini", + "id" : "Mariano Spadaccini" }, { - "id" : "Mark Anderson", - "name" : "Mark Anderson", "data" : [ [ "Raku", 2 ] - ] + ], + "id" : "Mark Anderson", + "name" : "Mark Anderson" }, { + "name" : "Marton Polgar", + "id" : "Marton Polgar", "data" : [ [ "Raku", 2 ] - ], - "name" : "Marton Polgar", - "id" : "Marton Polgar" + ] }, { "data" : [ @@ -317,12 +567,10 @@ 2 ] ], - "name" : "Matthew Neleigh", - "id" : "Matthew Neleigh" + "id" : "Matthew Neleigh", + "name" : "Matthew Neleigh" }, { - "id" : "Matthias Muth", - "name" : "Matthias Muth", "data" : [ [ "Perl", @@ -332,7 +580,9 @@ "Blog", 1 ] - ] + ], + "name" : "Matthias Muth", + "id" : "Matthias Muth" }, { "data" : [ @@ -341,12 +591,12 @@ 2 ] ], - "name" : "mauke", - "id" : "mauke" + "id" : "mauke", + "name" : "mauke" }, { - "id" : "Niels van Dijke", "name" : "Niels van Dijke", + "id" : "Niels van Dijke", "data" : [ [ "Perl", @@ -355,6 +605,8 @@ ] }, { + "id" : "Packy Anderson", + "name" : "Packy Anderson", "data" : [ [ "Perl", @@ -368,13 +620,19 @@ "Blog", 1 ] - ], - "name" : "Packy Anderson", - "id" : "Packy Anderson" + ] + }, + { + "id" : "Paulo Custodio", + "name" : "Paulo Custodio", + "data" : [ + [ + "Perl", + 2 + ] + ] }, { - "id" : "Peter Campbell Smith", - "name" : "Peter Campbell Smith", "data" : [ [ "Perl", @@ -384,7 +642,9 @@ "Blog", 1 ] - ] + ], + "id" : "Peter Campbell Smith", + "name" : "Peter Campbell Smith" }, { "data" : [ @@ -411,8 +671,6 @@ ] }, { - "name" : "Robert DiCicco", - "id" : "Robert DiCicco", "data" : [ [ "Perl", @@ -422,7 +680,9 @@ "Raku", 1 ] - ] + ], + "id" : "Robert DiCicco", + "name" : "Robert DiCicco" }, { "data" : [ @@ -435,6 +695,8 @@ "id" : "Robert Ransbottom" }, { + "id" : "Roger Bell_West", + "name" : "Roger Bell_West", "data" : [ [ "Perl", @@ -448,11 +710,11 @@ "Blog", 1 ] - ], - "name" : "Roger Bell_West", - "id" : "Roger Bell_West" + ] }, { + "id" : "Simon Green", + "name" : "Simon Green", "data" : [ [ "Perl", @@ -462,21 +724,21 @@ "Blog", 1 ] - ], - "name" : "Simon Green", - "id" : "Simon Green" + ] }, { - "name" : "Solathian", - "id" : "Solathian", "data" : [ [ "Perl", 2 ] - ] + ], + "id" : "Solathian", + "name" : "Solathian" }, { + "id" : "Stephen G. Lynn", + "name" : "Stephen G. Lynn", "data" : [ [ "Perl", @@ -486,9 +748,7 @@ "Blog", 1 ] - ], - "name" : "Stephen G. Lynn", - "id" : "Stephen G. Lynn" + ] }, { "name" : "Thomas Kohler", @@ -505,8 +765,6 @@ ] }, { - "name" : "Ulrich Rieke", - "id" : "Ulrich Rieke", "data" : [ [ "Perl", @@ -516,9 +774,13 @@ "Raku", 2 ] - ] + ], + "id" : "Ulrich Rieke", + "name" : "Ulrich Rieke" }, { + "id" : "W. Luis Mochan", + "name" : "W. Luis Mochan", "data" : [ [ "Perl", @@ -528,274 +790,27 @@ "Blog", 1 ] - ], - "id" : "W. Luis Mochan", - "name" : "W. Luis Mochan" + ] }, { + "id" : "Wanderdoc", + "name" : "Wanderdoc", "data" : [ [ "Perl", 2 ] - ], - "name" : "Wanderdoc", - "id" : "Wanderdoc" + ] } ] }, - "yAxis" : { - "title" : { - "text" : "Total Solutions" - } - }, - "subtitle" : { - "text" : "[Champions: 43] Last updated at 2024-07-29 17:29:09 GMT" - }, - "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/>" - }, - "title" : { - "text" : "The Weekly Challenge - 233" - }, - "xAxis" : { - "type" : "category" - }, "plotOptions" : { "series" : { + "borderWidth" : 0, "dataLabels" : { "enabled" : 1, "format" : "{point.y}" - }, - "borderWidth" : 0 - } - }, - "chart" : { - "type" : "column" - }, - "series" : [ - { - "data" : [ - { - "drilldown" : "Adam Russell", - "y" : 4, - "name" : "Adam Russell" - }, - { - "y" : 5, - "drilldown" : "Ali Moradi", - "name" : "Ali Moradi" - }, - { - "name" : "Andrew Shitov", - "drilldown" : "Andrew Shitov", - "y" : 4 - }, - { - "y" : 3, - "drilldown" : "Arne Sommer", - "name" : "Arne Sommer" - }, - { - "drilldown" : "Athanasius", - "y" : 4, - "name" : "Athanasius" - }, - { - "y" : 4, - "drilldown" : "Avery Adams", - "name" : "Avery Adams" - }, - { - "name" : "BarrOff", - "y" : 2, - "drilldown" : "BarrOff" - }, - { - "name" : "Bob Lied", - "y" : 3, - "drilldown" : "Bob Lied" - }, - { - "drilldown" : "Bruce Gray", - "y" : 2, - "name" : "Bruce Gray" - }, - { - "drilldown" : "Cheok-Yin Fung", - "y" : 2, - "name" : "Cheok-Yin Fung" - }, - { - "drilldown" : "Dave Jacoby", - "y" : 2, - "name" : "Dave Jacoby" - }, - { - "y" : 2, - "drilldown" : "David Ferrone", - "name" : "David Ferrone" - }, - { - "name" : "E. Choroba", - "drilldown" : "E. Choroba", - "y" : 2 - }, - { - "y" : 2, - "drilldown" : "Feng Chang", - "name" : "Feng Chang" - }, - { - "name" : "Humberto Massa", - "drilldown" : "Humberto Massa", - "y" : 2 - }, - { - "drilldown" : "Jaldhar H. Vyas", - "y" : 5, - "name" : "Jaldhar H. Vyas" - }, - { - "name" : "Jan Krnavek", - "drilldown" : "Jan Krnavek", - "y" : 2 - }, - { - "drilldown" : "Jorg Sommrey", - "y" : 2, - "name" : "Jorg Sommrey" - }, - { - "name" : "Kjetil Skotheim", - |