diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2022-04-12 11:48:16 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2022-04-12 11:48:16 +0100 |
| commit | 79bd6d44f670b75c7d9579d8af505047cab95f04 (patch) | |
| tree | 9d4bf68745fc973d59f741416a9df7438390aade | |
| parent | 8cf5c40ee7318f0a9c92820a2683fdf738d103a9 (diff) | |
| download | perlweeklychallenge-club-79bd6d44f670b75c7d9579d8af505047cab95f04.tar.gz perlweeklychallenge-club-79bd6d44f670b75c7d9579d8af505047cab95f04.tar.bz2 perlweeklychallenge-club-79bd6d44f670b75c7d9579d8af505047cab95f04.zip | |
- Added solutions by Robert DiCicco.
| -rw-r--r-- | challenge-160/robert-dicicco/perl/ch-1.pl | 37 | ||||
| -rw-r--r-- | challenge-160/robert-dicicco/perl/ch-2.pl | 71 | ||||
| -rw-r--r-- | challenge-160/robert-dicicco/raku/ch-1.raku | 19 | ||||
| -rw-r--r-- | challenge-160/robert-dicicco/raku/ch-2.raku | 58 | ||||
| -rw-r--r-- | stats/pwc-current.json | 209 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown-summary.json | 60 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown.json | 1092 | ||||
| -rw-r--r-- | stats/pwc-leaders.json | 386 | ||||
| -rw-r--r-- | stats/pwc-summary-1-30.json | 92 | ||||
| -rw-r--r-- | stats/pwc-summary-121-150.json | 96 | ||||
| -rw-r--r-- | stats/pwc-summary-151-180.json | 92 | ||||
| -rw-r--r-- | stats/pwc-summary-181-210.json | 104 | ||||
| -rw-r--r-- | stats/pwc-summary-211-240.json | 98 | ||||
| -rw-r--r-- | stats/pwc-summary-241-270.json | 52 | ||||
| -rw-r--r-- | stats/pwc-summary-31-60.json | 52 | ||||
| -rw-r--r-- | stats/pwc-summary-61-90.json | 38 | ||||
| -rw-r--r-- | stats/pwc-summary-91-120.json | 50 | ||||
| -rw-r--r-- | stats/pwc-summary.json | 40 |
18 files changed, 1425 insertions, 1221 deletions
diff --git a/challenge-160/robert-dicicco/perl/ch-1.pl b/challenge-160/robert-dicicco/perl/ch-1.pl new file mode 100644 index 0000000000..09e23d5e25 --- /dev/null +++ b/challenge-160/robert-dicicco/perl/ch-1.pl @@ -0,0 +1,37 @@ +#!perl.exe + +use strict; +use warnings; +use feature qw/say/; + +# AUTHOR: Robert DiCicco +# DATE: 11-APR-2022 +# Challenge 160 Four Is Magic ( Perl ) + +my %num_name = ( + '1' => 'One', + '2' => 'Two', + '3' => 'Three', + '4' => 'Four', + '5' => 'Five', + '6' => 'Six', + '7' => 'Seven', + '8' => 'Eight', + '9' => 'Nine', + ); + +my $n = $ARGV[0]; +chomp($n); + +die "Value must be an integer 1-9\n" if (($n < 1) || ($n > 9)); + +print "Input: \$n = $n\n"; + +while( $n != 4 ) { + my $len = length($num_name{$n}); + print "$num_name{$n} is $num_name{$len}, "; + + $n = $len; +} + +print "Four is magic.\n"; diff --git a/challenge-160/robert-dicicco/perl/ch-2.pl b/challenge-160/robert-dicicco/perl/ch-2.pl new file mode 100644 index 0000000000..7d3a1ce394 --- /dev/null +++ b/challenge-160/robert-dicicco/perl/ch-2.pl @@ -0,0 +1,71 @@ +#!perl.exe + +use strict; +use warnings; +use Switch; + +# AUTHOR: Robert DiCicco +# DATE: 11-APR-2022 +# Challenge 160 Equilibrium Index ( Perl ) + +sub leftsum { # get sum of the array to left of the inflection point, + my $a = shift; # this includes the inflection point + my $i = shift; + + my $sum = 0; + while($i >= 0 ){ + $sum += @$a[$i]; + $i--; + } + + return $sum; +} + +sub rightsum { # get sum of the array to right of the inflection point, + my $a = shift; # this includes the inflection point + my $i = shift; + + my $sum = 0; + while($i < scalar(@$a) ){ + $sum += @$a[$i]; + $i++; + } + + return $sum; +} + + sub balance { + my $a = shift; # the input array + + my $flag = 0; # 'found' flag + my $len = scalar(@$a); + foreach my $i (1..$len-2){ # step thru possible inflection points + my $leftval = leftsum($a, $i); # get the sum of left side of inflection point + my $rightval = rightsum($a,$i); # get sum of right side of inflection point + if ($leftval == $rightval){ # compare sums + print "Output: $i\n\n"; + $flag++; # increment flag if equal + last; + } + } + + unless ( $flag > 0 ) {print "Output: -1 as no Equilibrium Index found.\n\n"} ; + } + + +my $x = 3; +my @arr; + +while($x){ + switch($x) { # try each of the supplied arrays + case 3 { @arr = (1, 3, 5, 7, 9) } + case 2 { @arr = (1, 2, 3, 4, 5) } + case 1 { @arr = (2,4,2) } + else { die "Error: Unknown case!" } + } + + print "Input: \@n = \( @arr \)\n"; + + balance(\@arr); + $x--; +} diff --git a/challenge-160/robert-dicicco/raku/ch-1.raku b/challenge-160/robert-dicicco/raku/ch-1.raku new file mode 100644 index 0000000000..c82fb34432 --- /dev/null +++ b/challenge-160/robert-dicicco/raku/ch-1.raku @@ -0,0 +1,19 @@ +use v6; + +use Lingua::EN::Numbers; + +# AUTHOR: Robert DiCicco +# DATE: 11-APR-2022 +# Challenge 160 Four Is Magic ( Raku ) + +sub MAIN ( Int $n is copy ) { + print "Input: \$n = $n\n"; + + while ( $n != 4 ) { + my $n_len = cardinal($n).chars; + print tclc(cardinal($n)) ~ " is " ~ tclc(cardinal($n_len)) ~ ", "; + $n = $n_len; + } + + say "Four is magic."; +} diff --git a/challenge-160/robert-dicicco/raku/ch-2.raku b/challenge-160/robert-dicicco/raku/ch-2.raku new file mode 100644 index 0000000000..4bf864c231 --- /dev/null +++ b/challenge-160/robert-dicicco/raku/ch-2.raku @@ -0,0 +1,58 @@ +use v6; + +# AUTHOR: Robert DiCicco +# DATE: 11-APR-2022 +# Challenge 160 Equilibrium Index ( Raku ) + +sub leftsum ( @a, Int $i is copy ) { # get sum of the array to left of the inflection point, ($i) + my $sum = 0; # this includes the inflection point + + while ( $i >= 0 ) { + $sum += @a[$i]; + $i--; + } + + return $sum; +} + +sub rightsum ( @a, Int $i is copy ) { # get sum of the array to right of the inflection point, ($i) + my $sum = 0; # this includes the inflection point + + while ( $i < @a.elems ) { + $sum += @a[$i]; + $i++; + } + + return $sum; +} + +sub balance ( @a ) { + my $flag = 0; # the 'found' flag + my $len = @a.elems; # get length of array + + for (1..$len-2) -> $i { # step thru possible inflection points + my $leftval = leftsum(@a, $i); + my $rightval = rightsum(@a,$i); + if ($leftval == $rightval) { # compare sums + print "Output: $i\n\n"; + $flag++; # increment flag if equal + last; + } + } + + if ( $flag == 0 ) {print "Output: -1 as no Equilibrium Index found.\n\n"} ; + + return; +} + +sub MAIN { + my @arr = ((1, 3, 5, 7, 9), (1, 2, 3, 4, 5 ), (2, 4, 2)); + + my @subarr; + # try each of the supplied arrays + + for ( @arr ) -> @subarr { + print "Input: \@n = \( " ~ @subarr ~ " \)\n"; + balance(@subarr); + } +} diff --git a/stats/pwc-current.json b/stats/pwc-current.json index fd1492ad8d..19076dc697 100644 --- a/stats/pwc-current.json +++ b/stats/pwc-current.json @@ -1,32 +1,102 @@ { - "chart" : { - "type" : "column" - }, - "legend" : { - "enabled" : 0 + "yAxis" : { + "title" : { + "text" : "Total Solutions" + } }, - "title" : { - "text" : "The Weekly Challenge - 160" + "plotOptions" : { + "series" : { + "dataLabels" : { + "enabled" : 1, + "format" : "{point.y}" + }, + "borderWidth" : 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/>", - "followPointer" : 1 + "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>" + }, + "subtitle" : { + "text" : "[Champions: 10] Last updated at 2022-04-12 10:44:42 GMT" + }, + "series" : [ + { + "colorByPoint" : 1, + "data" : [ + { + "y" : 2, + "name" : "E. Choroba", + "drilldown" : "E. Choroba" + }, + { + "y" : 3, + "name" : "James Smith", + "drilldown" : "James Smith" + }, + { + "name" : "Luca Ferrari", + "drilldown" : "Luca Ferrari", + "y" : 8 + }, + { + "drilldown" : "Marton Polgar", + "name" : "Marton Polgar", + "y" : 2 + }, + { + "y" : 2, + "name" : "Matthew Neleigh", + "drilldown" : "Matthew Neleigh" + }, + { + "drilldown" : "PokGoPun", + "name" : "PokGoPun", + "y" : 2 + }, + { + "y" : 4, + "name" : "Robert DiCicco", + "drilldown" : "Robert DiCicco" + }, + { + "y" : 4, + "name" : "Roger Bell_West", + "drilldown" : "Roger Bell_West" + }, + { + "y" : 2, + "drilldown" : "Simon Proctor", + "name" : "Simon Proctor" + }, + { + "drilldown" : "W. Luis Mochan", + "name" : "W. Luis Mochan", + "y" : 3 + } + ], + "name" : "The Weekly Challenge - 160" + } + ], + "chart" : { + "type" : "column" }, "drilldown" : { "series" : [ { + "name" : "E. Choroba", + "id" : "E. Choroba", "data" : [ [ "Perl", 2 ] - ], - "id" : "E. Choroba", - "name" : "E. Choroba" + ] }, { "name" : "James Smith", + "id" : "James Smith", "data" : [ [ "Perl", @@ -36,11 +106,11 @@ "Blog", 1 ] - ], - "id" : "James Smith" + ] }, { "name" : "Luca Ferrari", + "id" : "Luca Ferrari", "data" : [ [ "Raku", @@ -50,8 +120,7 @@ "Blog", 6 ] - ], - "id" : "Luca Ferrari" + ] }, { "name" : "Marton Polgar", @@ -70,21 +139,34 @@ 2 ] ], - "id" : "Matthew Neleigh", - "name" : "Matthew Neleigh" + "name" : "Matthew Neleigh", + "id" : "Matthew Neleigh" }, { + "name" : "PokGoPun", "id" : "PokGoPun", "data" : [ [ "Perl", 2 ] + ] + }, + { + "data" : [ + [ + "Perl", + 2 + ], + [ + "Raku", + 2 + ] ], - "name" : "PokGoPun" + "id" : "Robert DiCicco", + "name" : "Robert DiCicco" }, { - "id" : "Roger Bell_West", "data" : [ [ "Perl", @@ -95,7 +177,8 @@ 2 ] ], - "name" : "Roger Bell_West" + "name" : "Roger Bell_West", + "id" : "Roger Bell_West" }, { "data" : [ @@ -104,10 +187,11 @@ 2 ] ], - "id" : "Simon Proctor", - "name" : "Simon Proctor" + "name" : "Simon Proctor", + "id" : "Simon Proctor" }, { + "id" : "W. Luis Mochan", "name" : "W. Luis Mochan", "data" : [ [ @@ -118,82 +202,17 @@ "Blog", 1 ] - ], - "id" : "W. Luis Mochan" + ] } ] }, - "xAxis" : { - "type" : "category" - }, - "plotOptions" : { - "series" : { - "borderWidth" : 0, - "dataLabels" : { - "format" : "{point.y}", - "enabled" : 1 - } - } + "title" : { + "text" : "The Weekly Challenge - 160" }, - "subtitle" : { - "text" : "[Champions: 9] Last updated at 2022-04-11 18:16:48 GMT" + "legend" : { + "enabled" : 0 }, - "series" : [ - { - "name" : "The Weekly Challenge - 160", - "data" : [ - { - "drilldown" : "E. Choroba", - "y" : 2, - "name" : "E. Choroba" - }, - { - "name" : "James Smith", - "drilldown" : "James Smith", - "y" : 3 - }, - { - "name" : "Luca Ferrari", - "y" : 8, - "drilldown" : "Luca Ferrari" - }, - { - "name" : "Marton Polgar", - "drilldown" : "Marton Polgar", - "y" : 2 - }, - { - "name" : "Matthew Neleigh", - "y" : 2, - "drilldown" : "Matthew Neleigh" - }, - { - "name" : "PokGoPun", - "drilldown" : "PokGoPun", - "y" : 2 - }, - { - "y" : 4, - "drilldown" : "Roger Bell_West", - "name" : "Roger Bell_West" - }, - { - "name" : "Simon Proctor", - "drilldown" : "Simon Proctor", - "y" : 2 - }, - { - "y" : 3, - "drilldown" : "W. Luis Mochan", - "name" : "W. Luis Mochan" - } - ], - "colorByPoint" : 1 - } - ], - "yAxis" : { - "title" : { - "text" : "Total Solutions" - } + "xAxis" : { + "type" : "category" } } diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json index b416aae68f..7ebce923e9 100644 --- a/stats/pwc-language-breakdown-summary.json +++ b/stats/pwc-language-breakdown-summary.json @@ -1,38 +1,35 @@ { - "chart" : { - "type" : "column" + "tooltip" : { + "pointFormat" : "<b>{point.y:.0f}</b>" }, - "title" : { - "text" : "The Weekly Challenge Contributions [2019 - 2022]" + "yAxis" : { + "min" : 0, + "title" : { + "text" : null + } }, "legend" : { "enabled" : "false" }, - "tooltip" : { - "pointFormat" : "<b>{point.y:.0f}</b>" + "title" : { + "text" : "The Weekly Challenge Contributions [2019 - 2022]" }, - "xAxis" : { - "type" : "category", - "labels" : { - "style" : { - "fontSize" : "13px", - "fontFamily" : "Verdana, sans-serif" - } - } + "chart" : { + "type" : "column" }, "series" : [ { "dataLabels" : { - "rotation" : -90, + "y" : 10, "format" : "{point.y:.0f}", - "style" : { - "fontFamily" : "Verdana, sans-serif", - "fontSize" : "13px" - }, - "enabled" : "true", "color" : "#FFFFFF", + "enabled" : "true", "align" : "right", - "y" : 10 + "style" : { + "fontSize" : "13px", + "fontFamily" : "Verdana, sans-serif" + }, + "rotation" : -90 }, "data" : [ [ @@ -41,23 +38,26 @@ ], [ "Perl", - 7723 + 7725 ], [ "Raku", - 4616 + 4618 ] ], "name" : "Contributions" } ], - "yAxis" : { - "min" : 0, - "title" : { - "text" : null - } - }, "subtitle" : { - "text" : "Last updated at 2022-04-11 18:16:48 GMT" + "text" : "Last updated at 2022-04-12 10:44:42 GMT" + }, + "xAxis" : { + "labels" : { + "style" : { + "fontFamily" : "Verdana, sans-serif", + "fontSize" : "13px" + } + }, + "type" : "category" } } diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json index 4a062e3002..ff658161fc 100644 --- a/stats/pwc-language-breakdown.json +++ b/stats/pwc-language-breakdown.json @@ -1,20 +1,20 @@ { "subtitle" : { - "text" : "Click the columns to drilldown the language breakdown. Last updated at 2022-04-11 18:16:48 GMT" + "text" : "Click the columns to drilldown the language breakdown. Last updated at 2022-04-12 10:44:42 GMT" }, "series" : [ { - "colorByPoint" : "true", + "name" : "The Weekly Challenge Languages", "data" : [ { - "name" : "#001", + "y" : 161, "drilldown" : "001", - "y" : 161 + "name" : "#001" }, { "name" : "#002", - "y" : 125, - "drilldown" : "002" + "drilldown" : "002", + "y" : 125 }, { "y" : 83, @@ -22,173 +22,173 @@ "name" : "#003" }, { - "name" : "#004", + "y" : 99, "drilldown" : "004", - "y" : 99 + "name" : "#004" }, { - "name" : "#005", "drilldown" : "005", + "name" : "#005", "y" : 78 }, { + "name" : "#006", "drilldown" : "006", - "y" : 58, - "name" : "#006" + "y" : 58 }, { + "drilldown" : "007", "name" : "#007", - "y" : 64, - "drilldown" : "007" + "y" : 64 }, { "y" : 78, - "drilldown" : "008", - "name" : "#008" + "name" : "#008", + "drilldown" : "008" }, { - "drilldown" : "009", "y" : 76, - "name" : "#009" + "name" : "#009", + "drilldown" : "009" }, { "name" : "#010", - "y" : 65, - "drilldown" : "010" + "drilldown" : "010", + "y" : 65 }, { - "y" : 85, + "name" : "#011", "drilldown" : "011", - "name" : "#011" + "y" : 85 }, { - "y" : 89, + "name" : "#012", "drilldown" : "012", - "name" : "#012" + "y" : 89 }, { + "drilldown" : "013", "name" : "#013", - "y" : 85, - "drilldown" : "013" + "y" : 85 }, { + "name" : "#014", "drilldown" : "014", - "y" : 101, - "name" : "#014" + "y" : 101 }, { - "name" : "#015", "y" : 99, + "name" : "#015", "drilldown" : "015" }, { - "name" : "#016", "y" : 71, + "name" : "#016", "drilldown" : "016" }, { "drilldown" : "017", - "y" : 84, - "name" : "#017" + "name" : "#017", + "y" : 84 }, { + "drilldown" : "018", "name" : "#018", - "y" : 81, - "drilldown" : "018" + "y" : 81 }, { - "name" : "#019", "y" : 103, - "drilldown" : "019" + "drilldown" : "019", + "name" : "#019" }, { "drilldown" : "020", - "y" : 101, - "name" : "#020" + "name" : "#020", + "y" : 101 }, { "name" : "#021", - "y" : 72, - "drilldown" : "021" + "drilldown" : "021", + "y" : 72 }, { + "drilldown" : "022", "name" : "#022", - "y" : 68, - "drilldown" : "022" + "y" : 68 }, { - "drilldown" : "023", "y" : 97, - "name" : "#023" + "name" : "#023", + "drilldown" : "023" }, { - "drilldown" : "024", "y" : 75, - "name" : "#024" + "name" : "#024", + "drilldown" : "024" }, { - "drilldown" : "025", "y" : 59, + "drilldown" : "025", "name" : "#025" }, { "name" : "#026", - "y" : 74, - "drilldown" : "026" + "drilldown" : "026", + "y" : 74 }, { - "name" : "#027", + "y" : 62, "drilldown" : "027", - "y" : 62 + "name" : "#027" }, { + "drilldown" : "028", "name" : "#028", - "y" : 82, - "drilldown" : "028" + "y" : 82 }, { - "name" : "#029", "y" : 81, - "drilldown" : "029" + "drilldown" : "029", + "name" : "#029" }, { + "name" : "#030", "drilldown" : "030", - "y" : 119, - "name" : "#030" + "y" : 119 }, { + "name" : "#031", "drilldown" : "031", - "y" : 91, - "name" : "#031" + "y" : 91 }, { - "name" : "#032", "drilldown" : "032", + "name" : "#032", "y" : 96 }, { - "name" : "#033", + "y" : 112, "drilldown" : "033", - "y" : 112 + "name" : "#033" }, { - "name" : "#034", "y" : 66, - "drilldown" : "034" + "drilldown" : "034", + "name" : "#034" }, { + "drilldown" : "035", "name" : "#035", - "y" : 66, - "drilldown" : "035" + "y" : 66 }, { + "name" : "#036", "drilldown" : "036", - "y" : 70, - "name" : "#036" + "y" : 70 }, { - "drilldown" : "037", "y" : 69, + "drilldown" : "037", "name" : "#037" }, { @@ -197,59 +197,59 @@ "y" : 70 }, { - "name" : "#039", "y" : 64, - "drilldown" : "039" + "drilldown" : "039", + "name" : "#039" }, { - "name" : "#040", "y" : 75, - "drilldown" : "040" + "drilldown" : "040", + "name" : "#040" }, { - "drilldown" : "041", "y" : 78, - "name" : "#041" + "name" : "#041", + "drilldown" : "041" }, { + "drilldown" : "042", "name" : "#042", - "y" : 94, - "drilldown" : "042" + "y" : 94 }, { - "name" : "#043", "y" : 70, - "drilldown" : "043" + "drilldown" : "043", + "name" : "#043" }, { - "name" : "#044", "y" : 87, - "drilldown" : "044" + "drilldown" : "044", + "name" : "#044" }, { "y" : 98, - "drilldown" : "045", - "name" : "#045" + "name" : "#045", + "drilldown" : "045" }, { - "drilldown" : "046", "y" : 89, + "drilldown" : "046", "name" : "#046" }, { - "name" : "#047", "y" : 86, - "drilldown" : "047" + "drilldown" : "047", + "name" : "#047" }, { - "y" : 110, "drilldown" : "048", - "name" : "#048" + "name" : "#048", + "y" : 110 }, { + "y" : 89, "name" : "#049", - "drilldown" : "049", - "y" : 89 + "drilldown" : "049" }, { "y" : 98, @@ -257,24 +257,24 @@ "name" : "#050" }, { - "name" : "#051", "y" : 89, + "name" : "#051", "drilldown" : "051" }, { + "y" : 91, "name" : "#052", - "drilldown" : "052", - "y" : 91 + "drilldown" : "052" }, { + "drilldown" : "053", "name" : "#053", - "y" : 101, - "drilldown" : "053" + "y" : 101 }, { "name" : "#054", - "y" : 103, - "drilldown" : "054" + "drilldown" : "054", + "y" : 103 }, { "name" : "#055", @@ -282,9 +282,9 @@ "y" : 88 }, { - "name" : "#056", + "y" : 95, "drilldown" : "056", - "y" : 95 + "name" : "#056" }, { "name" : "#057", @@ -292,24 +292,24 @@ "y" : 80 }, { - "y" : 69, "drilldown" : "058", - "name" : "#058" + "name" : "#058", + "y" : 69 }, { + "name" : "#059", "drilldown" : "059", - "y" : 89, - "name" : "#059" + "y" : 89 }, { - "name" : "#060", "y" : 85, + "name" : "#060", "drilldown" : "060" }, { - "name" : "#061", "y" : 81, - "drilldown" : "061" + "drilldown" : "061", + "name" : "#061" }, { "name" : "#062", @@ -317,8 +317,8 @@ "y" : 58 }, { - "name" : "#063", "drilldown" : "063", + "name" : "#063", "y" : 89 }, { @@ -327,34 +327,34 @@ "y" : 80 }, { + "name" : "#065", "drilldown" : "065", - "y" : 73,< |
