diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2021-10-20 08:07:03 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2021-10-20 08:07:03 +0100 |
| commit | 407abc71fee53f5e5477aa6cb19abb51741172ac (patch) | |
| tree | 69c73bfb6b0859aafaf13a852f21bbe75f9fd7ed | |
| parent | 703fcf238c31f42d6ad6c39204e3c6d2bf7f5bfb (diff) | |
| download | perlweeklychallenge-club-407abc71fee53f5e5477aa6cb19abb51741172ac.tar.gz perlweeklychallenge-club-407abc71fee53f5e5477aa6cb19abb51741172ac.tar.bz2 perlweeklychallenge-club-407abc71fee53f5e5477aa6cb19abb51741172ac.zip | |
- Added solutions by Peter Campbell Smith.
| -rwxr-xr-x | challenge-135/peter-campbell-smith/perl/ch-1.pl | 38 | ||||
| -rwxr-xr-x | challenge-135/peter-campbell-smith/perl/ch-2.pl | 67 | ||||
| -rw-r--r-- | stats/pwc-current.json | 107 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown-summary.json | 84 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown.json | 1890 | ||||
| -rw-r--r-- | stats/pwc-leaders.json | 746 | ||||
| -rw-r--r-- | stats/pwc-summary-1-30.json | 106 | ||||
| -rw-r--r-- | stats/pwc-summary-121-150.json | 130 | ||||
| -rw-r--r-- | stats/pwc-summary-151-180.json | 100 | ||||
| -rw-r--r-- | stats/pwc-summary-181-210.json | 104 | ||||
| -rw-r--r-- | stats/pwc-summary-211-240.json | 56 | ||||
| -rw-r--r-- | stats/pwc-summary-241-270.json | 58 | ||||
| -rw-r--r-- | stats/pwc-summary-31-60.json | 92 | ||||
| -rw-r--r-- | stats/pwc-summary-61-90.json | 104 | ||||
| -rw-r--r-- | stats/pwc-summary-91-120.json | 60 | ||||
| -rw-r--r-- | stats/pwc-summary.json | 54 |
16 files changed, 1958 insertions, 1838 deletions
diff --git a/challenge-135/peter-campbell-smith/perl/ch-1.pl b/challenge-135/peter-campbell-smith/perl/ch-1.pl new file mode 100755 index 0000000000..ee7221110b --- /dev/null +++ b/challenge-135/peter-campbell-smith/perl/ch-1.pl @@ -0,0 +1,38 @@ +#!/usr/bin/perl + +# Peter Campbell Smith - 2021-10-18 +# PWC 135 task 1 + +use v5.20; +use warnings; +use strict; + +# You are given an integer. + +# Write a script find out the middle 3-digits of the given integer, if possible +# otherwise throw sensible error. + +my ($n, $length); + +# input +print 'n: '; +$n = <>; +chomp($n); +say qq[\nInput: $n]; + +# output +print 'Output: '; +$length = length($n); + +if ($n !~ m|^\d+$|) { + say 'not an integer'; + +} elsif ($length < 3) { + say 'too short'; + +} elsif (($length & 1) == 0) { + say 'even number of digits'; + +} else { # valid number + say substr($n, ($length - 3) / 2, 3); +} diff --git a/challenge-135/peter-campbell-smith/perl/ch-2.pl b/challenge-135/peter-campbell-smith/perl/ch-2.pl new file mode 100755 index 0000000000..1be7631f5d --- /dev/null +++ b/challenge-135/peter-campbell-smith/perl/ch-2.pl @@ -0,0 +1,67 @@ +#!/usr/bin/perl + +# Peter Campbell Smith - 2021-10-18 +# PWC 135 task 2 + +use v5.20; +use warnings; +use strict; + +# You are given 7-characters alphanumeric SEDOL. + +# Write a script to validate the given SEDOL. +# Print 1 if it is a valid SEDOL otherwise 0. + +# A valid SEDOL: +# is 7 characters long +# has the first 6 chars matching [B-DF-HJ-NP-TV-Z0-9] +# has a digit 0-9 as the last char +# has a weighted sum of digits (see @weights) which is a multiple of 10 + +my (@weights, $sedol, @tests); + +@weights = (1, 3, 1, 7, 3, 9, 1); # weight of each char in the checksum (from Wikipedia) + +# check some known valid SEDOLs (taken from London Stock Exchange listings) +say "\n--- VALID ---"; +@tests = qw[0263494 B7S9G98 B1VZ0M2 B12WC93 B6T5S47 BDZWB75 BLGZ986 0798059]; +for $sedol (@tests) { + check_sedol($sedol); +} + +# check some known invalid SEDOLs +say "\n--- INVALID ---"; +@tests = qw[BBBBBBB CCCCCC ZZZZAZ0 BCDFGH* BDZWB76 1798059]; +for $sedol (@tests) { + check_sedol($sedol); +} + +sub check_sedol { + + my ($SEDOL, $check_sum, $j, $char, $char_value); + + $SEDOL = $_[0]; + say qq[\nInput: \$SEDOL = $SEDOL]; + + # check length and valid chars + unless ($SEDOL =~ m|^[B-DF-HJ-NP-TV-Z0-9]{6}\d$|) { + say qq[Output: 0 (wrong length or invalid chars)]; + return; + } + + # calculate checksum + @weights = (1, 3, 1, 7, 3, 9, 1); + $check_sum = 0; + for $j (0..6) { + $char = substr($SEDOL, $j, 1); + $char_value = ord($char) - ($char =~ m|\d| ? ord('0') : ord('A') - 10); + $check_sum += $weights[$j] * $char_value; + } + + # is it a multiple of 10? + if ($check_sum % 10 == 0) { + say 'Output: 1'; + } else { + say qq[Output: 0 (checksum is $check_sum - not a multiple of 10)]; + } +} diff --git a/stats/pwc-current.json b/stats/pwc-current.json index 090ad61d91..8e06be3d62 100644 --- a/stats/pwc-current.json +++ b/stats/pwc-current.json @@ -1,34 +1,29 @@ { - "chart" : { - "type" : "column" - }, - "yAxis" : { - "title" : { - "text" : "Total Solutions" + "plotOptions" : { + "series" : { + "dataLabels" : { + "enabled" : 1, + "format" : "{point.y}" + }, + "borderWidth" : 0 } }, - "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 - }, - "title" : { - "text" : "The Weekly Challenge - 135" + "subtitle" : { + "text" : "[Champions: 8] Last updated at 2021-10-20 07:05:46 GMT" }, "drilldown" : { "series" : [ { - "name" : "Abigail", + "id" : "Abigail", "data" : [ [ "Perl", 2 ] ], - "id" : "Abigail" + "name" : "Abigail" }, { - "id" : "Dave Jacoby", "data" : [ [ "Perl", @@ -39,9 +34,11 @@ 1 ] ], + "id" : "Dave Jacoby", "name" : "Dave Jacoby" }, { + "name" : "James Smith", "data" : [ [ "Perl", @@ -52,7 +49,6 @@ 1 ] ], - "name" : "James Smith", "id" : "James Smith" }, { @@ -71,26 +67,37 @@ }, { "name" : "Niels van Dijke", + "id" : "Niels van Dijke", + "data" : [ + [ + "Perl", + 2 + ] + ] + }, + { + "id" : "Paulo Custodio", "data" : [ [ "Perl", 2 ] ], - "id" : "Niels van Dijke" + "name" : "Paulo Custodio" }, { - "name" : "Paulo Custodio", "data" : [ [ "Perl", 2 ] ], - "id" : "Paulo Custodio" + "id" : "Peter Campbell Smith", + "name" : "Peter Campbell Smith" }, { "name" : "Roger Bell_West", + "id" : "Roger Bell_West", "data" : [ [ "Perl", @@ -100,28 +107,14 @@ "Raku", 2 ] - ], - "id" : "Roger Bell_West" + ] } ] }, - "subtitle" : { - "text" : "[Champions: 7] Last updated at 2021-10-20 06:42:25 GMT" - }, - "plotOptions" : { - "series" : { - "dataLabels" : { - "format" : "{point.y}", - "enabled" : 1 - }, - "borderWidth" : 0 - } - }, - "legend" : { - "enabled" : 0 - }, "series" : [ { + "name" : "The Weekly Challenge - 135", + "colorByPoint" : 1, "data" : [ { "y" : 2, @@ -135,8 +128,8 @@ }, { "y" : 3, - "name" : "James Smith", - "drilldown" : "James Smith" + "drilldown" : "James Smith", + "name" : "James Smith" }, { "y" : 4, @@ -149,21 +142,43 @@ "name" : "Niels van Dijke" }, { - "y" : 2, "name" : "Paulo Custodio", - "drilldown" : "Paulo Custodio" + "drilldown" : "Paulo Custodio", + "y" : 2 + }, + { + "drilldown" : "Peter Campbell Smith", + "name" : "Peter Campbell Smith", + "y" : 2 }, { "y" : 4, - "drilldown" : "Roger Bell_West", - "name" : "Roger Bell_West" + "name" : "Roger Bell_West", + "drilldown" : "Roger Bell_West" } - ], - "name" : "The Weekly Challenge - 135", - "colorByPoint" : 1 + ] } ], "xAxis" : { "type" : "category" + }, + "chart" : { + "type" : "column" + }, + "legend" : { + "enabled" : 0 + }, + "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/>" + }, + "yAxis" : { + "title" : { + "text" : "Total Solutions" + } + }, + "title" : { + "text" : "The Weekly Challenge - 135" } } diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json index 50062cc803..5ff7ab1199 100644 --- a/stats/pwc-language-breakdown-summary.json +++ b/stats/pwc-language-breakdown-summary.json @@ -1,7 +1,36 @@ { + "xAxis" : { + "type" : "category", + "labels" : { + "style" : { + "fontSize" : "13px", + "fontFamily" : "Verdana, sans-serif" + } + } + }, + "chart" : { + "type" : "column" + }, + "yAxis" : { + "min" : 0, + "title" : { + "text" : null + } + }, + "legend" : { + "enabled" : "false" + }, + "tooltip" : { + "pointFormat" : "<b>{point.y:.0f}</b>" + }, + "title" : { + "text" : "The Weekly Challenge Contributions [2019 - 2021]" + }, + "subtitle" : { + "text" : "Last updated at 2021-10-20 07:05:46 GMT" + }, "series" : [ { - "name" : "Contributions", "data" : [ [ "Blog", @@ -9,7 +38,7 @@ ], [ "Perl", - 6414 + 6416 ], [ "Raku", @@ -17,47 +46,18 @@ ] ], "dataLabels" : { - "y" : 10, - "enabled" : "true", "align" : "right", - "color" : "#FFFFFF", - "rotation" : -90, - "format" : "{point.y:.0f}", "style" : { - "fontFamily" : "Verdana, sans-serif", - "fontSize" : "13px" - } - } - } - ], - "xAxis" : { - "type" : "category", - "labels" : { - "style" : { - "fontFamily" : "Verdana, sans-serif", - "fontSize" : "13px" - } + "fontSize" : "13px", + "fontFamily" : "Verdana, sans-serif" + }, + "y" : 10, + "format" : "{point.y:.0f}", + "rotation" : -90, + "enabled" : "true", + "color" : "#FFFFFF" + }, + "name" : "Contributions" } - }, - "legend" : { - "enabled" : "false" - }, - "title" : { - "text" : "The Weekly Challenge Contributions [2019 - 2021]" - }, - "chart" : { - "type" : "column" - }, - "yAxis" : { - "title" : { - "text" : null - }, - "min" : 0 - }, - "tooltip" : { - "pointFormat" : "<b>{point.y:.0f}</b>" - }, - "subtitle" : { - "text" : "Last updated at 2021-10-20 06:42:24 GMT" - } + ] } diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json index 68773ba862..6808294af8 100644 --- a/stats/pwc-language-breakdown.json +++ b/stats/pwc-language-breakdown.json @@ -1,23 +1,725 @@ { + "xAxis" : { + "type" : "category" + }, + "chart" : { + "type" : "column" + }, + "title" : { + "text" : "The Weekly Challenge Language" + }, "yAxis" : { "title" : { "text" : "Total Solutions" } }, "tooltip" : { - "followPointer" : "true", "headerFormat" : "<span style=\"font-size:11px\"></span>", + "followPointer" : "true", "pointFormat" : "<span style=\"color:{point.color}\">Challenge {point.name}</span>: <b>{point.y:f}</b><br/>" }, - "chart" : { - "type" : "column" + "legend" : { + "enabled" : "false" }, - "title" : { - "text" : "The Weekly Challenge Language" + "subtitle" : { + "text" : "Click the columns to drilldown the language breakdown. Last updated at 2021-10-20 07:05:46 GMT" + }, + "plotOptions" : { + "series" : { + "dataLabels" : { + "enabled" : 1, + "format" : "{point.y}" + }, + "borderWidth" : 0 + } }, + "series" : [ + { + "name" : "The Weekly Challenge Languages", + "colorByPoint" : "true", + "data" : [ + { + "y" : 161, + "name" : "#001", + "drilldown" : "001" + }, + { + "drilldown" : "002", + "name" : "#002", + "y" : 125 + }, + { + "drilldown" : "003", + "name" : "#003", + "y" : 81 + }, + { + "drilldown" : "004", + "name" : "#004", + "y" : 99 + }, + { + "name" : "#005", + "drilldown" : "005", + "y" : 78 + }, + { + "drilldown" : "006", + "name" : "#006", + "y" : 58 + }, + { + "name" : "#007", + "drilldown" : "007", + "y" : 64 + }, + { + "name" : "#008", + "drilldown" : "008", + "y" : 78 + }, + { + "drilldown" : "009", + "name" : "#009", + "y" : 76 + }, + { + "drilldown" : "010", + "name" : "#010", + "y" : 65 + }, + { + "y" : 85, + "drilldown" : "011", + "name" : "#011" + }, + { + "name" : "#012", + "drilldown" : "012", + "y" : 89 + }, + { + "y" : 85, + "name" : "#013", + "drilldown" : "013" + }, + { + "drilldown" : "014", + "name" : "#014", + "y" : 101 + }, + { + "name" : "#015", + "drilldown" : "015", + "y" : 99 + }, + { + "y" : 71, + "name" : "#016", + "drilldown" : "016" + }, + { + "y" : 84, + "drilldown" : "017", + "name" : "#017" + }, + { + "drilldown" : "018", + "name" : "#018", + "y" : 81 + }, + { + "name" : "#019", + "drilldown" : "019", + "y" : 103 + }, + { + "y" : 101, + "name" : "#020", + "drilldown" : "020" + }, + { + "drilldown" : "021", + "name" : "#021", + "y" : 72 + }, + { + "name" : "#022", + "drilldown" : "022", + "y" : 68 + }, + { + "y" : 97, + "name" : "#023", + "drilldown" : "023" + }, + { + "name" : "#024", + "drilldown" : "024", + "y" : 75 + }, + { + "name" : "#025", + "drilldown" : "025", + "y" : 59 + }, + { + "name" : "#026", + "drilldown" : "026", + "y" : 74 + }, + { + "name" : "#027", + "drilldown" : "027", + "y" : 60 + }, + { + "y" : 80, + "drilldown" : "028", + "name" : "#028" + }, + { + "drilldown" : "029", + "name" : "#029", + "y" : 79 + }, + { + "y" : 117, + "name" : "#030", + "drilldown" : "030" + }, + { + "name" : "#031", + "drilldown" : "031", + "y" : 89 + }, + { + "name" : "#032", + "drilldown" : "032", + "y" : 94 + }, + { + "name" : "#033", + "drilldown" : "033", + "y" : 110 + }, + { + "y" : 64, + "drilldown" : "034", + "name" : "#034" + }, + { + "y" : 64, + "drilldown" : "035", + "name" : "#035" + }, + { + "drilldown" : "036", + "name" : "#036", + "y" : 68 + }, + { + "name" : "#037", + "drilldown" : "037", + "y" : 67 + }, + { + "drilldown" : "038", + "name" : "#038", + "y" : 68 + }, + { + "y" : 62, + "name" : "#039", + "drilldown" : "039" + }, + { + "name" : "#040", + "drilldown" : "040", + "y" : 73 + }, + { + "y" : 76, + "drilldown" : "041", + "name" : "#041" + }, + { + "y" : 92, + "drilldown" : "042", + "name" : "#042" + }, + { + "y" : 68, + "drilldown" : "043", + "name" : "#043" + }, + { + "y" : 85, + "name" : "#044", + "drilldown" : "044" + }, + { + "y" : 96, + "name" : "#045", + "drilldown" : "045" + }, + { + "y" : 87, + "drilldown" : "046", + "name" : "#046" + }, + { + "name" : "#047", + "drilldown" : "047", + "y" : 84 + }, + { + "y" : 108, + "name" : "#048", + "drilldown" : "048" + }, + { + "y" : 89, + "drilldown" : "049", + "name" : "#049" + }, + { + "drilldown" : "050", + "name" : "#050", + "y" : 98 + }, + { + "y" : 89, + "name" : "#051", + "drilldown" : "051" + }, + { + "name" : "#052", + "drilldown" : "052", + "y" : 91 + }, + { + "y" : 101, + "drilldown" : "053", + "name" : "#053" + }, + { + "name" : "#054", + "drilldown" : "054", + "y" : 103 + }, + { + "y" : 88, + "name" : "#055", + "drilldown" : "055" + }, + { + "name" : "#056", + "drilldown" : "056", + "y" : 95 + }, + { + "name" : "#057", + "drilldown" : "057", + "y" : 80 + }, + { + "y" : 69, + "name" : "#058", + "drilldown" : "058" + }, + { + "name" : "#059", + "drilldown" : "059", + "y" : 89 + }, + { + "drilldown" : "060", + "name" : "#060", + "y" : 85 + }, + { + "drilldown" : "061", + "name" : "#061", + "y" : 81 + }, + { + "y" : 58, + "name" : "#062", + "drilldown" : "062" + }, + { + "y" : 89, + "name" : "#063", + "drilldown" : "063" + }, + { + "y" : 80, + "name" : "#064", + "drilldown" : "064" + }, + { + "y" : 73, + "name" : "#065", + "drilldown" : "065" + }, + { + "drilldown" : "066", + "name" : "#066", + "y" : 84 + }, + { + "drilldown" : "067", + "name" : "#067", + "y" : 90 + }, + { + "drilldown" : "068", + "name" : "#068", + "y" : 75 + }, + { + "name" : "#069", + "drilldown" : "069", + "y" : 83 + }, + { + "y" : 93, + "drilldown" : "070", + "name" : "#070" + }, + { + "y" : 78, + "name" : "#071", + "drilldown" : "071" + }, + { + "y" : 112, + "name" : "#072", + "drilldown" : "072" + }, + { + "y" : 110, + "drilldown" : "073", + "name" : "#073" + }, + { + "y" : 115, + "drilldown" : "074", + "name" : "#074" + }, + { + "drilldown" : "075", + "name" : "#075", + "y" : 115 + }, + { + "y" : 99, + "name" : "#076", + "drilldown" : "076" + }, + { + "y" : 98, + "name" : "#077", + "drilldown" : "077" + }, + { + "y" : 127, + "drilldown" : "078", + "name" : "#078" + }, + { + "name" : "#079", + "drilldown" : "079", + "y" : 122 + }, + { + "y" : 127, + "name" : "#080", + "drilldown" : "080" + }, + { + "drilldown" : "081", + "name" : "#081", + "y" : 114 + }, + { + "drilldown" : "082", + "name" : "#082", + "y" : 114 + }, + { + "name" : "#083", + "drilldown" : "083", + "y" : 127 + }, + { + "y" : 119, + "name" : "#084", + "drilldown" : "084" + }, + { + "y" : 114, + "drilldown" : "085", + "name" : "#085" + }, + { + "y" : 104, + "name" : "#086", + "drilldown" : "086" + }, + { + "y" : 101, + "name" : "#087", + "drilldown" : "087" + }, + { + "name" : "#088", + "drilldown" : "088", + "y" : 121 + }, + { + "y" : 113, + "name" : "#089", + "drilldown" : "089" + }, + { + "y" : 113, + "name" : "#090", + "drilldown" : "090" + }, + { + "y" : 108, + "name" : "#091", + "drilldown" : "091" + }, + { + "y" : 98, + "drilldown" : "092", + "name" : "#092" + }, + { + "y" : 87, + "drilldown" : "093", + "name" : "#093" + }, + { + "y" : 87, + "name" : "#094", + "drilldown" : "094" + }, + { + "name" : "#095", + "drilldown" : "095", + "y" : 108 + }, + { + "y" : 108, + "name" : "#096", + "drilldown" : "096" + }, + { + "y" : 111, + "name" : "#097", + "drilldown" : "097" + }, + { + "y" : 108, + "drilldown" : "098", + "name" : "#098" + }, + { + "drilldown" : "099", + "name" : "#099", + "y" : 97 + }, + { + "y" : 120, + "drilldown" : "100", + "name" : "#100" + }, + { + "name" : "#101", + "drilldown" : "101", + "y" : 83 + }, + { + "y" : 90, + "drilldown" : "102", + "name" : "#102" + }, + { + "name" : "#103", + "drilldown" : "103", + "y" : 79 + }, + { + "y" : 85, + "name" : "#104", + "drilldown" : "104" + }, + { + "y" : 75, + "drilldown" : "105", + "name" : "#105" + }, + { + "drilldown" : "106", + "name" : "#106", + "y" : 97 + }, + { + "y" : 90, + "drilldown" : "107", + "name" : "#107" + }, + { + "name" : "#108", + "drilldown" : "108", + "y" : 94 + }, + { + "y" : 107, + "name" : "#109", + "drilldown" : "109" + }, + { + "y" : 108, + "drilldown" : "110", + "name" : "#110" + }, + { + "y" : 91, + "name" : "#111", + "drilldown" : "111" + }, + { + "y" : 92, + "name" : "#112", + "drilldown" : "112" + }, + { + "y" : 92, + "drilldown" : "113", + "name" : "#113" + }, + { + "y" : 108, + "drilldown" : "114", + "name" : "#114" + }, + { + "y" : 96, + "name" : "#115", + "drilldown" : "115" + }, + { + "y" : 95, + "name" : "#116", + "drilldown" : "116" + }, + { + "drilldown" : "117", + "name" : "#117", + "y" : 97 + }, + { + "y" : 81, + "name" : "#118", + "drilldown" : "118" + }, + { + "y" : 123, + "name" : "#119", + "drilldown" : "119" + }, + { + "y" : 114, + "name" : "#120", + "drilldown" : "120" + }, + { + "y" : 90, + "name" : "#121", |
