diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-06-13 13:33:32 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-06-13 13:33:32 +0100 |
| commit | 8b1109f2c5e11d9b7b88e9ff188c2b3137060561 (patch) | |
| tree | 80ab5c9e44858c56d86b52d364068e4b034f8183 | |
| parent | 41ee0088c32048507dd6ad03ee94b22715a5cf9a (diff) | |
| download | perlweeklychallenge-club-8b1109f2c5e11d9b7b88e9ff188c2b3137060561.tar.gz perlweeklychallenge-club-8b1109f2c5e11d9b7b88e9ff188c2b3137060561.tar.bz2 perlweeklychallenge-club-8b1109f2c5e11d9b7b88e9ff188c2b3137060561.zip | |
- Added solutions by Ulrich Rieke.
| -rw-r--r-- | challenge-064/ulrich-rieke/perl/ch-1.pl | 103 | ||||
| -rw-r--r-- | challenge-064/ulrich-rieke/perl/ch-2.pl | 19 | ||||
| -rw-r--r-- | stats/pwc-current.json | 255 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown-summary.json | 60 | ||||
| -rw-r--r-- | stats/pwc-language-breakdown.json | 918 | ||||
| -rw-r--r-- | stats/pwc-leaders.json | 766 | ||||
| -rw-r--r-- | stats/pwc-summary-1-30.json | 50 | ||||
| -rw-r--r-- | stats/pwc-summary-121-150.json | 116 | ||||
| -rw-r--r-- | stats/pwc-summary-151-180.json | 92 | ||||
| -rw-r--r-- | stats/pwc-summary-31-60.json | 126 | ||||
| -rw-r--r-- | stats/pwc-summary-61-90.json | 122 | ||||
| -rw-r--r-- | stats/pwc-summary-91-120.json | 106 | ||||
| -rw-r--r-- | stats/pwc-summary.json | 396 |
13 files changed, 1633 insertions, 1496 deletions
diff --git a/challenge-064/ulrich-rieke/perl/ch-1.pl b/challenge-064/ulrich-rieke/perl/ch-1.pl new file mode 100644 index 0000000000..eb597d9f9c --- /dev/null +++ b/challenge-064/ulrich-rieke/perl/ch-1.pl @@ -0,0 +1,103 @@ +#!/usr/bin/perl ; +use strict ; +use warnings ; +use Algorithm::Combinatorics qw ( variations_with_repetition ) ; + +sub enterArray { + my $columns = shift ; + my $rows = shift ; + my $rowcount = 0 ; + my @array ; + while ( $rowcount != $rows ) { + print "Enter $columns integers, separated by space!\n" ; + my $input = <STDIN> ; + chomp $input ; + while ( scalar ( split ( /\s+/ , $input ) ) != $columns ) { + print "Not enough columns entered! Please repeat entry!\n" ; + $input = <STDIN> ; + chomp $input ; + } + my @line = split ( /\s+/ , $input ) ; + push ( @array , \@line ) ; + $rowcount++ ; + } + return @array ; +} + +#we have to create different paths through the number array. +#we can do that by defining rightways shifts for every different row. +#to arrive at the right lower point, the rightward shifts in every row +#have to add up to the number of columns. +#I numbered the columns from 0 to columns - 1. +#by creating "variations with repetitions" with as many elements as rows +#and selecting those that add up to the number of columns I get +#combinations of shifts per row that lead to the right lower corner +sub createPaths { + my $columns = shift ; + my $rows = shift ; + my @onerow = (0..$columns - 1) ; + my @possibleCombis ; + my $iter = variations_with_repetition( \@onerow, $rows ) ; + while ( my $p = $iter->next ) { + if ( sumUpArray( $p ) == $columns - 1 ) { + push( @possibleCombis, $p ) ; + } + } + return @possibleCombis ; +} + +sub sumUpArray { + my $array = shift ; + my $sum = 0 ; + for my $i ( @{$array} ) { + $sum += $i ; + } + return $sum ; +} + +#the number array and the list of shift combinations per row are taken +#in as parameters. We then go through the array and pick up numbers on +#the way +sub findPath { + my $numbers = shift ; + my $path = shift ; + my @nums ; + my @array = @{$numbers} ; + my $currentcolumn = 0 ; + my $currentrow = 0 ; + while ( @{$path} ) { + my $howmany = shift @{$path} ; + if ( $howmany > 0 ) { + push( @nums , @{$array[ $currentrow ] }[ $currentcolumn.. + $currentcolumn + $howmany]) ; + $currentcolumn += $howmany ; + } + else { + push( @nums , ${$array[ $currentrow ]}[$currentcolumn] ) ; + } + $currentrow++ ; + } + return @nums ; +} + +print "How many columns ?\n" ; +my $columns = <STDIN> ; +chomp $columns ; +print "How many rows ?\n" ; +my $rows = <STDIN> ; +chomp $rows ; +my @numbers = enterArray( $columns , $rows ) ; +my @combis = createPaths( $columns, $rows ) ; +my $minsum = 1000000 ; +my @minpath ; +foreach my $c ( @combis ) { + my @nums = findPath( \@numbers , $c ) ; + my $sum = sumUpArray( \@nums ) ; + if ( $sum < $minsum ) { + $minsum = $sum ; + @minpath = @nums ; + } +} +print "$minsum(" ; +print join ( '->' , @minpath ) ; +print ")\n" ; diff --git a/challenge-064/ulrich-rieke/perl/ch-2.pl b/challenge-064/ulrich-rieke/perl/ch-2.pl new file mode 100644 index 0000000000..53977cdd89 --- /dev/null +++ b/challenge-064/ulrich-rieke/perl/ch-2.pl @@ -0,0 +1,19 @@ +#!/usr/bin/perl ; +use strict ; +use warnings ; + +my $S = $ARGV[0] ; +my @W = ( "weekly" , "challenge" , "perl" ) ; +my @found ; +for my $word ( @W ) { + if ( $S =~ /$word/ ) { + push( @found , $word ) ; + } +} +if ( @found ) { + print join( ',' , @found ) ; + print "\n" ; +} +else { + print "0 as none matching word found.\n" ; +} diff --git a/stats/pwc-current.json b/stats/pwc-current.json index 1ac39e16fe..5046552b1a 100644 --- a/stats/pwc-current.json +++ b/stats/pwc-current.json @@ -1,34 +1,101 @@ { - "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/>" - }, "xAxis" : { "type" : "category" }, - "plotOptions" : { - "series" : { - "borderWidth" : 0, - "dataLabels" : { - "enabled" : 1, - "format" : "{point.y}" - } - } + "title" : { + "text" : "Perl Weekly Challenge - 064" }, - "subtitle" : { - "text" : "[Champions: 13] Last updated at 2020-06-13 05:51:43 GMT" + "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 }, - "yAxis" : { - "title" : { - "text" : "Total Solutions" + "series" : [ + { + "name" : "Perl Weekly Challenge - 064", + "data" : [ + { + "drilldown" : "Bartosz Jarzyna", + "name" : "Bartosz Jarzyna", + "y" : 3 + }, + { + "drilldown" : "Dave Jacoby", + "y" : 3, + "name" : "Dave Jacoby" + }, + { + "drilldown" : "E. Choroba", + "y" : 2, + "name" : "E. Choroba" + }, + { + "drilldown" : "Javier Luque", + "name" : "Javier Luque", + "y" : 5 + }, + { + "drilldown" : "Leo Manfredi", + "name" : "Leo Manfredi", + "y" : 1 + }, + { + "drilldown" : "Luca Ferrari", + "name" : "Luca Ferrari", + "y" : 4 + }, + { + "name" : "Mark Anderson", + "y" : 2, + "drilldown" : "Mark Anderson" + }, + { + "y" : 4, + "name" : "Mohammad S Anwar", + "drilldown" : "Mohammad S Anwar" + }, + { + "drilldown" : "Niels van Dijke", + "name" : "Niels van Dijke", + "y" : 2 + }, + { + "drilldown" : "Richard Hainsworth", + "name" : "Richard Hainsworth", + "y" : 1 + }, + { + "drilldown" : "Roger Bell_West", + "y" : 5, + "name" : "Roger Bell_West" + }, + { + "y" : 2, + "name" : "Simon Proctor", + "drilldown" : "Simon Proctor" + }, + { + "drilldown" : "Ulrich Rieke", + "name" : "Ulrich Rieke", + "y" : 2 + }, + { + "name" : "Wanderdoc", + "y" : 2, + "drilldown" : "Wanderdoc" + } + ], + "colorByPoint" : 1 } + ], + "subtitle" : { + "text" : "[Champions: 14] Last updated at 2020-06-13 12:33:13 GMT" }, "drilldown" : { "series" : [ { - "id" : "Bartosz Jarzyna", "name" : "Bartosz Jarzyna", + "id" : "Bartosz Jarzyna", "data" : [ [ "Perl", @@ -42,7 +109,6 @@ }, { "id" : "Dave Jacoby", - "name" : "Dave Jacoby", "data" : [ [ "Perl", @@ -52,11 +118,12 @@ "Blog", 1 ] - ] + ], + "name" : "Dave Jacoby" }, { - "id" : "E. Choroba", "name" : "E. Choroba", + "id" : "E. Choroba", "data" : [ [ "Perl", @@ -65,7 +132,6 @@ ] }, { - "name" : "Javier Luque", "id" : "Javier Luque", "data" : [ [ @@ -80,17 +146,18 @@ "Blog", 1 ] - ] + ], + "name" : "Javier Luque" }, { + "id" : "Leo Manfredi", "data" : [ [ "Perl", 1 ] ], - "name" : "Leo Manfredi", - "id" : "Leo Manfredi" + "name" : "Leo Manfredi" }, { "data" : [ @@ -107,17 +174,16 @@ "name" : "Luca Ferrari" }, { + "name" : "Mark Anderson", + "id" : "Mark Anderson", "data" : [ [ "Raku", 2 ] - ], - "name" : "Mark Anderson", - "id" : "Mark Anderson" + ] }, { - "id" : "Mohammad S Anwar", "name" : "Mohammad S Anwar", "data" : [ [ @@ -132,30 +198,30 @@ "Blog", 1 ] - ] + ], + "id" : "Mohammad S Anwar" }, { "id" : "Niels van Dijke", - "name" : "Niels van Dijke", "data" : [ [ "Perl", 2 ] - ] + ], + "name" : "Niels van Dijke" }, { + "id" : "Richard Hainsworth", "data" : [ [ "Raku", 1 ] ], - "name" : "Richard Hainsworth", - "id" : "Richard Hainsworth" + "name" : "Richard Hainsworth" }, { - "name" : "Roger Bell_West", "id" : "Roger Bell_West", "data" : [ [ @@ -170,110 +236,59 @@ "Blog", 1 ] - ] + ], + "name" : "Roger Bell_West" }, { - "id" : "Simon Proctor", - "name" : "Simon Proctor", "data" : [ [ "Raku", 2 ] - ] + ], + "id" : "Simon Proctor", + "name" : "Simon Proctor" }, { - "id" : "Wanderdoc", - "name" : "Wanderdoc", + "name" : "Ulrich Rieke", "data" : [ [ "Perl", 2 ] - ] + ], + "id" : "Ulrich Rieke" + }, + { + "data" : [ + [ + "Perl", + 2 + ] + ], + "id" : "Wanderdoc", + "name" : "Wanderdoc" } ] }, - "title" : { - "text" : "Perl Weekly Challenge - 064" - }, - "chart" : { - "type" : "column" + "yAxis" : { + "title" : { + "text" : "Total Solutions" + } }, "legend" : { "enabled" : 0 }, - "series" : [ - { - "colorByPoint" : 1, - "data" : [ - { - "drilldown" : "Bartosz Jarzyna", - "y" : 3, - "name" : "Bartosz Jarzyna" - }, - { - "name" : "Dave Jacoby", - "drilldown" : "Dave Jacoby", - "y" : 3 - }, - { - "name" : "E. Choroba", - "drilldown" : "E. Choroba", - "y" : 2 - }, - { - "name" : "Javier Luque", - "drilldown" : "Javier Luque", - "y" : 5 - }, - { - "name" : "Leo Manfredi", - "drilldown" : "Leo Manfredi", - "y" : 1 - }, - { - "drilldown" : "Luca Ferrari", - "y" : 4, - "name" : "Luca Ferrari" - }, - { - "drilldown" : "Mark Anderson", - "y" : 2, - "name" : "Mark Anderson" - }, - { - "name" : "Mohammad S Anwar", - "drilldown" : "Mohammad S Anwar", - "y" : 4 - }, - { - "name" : "Niels van Dijke", - "y" : 2, - "drilldown" : "Niels van Dijke" - }, - { - "name" : "Richard Hainsworth", - "y" : 1, - "drilldown" : "Richard Hainsworth" - }, - { - "y" : 5, - "drilldown" : "Roger Bell_West", - "name" : "Roger Bell_West" - }, - { - "name" : "Simon Proctor", - "y" : 2, - "drilldown" : "Simon Proctor" - }, - { - "name" : "Wanderdoc", - "drilldown" : "Wanderdoc", - "y" : 2 - } - ], - "name" : "Perl Weekly Challenge - 064" + "plotOptions" : { + "series" : { + "borderWidth" : 0, + "dataLabels" : { + "format" : "{point.y}", + "enabled" : 1 + } } - ] + }, + "chart" : { + "type" : "column" + } } diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json index e2c2bc8aa3..a79ec41a49 100644 --- a/stats/pwc-language-breakdown-summary.json +++ b/stats/pwc-language-breakdown-summary.json @@ -1,6 +1,6 @@ { - "title" : { - "text" : "Perl Weekly Challenge Contributions [2019 - 2020]" + "tooltip" : { + "pointFormat" : "<b>{point.y:.0f}</b>" }, "xAxis" : { "labels" : { @@ -11,35 +11,12 @@ }, "type" : "category" }, - "tooltip" : { - "pointFormat" : "<b>{point.y:.0f}</b>" - }, - "subtitle" : { - "text" : "Last updated at 2020-06-13 05:51:43 GMT" - }, - "yAxis" : { - "min" : 0, - "title" : { - "text" : null - } - }, - "legend" : { - "enabled" : "false" + "title" : { + "text" : "Perl Weekly Challenge Contributions [2019 - 2020]" }, "series" : [ { - "dataLabels" : { - "style" : { - "fontFamily" : "Verdana, sans-serif", - "fontSize" : "13px" - }, - "format" : "{point.y:.0f}", - "enabled" : "true", - "align" : "right", - "color" : "#FFFFFF", - "y" : 10, - "rotation" : -90 - }, + "name" : "Contributions", "data" : [ [ "Blog", @@ -47,17 +24,40 @@ ], [ "Perl", - 2659 + 2661 ], [ "Raku", 1685 ] ], - "name" : "Contributions" + "dataLabels" : { + "y" : 10, + "style" : { + "fontSize" : "13px", + "fontFamily" : "Verdana, sans-serif" + }, + "format" : "{point.y:.0f}", + "align" : "right", + "color" : "#FFFFFF", + "enabled" : "true", + "rotation" : -90 + } } ], + "legend" : { + "enabled" : "false" + }, "chart" : { "type" : "column" + }, + "subtitle" : { + "text" : "Last updated at 2020-06-13 12:33:13 GMT" + }, + "yAxis" : { + "title" : { + "text" : null + }, + "min" : 0 } } diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json index d0cfee21e4..4e6db723f5 100644 --- a/stats/pwc-language-breakdown.json +++ b/stats/pwc-language-breakdown.json @@ -1,4 +1,349 @@ { + "tooltip" : { + "followPointer" : "true", + "pointFormat" : "<span style=\"color:{point.color}\">Challenge {point.name}</span>: <b>{point.y:f}</b><br/>", + "headerFormat" : "<span style=\"font-size:11px\"></span>" + }, + "title" : { + "text" : "Perl Weekly Challenge Language" + }, + "xAxis" : { + "type" : "category" + }, + "series" : [ + { + "data" : [ + { + "drilldown" : "001", + "y" : 142, + "name" : "#001" + }, + { + "y" : 109, + "name" : "#002", + "drilldown" : "002" + }, + { + "y" : 71, + "name" : "#003", + "drilldown" : "003" + }, + { + "y" : 91, + "name" : "#004", + "drilldown" : "004" + }, + { + "drilldown" : "005", + "name" : "#005", + "y" : 72 + }, + { + "name" : "#006", + "y" : 52, + "drilldown" : "006" + }, + { + "name" : "#007", + "y" : 59, + "drilldown" : "007" + }, + { + "y" : 72, + "name" : "#008", + "drilldown" : "008" + }, + { + "drilldown" : "009", + "y" : 68, + "name" : "#009" + }, + { + "drilldown" : "010", + "name" : "#010", + "y" : 60 + }, + { + "drilldown" : "011", + "name" : "#011", + "y" : 79 + }, + { + "drilldown" : "012", + "y" : 83, + "name" : "#012" + }, + { + "drilldown" : "013", + "name" : "#013", + "y" : 76 + }, + { + "name" : "#014", + "y" : 96, + "drilldown" : "014" + }, + { + "drilldown" : "015", + "name" : "#015", + "y" : 93 + }, + { + "drilldown" : "016", + "y" : 66, + "name" : "#016" + }, + { + "drilldown" : "017", + "name" : "#017", + "y" : 79 + }, + { + "drilldown" : "018", + "name" : "#018", + "y" : 76 + }, + { + "name" : "#019", + "y" : 97, + "drilldown" : "019" + }, + { + "drilldown" : "020", + "y" : 95, + "name" : "#020" + }, + { + "drilldown" : "021", + "name" : "#021", + "y" : 67 + }, + { + "drilldown" : "022", + "y" : 63, + "name" : "#022" + }, + { + "drilldown" : "023", + "y" : 91, + "name" : "#023" + }, + { + "y" : 70, + "name" : "#024", + "drilldown" : "024" + }, + { + "drilldown" : "025", + "y" : 55, + "name" : "#025" + }, + { + "name" : "#026", + "y" : 70, + "drilldown" : "026" + }, + { + "y" : 58, + "name" : "#027", + "drilldown" : "027" + }, + { + "drilldown" : "028", + "name" : "#028", + "y" : 78 + }, + { + "name" : "#029", + "y" : 77, + "drilldown" : "029" + }, + { + "name" : "#030", + "y" : 115, + "drilldown" : "030" + }, + { + "drilldown" : "031", + "name" : "#031", + "y" : 87 + }, + { + "name" : "#032", + "y" : 92, + "drilldown" : "032" + }, + { + "drilldown" : "033", + "name" : "#033", + "y" : 108 + }, + { + "drilldown" : "034", + "name" : "#034", + "y" : 62 + }, + { + "drilldown" : "035", + "name" : "#035", + "y" : 62 + }, + { + "y" : 66, + "name" : "#036", + "drilldown" : "036" + }, + { + "drilldown" : "037", + "name" : "#037", + "y" : 65 + }, + { + "drilldown" : "038", + "name" : "#038", + "y" : 65 + }, + { + "y" : 60, + "name" : "#039", + "drilldown" : "039" + }, + { + "drilldown" : "040", + "y" : 71, + "name" : "#040" + }, + { + "drilldown" : "041", + "y" : 74, + "name" : "#041" + }, + { + "drilldown" : "042", + "name" : "#042", + "y" : 88 + }, + { + "drilldown" : "043", + "name" : "#043", + "y" : 66 + }, + { + "drilldown" : "044", + "name" : "#044", + "y" : 82 + }, + { + "y" : 94, + "name" : "#045", + "drilldown" : "045" + }, + { + "name" : "#046", + "y" : 85, + "drilldown" : "046" + }, + { + "name" : "#047", + "y" : 82, + "drilldown" : "047" + }, + { + "drilldown" : "048", + "y" : 106, + "name" : "#048" + }, + { + "drilldown" : "049", + "y" : 85, + "name" : "#049" + }, + { + "y" : 96, + "name" : "#050", + "drilldown" : "050" + }, + { + "y" : 87, + "name" : "#051", + "drilldown" : "051" + }, + { + "name" : "#052", + "y" : 89, + "drilldown" : "052" + }, + { + "drilldown" : "053", + "y" : 99, + "name" : "#053" + }, + { + "drilldown" : "054", + "y" : 99, + "name" : "#054" + }, + { + "y" : 86, + "name" : "#055", + "drilldown" : "055" + }, + { + "name" : "#056", + "y" : 93, + "drilldown" : "056" + }, + { + "y" : 78, + "name" : "#057", + "drilldown" : "057" + }, + { + "drilldown" : "058", + "y" : 61, + "name" : "#058" + }, + { + "y" : 82, + "name" : "#059", + "drilldown" : "059" + }, + { + "name" : "#060", + "y" : 78, + "drilldown" : "060" + }, + { + "drilldown" : "061", + "y" : 79, + "name" : "#061" + }, + { + "drilldown" : "062", + "name" : "#062", + "y" : 53 + }, + { + "y" : 85, + "name" : "#063", + "drilldown" : "063" + }, + { + "y" : 38, + "name" : "#064", + "drilldown" : "064" + } + ], + "colorByPoint" : "true", + "name" : "Perl Weekly Challenge Languages" + } + ], + "chart" : { + "type" : "column" + }, + "legend" : { + "enabled" : "false" + }, "plotOptions" : { "series" : { "borderWidth" : 0, @@ -8,27 +353,9 @@ } } }, - "subtitle" : { - "text" : "Click the columns to drilldown the language breakdown. Last updated at 2020-06-13 05:51:43 GMT" - }, - "yAxis" : { - "title" : { - "text" : "Total Solutions" - } - }, - "xAxis" : { - "type" : "category" - }, - "tooltip" : { - "pointFormat" : "<span style=\"color:{point.color}\">Challenge {point.name}</span>: <b>{point.y:f}</b><br/>", - "followPointer" : "true", - "headerFormat" : "<span style=\"font-size:11px\"></span>" - }, "drilldown" : { "series" : [ { - "id" : "001", - "name" : "001", "data" : [ [ "Perl", @@ -42,9 +369,13 @@ "Blog", 11 ] - ] + ], + "id" : "001", + "name" : "001" }, { + "name" : "002", + "id" : "002", "data" : [ [ "Perl", @@ -58,13 +389,9 @@ "Blog", 10 ] - ], - "id" : "002", - "name" : "002" + ] }, { - "name" : "003", - "id" : "003", "data" : [ [ "Perl", @@ -78,7 +405,9 @@ "Blog", 9 ] - ] + ], + "id" : "003", + "name" : "003" }, { "data" : [ @@ -95,10 +424,11 @@ 10 ] ], - "name" : "004", - "id" : "004" + "id" : "004", + "name" : "004" }, { + "name" : "005", "data" : [ [ "Perl", @@ -113,10 +443,10 @@ 12 ] ], - "name" : "005", "id" : "005" }, { + "id" : "006", "data" : [ [ "Perl", @@ -131,12 +461,9 @@ 7 ] ], - "name" : "006", - "id" : "006" + "name" : "006" }, { - "name" : "007", - "id" : "007", "data" : [ [ "Perl", @@ -150,9 +477,12 @@ "Blog", 10 ] - ] + ], + "id" : "007", + "name" : "007" }, { + "name" : "008", "data" : [ [ "Perl", @@ -167,12 +497,11 @@ 12 ] ], - "name" : "008", "id" : "008" }, { - "id" : "009", "name" : "009", + "id" : "009", "data" : [ [ "Perl", @@ -190,7 +519,6 @@ }, { "name" : "010", - "id" : "010", "data" : [ |
