diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2022-04-18 22:10:40 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2022-04-18 22:10:40 +0100 |
| commit | aea6d64a2a5d1fb94d8019474dc581f7a7c7546f (patch) | |
| tree | df2460a825eb5db28d9cd63ae4acd20a22249dd4 | |
| parent | 15cbbbe3283a778186db7542fa048619b59d7a2d (diff) | |
| download | perlweeklychallenge-club-aea6d64a2a5d1fb94d8019474dc581f7a7c7546f.tar.gz perlweeklychallenge-club-aea6d64a2a5d1fb94d8019474dc581f7a7c7546f.tar.bz2 perlweeklychallenge-club-aea6d64a2a5d1fb94d8019474dc581f7a7c7546f.zip | |
- Added solutions by Robert DiCicco.
| -rw-r--r-- | challenge-161/robert-dicicco/perl/ch-1.pl | 70 | ||||
| -rw-r--r-- | challenge-161/robert-dicicco/perl/ch-2.pl | 75 | ||||
| -rw-r--r-- | stats/pwc-current.json | 135 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown-summary.json | 68 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown.json | 1144 | ||||
| -rw-r--r-- | stats/pwc-leaders.json | 400 | ||||
| -rw-r--r-- | stats/pwc-summary-1-30.json | 50 | ||||
| -rw-r--r-- | stats/pwc-summary-121-150.json | 92 | ||||
| -rw-r--r-- | stats/pwc-summary-151-180.json | 110 | ||||
| -rw-r--r-- | stats/pwc-summary-181-210.json | 54 | ||||
| -rw-r--r-- | stats/pwc-summary-211-240.json | 102 | ||||
| -rw-r--r-- | stats/pwc-summary-241-270.json | 64 | ||||
| -rw-r--r-- | stats/pwc-summary-31-60.json | 94 | ||||
| -rw-r--r-- | stats/pwc-summary-61-90.json | 38 | ||||
| -rw-r--r-- | stats/pwc-summary-91-120.json | 106 | ||||
| -rw-r--r-- | stats/pwc-summary.json | 40 |
16 files changed, 1401 insertions, 1241 deletions
diff --git a/challenge-161/robert-dicicco/perl/ch-1.pl b/challenge-161/robert-dicicco/perl/ch-1.pl new file mode 100644 index 0000000000..0016c881c6 --- /dev/null +++ b/challenge-161/robert-dicicco/perl/ch-1.pl @@ -0,0 +1,70 @@ +#!perl.exe + +use strict; +use warnings; +use feature qw/say/; + +# AUTHOR: Robert DiCicco +# DATE: 18-APR-2022 +# Challenge 161 Abecedarian Words ( Perl ) + +###### Bees bellow in bop cellos! ß--------------- + +my @sorted; +my @elements; + +sub wordCheck { + my $word = shift; + + my $new = join('',sort(split(//,$word))); # split the word, sort it, + # compare sorted value to supplied value + if ($new eq $word){ # return 1 if equal, else return 0 + return(1); + } + + return(0); +} + +sub printByLengthDesc { + + @sorted = sort { length($b) <=> length($a) } @_; # sorted by descending length + + my $cnt = 0; + + #my $row = 1; + + foreach (@sorted) { + print("$sorted[$cnt] "); + $cnt++; + + if(($cnt % 24) == 0){ + print "\n"; + } + } + + print "\n"; +} + +sub main { + + # ARGV[0] points to your dictionary file + # Usage: ./Abecedarian.pl "your_dict_file.txt" + + open(FP, '<', $ARGV[0]) or die "Can't open $ARGV[0]. $!\n"; + + while(my $word = <FP>){ + chomp($word); + if ( $word =~ /^[A-z]*/) { + my $retval = wordCheck($word); + if ($retval == 1 ) { + push(@elements, $word); + } + } + } + + close(FP); + + printByLengthDesc(@elements); +} + +main(); diff --git a/challenge-161/robert-dicicco/perl/ch-2.pl b/challenge-161/robert-dicicco/perl/ch-2.pl new file mode 100644 index 0000000000..6611c01c53 --- /dev/null +++ b/challenge-161/robert-dicicco/perl/ch-2.pl @@ -0,0 +1,75 @@ +#!perl.exe + +use strict; +use warnings; +use feature qw/say/; + +# AUTHOR: Robert DiCicco +# DATE: 18-APR-2022 +# Challenge 161 Pangrams ( Perl ) + +my %alphabet; +my %lettercnt; + +my $cnt = 0; +my $file = 'PangramWords.txt'; # Pangram which contains only abecedarian words (see challenge 1) + +sub ReadRandomLine { + + open(FH ,'<', $file) or die $!; + + my $size = -s FH; + seek FH, rand($size) , 0; + <FH>; # throw away current line; + + my $randomline = <FH>; + + if($randomline){ + $randomline =~ s/^\s+|\s+$//g; # trim left and right + return($randomline); + close FH; + } + + close FH; +} + +sub analyze { + my $word = shift; + + my @arr = split(//,$word); # split to individual letters + foreach my $letter (@arr){ + next if $letter !~ /[a-z]/; + + if (! exists($alphabet{$letter})) { # set char value in array if not there + $alphabet{$letter} = 1; + } + } +} + +print "Uses Abecedarian words from Challenge 1:\n"; + +while(1) { + + my $new = ReadRandomLine(); + if($new){ + analyze($new); + } + + my $size = keys %alphabet; # how many letters we have used + + if (! exists($lettercnt{$size})) { + $lettercnt{$size} = 1; + print "$new "; + } + + last if( $size == 26 ); # we have them all +} + +print "\n"; +print "Letters used: "; + +foreach my $name (sort keys %alphabet) { + print $name; +} + +print "\n"; diff --git a/stats/pwc-current.json b/stats/pwc-current.json index 49c11bc7ec..e444b116b5 100644 --- a/stats/pwc-current.json +++ b/stats/pwc-current.json @@ -1,43 +1,89 @@ { + "xAxis" : { + "type" : "category" + }, + "yAxis" : { + "title" : { + "text" : "Total Solutions" + } + }, + "chart" : { + "type" : "column" + }, + "series" : [ + { + "colorByPoint" : 1, + "data" : [ + { + "name" : "Mark Anderson", + "drilldown" : "Mark Anderson", + "y" : 2 + }, + { + "y" : 2, + "drilldown" : "Paulo Custodio", + "name" : "Paulo Custodio" + }, + { + "drilldown" : "Peter Campbell Smith", + "y" : 3, + "name" : "Peter Campbell Smith" + }, + { + "drilldown" : "Robert DiCicco", + "y" : 2, + "name" : "Robert DiCicco" + }, + { + "y" : 4, + "drilldown" : "Roger Bell_West", + "name" : "Roger Bell_West" + } + ], + "name" : "The Weekly Challenge - 161" + } + ], + "subtitle" : { + "text" : "[Champions: 5] Last updated at 2022-04-18 21:09:11 GMT" + }, + "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" : { + "borderWidth" : 0, "dataLabels" : { "enabled" : 1, "format" : "{point.y}" - }, - "borderWidth" : 0 + } } }, - "title" : { - "text" : "The Weekly Challenge - 161" - }, - "chart" : { - "type" : "column" - }, - "subtitle" : { - "text" : "[Champions: 4] Last updated at 2022-04-18 19:33:29 GMT" + "legend" : { + "enabled" : 0 }, "drilldown" : { "series" : [ { + "id" : "Mark Anderson", + "name" : "Mark Anderson", "data" : [ [ "Raku", 2 ] - ], - "id" : "Mark Anderson", - "name" : "Mark Anderson" + ] }, { + "id" : "Paulo Custodio", + "name" : "Paulo Custodio", "data" : [ [ "Perl", 2 ] - ], - "name" : "Paulo Custodio", - "id" : "Paulo Custodio" + ] }, { "data" : [ @@ -54,6 +100,16 @@ "id" : "Peter Campbell Smith" }, { + "id" : "Robert DiCicco", + "name" : "Robert DiCicco", + "data" : [ + [ + "Perl", + 2 + ] + ] + }, + { "id" : "Roger Bell_West", "name" : "Roger Bell_West", "data" : [ @@ -69,48 +125,7 @@ } ] }, - "legend" : { - "enabled" : 0 - }, - "yAxis" : { - "title" : { - "text" : "Total Solutions" - } - }, - "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 - }, - "xAxis" : { - "type" : "category" - }, - "series" : [ - { - "name" : "The Weekly Challenge - 161", - "data" : [ - { - "y" : 2, - "name" : "Mark Anderson", - "drilldown" : "Mark Anderson" - }, - { - "name" : "Paulo Custodio", - "drilldown" : "Paulo Custodio", - "y" : 2 - }, - { - "y" : 3, - "name" : "Peter Campbell Smith", - "drilldown" : "Peter Campbell Smith" - }, - { - "y" : 4, - "name" : "Roger Bell_West", - "drilldown" : "Roger Bell_West" - } - ], - "colorByPoint" : 1 - } - ] + "title" : { + "text" : "The Weekly Challenge - 161" + } } diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json index dd353f4264..124b6ec80a 100644 --- a/stats/pwc-language-breakdown-summary.json +++ b/stats/pwc-language-breakdown-summary.json @@ -2,29 +2,29 @@ "title" : { "text" : "The Weekly Challenge Contributions [2019 - 2022]" }, - "chart" : { - "type" : "column" - }, - "yAxis" : { - "title" : { - "text" : null - }, - "min" : 0 + "legend" : { + "enabled" : "false" }, - "xAxis" : { - "labels" : { - "style" : { - "fontFamily" : "Verdana, sans-serif", - "fontSize" : "13px" - } - }, - "type" : "category" + "subtitle" : { + "text" : "Last updated at 2022-04-18 21:09:11 GMT" }, "tooltip" : { "pointFormat" : "<b>{point.y:.0f}</b>" }, "series" : [ { + "dataLabels" : { + "style" : { + "fontSize" : "13px", + "fontFamily" : "Verdana, sans-serif" + }, + "color" : "#FFFFFF", + "rotation" : -90, + "format" : "{point.y:.0f}", + "align" : "right", + "y" : 10, + "enabled" : "true" + }, "name" : "Contributions", "data" : [ [ @@ -33,31 +33,31 @@ ], [ "Perl", - 7808 + 7810 ], [ "Raku", 4645 ] - ], - "dataLabels" : { - "enabled" : "true", - "align" : "right", - "y" : 10, - "style" : { - "fontSize" : "13px", - "fontFamily" : "Verdana, sans-serif" - }, - "rotation" : -90, - "color" : "#FFFFFF", - "format" : "{point.y:.0f}" - } + ] } ], - "subtitle" : { - "text" : "Last updated at 2022-04-18 19:33:29 GMT" + "chart" : { + "type" : "column" }, - "legend" : { - "enabled" : "false" + "yAxis" : { + "min" : 0, + "title" : { + "text" : null + } + }, + "xAxis" : { + "labels" : { + "style" : { + "fontSize" : "13px", + "fontFamily" : "Verdana, sans-serif" + } + }, + "type" : "category" } } diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json index ca93d4eb41..c8ddc73c82 100644 --- a/stats/pwc-language-breakdown.json +++ b/stats/pwc-language-breakdown.json @@ -1,39 +1,19 @@ { - "plotOptions" : { - "series" : { - "dataLabels" : { - "enabled" : 1, - "format" : "{point.y}" - }, - "borderWidth" : 0 - } - }, - "chart" : { - "type" : "column" - }, - "title" : { - "text" : "The Weekly Challenge Language" - }, - "tooltip" : { - "headerFormat" : "<span style=\"font-size:11px\"></span>", - "pointFormat" : "<span style=\"color:{point.color}\">Challenge {point.name}</span>: <b>{point.y:f}</b><br/>", - "followPointer" : "true" - }, - "xAxis" : { - "type" : "category" - }, "yAxis" : { "title" : { "text" : "Total Solutions" } }, + "chart" : { + "type" : "column" + }, "series" : [ { "colorByPoint" : "true", "data" : [ { - "drilldown" : "001", "name" : "#001", + "drilldown" : "001", "y" : 161 }, { @@ -42,88 +22,88 @@ "y" : 125 }, { - "y" : 83, "name" : "#003", + "y" : 83, "drilldown" : "003" }, { "drilldown" : "004", - "name" : "#004", - "y" : 99 + "y" : 99, + "name" : "#004" }, { "y" : 78, - "name" : "#005", - "drilldown" : "005" + "drilldown" : "005", + "name" : "#005" }, { - "y" : 58, "drilldown" : "006", + "y" : 58, "name" : "#006" }, { - "name" : "#007", "drilldown" : "007", - "y" : 64 + "y" : 64, + "name" : "#007" }, { - "name" : "#008", "drilldown" : "008", - "y" : 78 + "y" : 78, + "name" : "#008" }, { + "y" : 76, "drilldown" : "009", - "name" : "#009", - "y" : 76 + "name" : "#009" }, { "drilldown" : "010", - "name" : "#010", - "y" : 65 + "y" : 65, + "name" : "#010" }, { "drilldown" : "011", - "name" : "#011", - "y" : 85 + "y" : 85, + "name" : "#011" }, { - "name" : "#012", "drilldown" : "012", - "y" : 89 + "y" : 89, + "name" : "#012" }, { + "y" : 85, "drilldown" : "013", - "name" : "#013", - "y" : 85 + "name" : "#013" }, { - "name" : "#014", + "y" : 101, "drilldown" : "014", - "y" : 101 + "name" : "#014" }, { - "drilldown" : "015", "name" : "#015", - "y" : 99 + "y" : 99, + "drilldown" : "015" }, { "name" : "#016", - "drilldown" : "016", - "y" : 71 + "y" : 71, + "drilldown" : "016" }, { "name" : "#017", - "drilldown" : "017", - "y" : 84 + "y" : 84, + "drilldown" : "017" }, { - "name" : "#018", "drilldown" : "018", - "y" : 81 + "y" : 81, + "name" : "#018" }, { - "y" : 103, "name" : "#019", + "y" : 103, "drilldown" : "019" }, { @@ -133,23 +113,23 @@ }, { "name" : "#021", - "drilldown" : "021", - "y" : 72 + "y" : 72, + "drilldown" : "021" }, { + "name" : "#022", "y" : 68, - "drilldown" : "022", - "name" : "#022" + "drilldown" : "022" }, { + "y" : 97, "drilldown" : "023", - "name" : "#023", - "y" : 97 + "name" : "#023" }, { + "y" : 75, "drilldown" : "024", - "name" : "#024", - "y" : 75 + "name" : "#024" }, { "name" : "#025", @@ -157,9 +137,9 @@ "y" : 59 }, { - "name" : "#026", "drilldown" : "026", - "y" : 74 + "y" : 74, + "name" : "#026" }, { "name" : "#027", @@ -168,62 +148,62 @@ }, { "y" : 82, - "name" : "#028", - "drilldown" : "028" + "drilldown" : "028", + "name" : "#028" }, { - "y" : 81, "name" : "#029", - "drilldown" : "029" + "drilldown" : "029", + "y" : 81 }, { + "y" : 119, "drilldown" : "030", - "name" : "#030", - "y" : 119 + "name" : "#030" }, { + "name" : "#031", "y" : 91, - "drilldown" : "031", - "name" : "#031" + "drilldown" : "031" }, { "drilldown" : "032", - "name" : "#032", - "y" : 96 + "y" : 96, + "name" : "#032" }, { "name" : "#033", - "drilldown" : "033", - "y" : 112 + "y" : 112, + "drilldown" : "033" }, { - "y" : 66, + "name" : "#034", "drilldown" : "034", - "name" : "#034" + "y" : 66 }, { - "y" : 66, "drilldown" : "035", + "y" : 66, "name" : "#035" }, { - "y" : 70, "name" : "#036", + "y" : 70, "drilldown" : "036" }, { "drilldown" : "037", - "name" : "#037", - "y" : 69 + "y" : 69, + "name" : "#037" }, { - "y" : 70, "name" : "#038", + "y" : 70, "drilldown" : "038" }, { - "y" : 64, "drilldown" : "039", + "y" : 64, "name" : "#039" }, { @@ -233,43 +213,43 @@ }, { "drilldown" : "041", - "name" : "#041", - "y" : 78 + "y" : 78, + "name" : "#041" }, { + "y" : 94, "drilldown" : "042", - "name" : "#042", - "y" : 94 + "name" : "#042" }, { - "name" : "#043", "drilldown" : "043", - "y" : 70 + "y" : 70, + "name" : "#043" }, { + "y" : 87, "drilldown" : "044", - "name" : "#044", - "y" : 87 + "name" : "#044" }, { "drilldown" : "045", - "name" : "#045", - "y" : 98 + "y" : 98, + "name" : "#045" }, { - "name" : "#046", + "y" : 89, "drilldown" : "046", - "y" : 89 + "name" : "#046" }, { + "drilldown" : "047", "y" : 86, - "name" : "#047", - "drilldown" : "047" + "name" : "#047" }, { "name" : "#048", - "drilldown" : "048", - "y" : 110 + "y" : 110, + "drilldown" : "048" }, { "name" : "#049", @@ -277,34 +257,34 @@ "y" : 91 }, { - "name" : "#050", "drilldown" : "050", - "y" : 100 + "y" : 100, + "name" : "#050" }, { + "drilldown" : "051", "y" : 91, - "name" : "#051", - "drilldown" : "051" + "name" : "#051" }, { + "y" : 93, "drilldown" : "052", - "name" : "#052", - "y" : 93 + "name" : "#052" }, { - "name" : "#053", "drilldown" : "053", - "y" : 103 + "y" : 103, + "name" : "#053" }, { + "drilldown" : "054", "y" : 105, - "name" : "#054", - "drilldown" : "054" + "name" : "#054" }, { "y" : 90, - "name" : "#055", - "drilldown" : "055" + "drilldown" : "055", + "name" : "#055" }, { "name" : "#056", @@ -312,9 +292,9 @@ "y" : 97 }, { - "drilldown" : "057", "name" : "#057", - "y" : 82 + "y" : 82, + "drilldown" : "057" }, { "name" : "#058", @@ -322,34 +302,34 @@ "y" : 71 }, { - "drilldown" : "059", "name" : "#059", + "drilldown" : "059", "y" : 91 }, { - "drilldown" : "060", "name" : "#060", - "y" : 87 + "y" : 87, + "drilldown" : "060" }, { + "name" : "#061", "y" : 83, - "drilldown" : "061", - "name" : "#061" + "drilldown" : "061" }, { - "drilldown" : "062", "name" : "#062", + "drilldown" : "062", "y" : 60 }, { "y" : 91, - "name" : "#063", - "drilldown" : "063" + "drilldown" : "063", + "name" : "#063" }, { - "y" : 82, + "name" : "#064", "drilldown" : "064", - "name" : "#064" + "y" : 82 }, { "y" : 75, @@ -357,34 +337,34 @@ "name" : "#065" }, { + "drilldown" : "066", "y" : 86, - "name" : "#066", - "drilldown" : "066" + "name" : "#066" }, { - "y" : 90, "name" : "#067", - "drilldown" : "067" + "drilldown" : "067", + "y" : 90 }, { - "y" : 75, + "name" : "#068", "drilldown" : "068", - "name" : "#068" + "y" : 75 }, { - "name" : "#069", + "y" : 83, "drilldown" : "069", - "y" : 83 + "name" : "#069" }, { - "drilldown" : "070", "name" : "#070", - "y" : 93 + "y" : 93, + "drilldown" : "070" }, { - "name" : "#071", + "y" : 78, "drilldown" : "071", - "y" : 78 + "name" : "#071" }, { "name" : "#072", @@ -392,44 +372,44 @@ "y" : 112 }, { + "y" : 110, "drilldown" : "073", - "name" : "#073", - "y" : 110 + "name" : "#073" }, { + "name" : "#074", "y" : 115, - "drilldown" : "074", - "name" : "#074" + "drilldown" : "074" }, { + "name" : "#075", "y" : 115, - "drilldown" : "075", - "name" : "#075" + "drilldown" : "075" }, { - "y" : 101, "name" : "#076", + "y" : 101, "drilldown" : "076" }, { - "drilldown" : "077", "name" : "#077", + "drilldown" : "077", "y" : 98 }, { + "drilldown" : "078", "y" : 127, - "name" : "#078", - "drilldown" : "078" + "name" : "#078" }, { - "y" : 122, "drilldown" : "079", + "y" : 122, "name" : "#079" }, { "y" : 127, - "name" : "#080", - "drilldown" : "080" + "drilldown" : "080", + "name" : "#080" }, { "name" : "#081", @@ -437,19 +417,19 @@ "y" : 114 }, { - "y" : 114, "name" : "#082", + "y" : 114, "drilldown" : "082" }, { "name" : "#083", - "drilldown" : "083", - "y" : 127 + "y" : 127, + "drilldown" : "083" }, { + "drilldown" : "084", "y" : 119, - "name" : "#084", - "drilldown" : "084" + "name" : "#084" }, { "name" : "#085", @@ -457,134 +437,134 @@ "y" : 114 }, { - "drilldown" : "086", "name" : "#086", + "drilldown" : "086", "y" : 104 }, { "drilldown" : "087", - "name" : "#087", - "y" : 101 + "y" : 101, + "name" : "#087" }, { "drilldown" : "088", - "name" : "#088", - "y" : 121 + "y" : 121, + "name" : "#088" }, { - "name" : "#089", "drilldown" : "089", - "y" : 113 + "y" : 113, + "name" : "#089" }, { "name" : "#090", - "drilldown" : "090", - "y" : 113 + "y" : 113, + "drilldown" : "090" }, { "y" : 108, - "name" : "#091", - "drilldown" : "091" + "drilldown" : "091", + "name" : "#091" }, { + "drilldown" : "092", "y" : 98, - "name" : "#092", - "drilldown" : "092" + "name" : "#092" }, { - "y" : 87, "name" : "#093", + "y" : 87, "drilldown" : "093" }, { - "y" : 87, + "name" : "#094", "drilldown" : "094", |
