diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2023-10-10 15:11:47 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2023-10-10 15:11:47 +0100 |
| commit | faf68e9d0fe4eb8a7223aece3f2b1bf67fe470f7 (patch) | |
| tree | 3d3c3fc8a8d686a700ed2d4b19225c6691b5794b | |
| parent | 0f2ee549b4711ebb764d4f09e97946784f89b0bd (diff) | |
| download | perlweeklychallenge-club-faf68e9d0fe4eb8a7223aece3f2b1bf67fe470f7.tar.gz perlweeklychallenge-club-faf68e9d0fe4eb8a7223aece3f2b1bf67fe470f7.tar.bz2 perlweeklychallenge-club-faf68e9d0fe4eb8a7223aece3f2b1bf67fe470f7.zip | |
- Added solutions by Laurent Rosenfeld.
- Added solutions by Robert DiCicco.
- Added solutions by Packy Anderson.
- Added solutions by Lance Wicks.
- Added solutions by Dave Jacoby.
- Added solutions by Matthew Neleigh.
- Added solutions by Robbie Hatley.
- Added solutions by PokGoPun.
- Added solutions by Luca Ferrari.
22 files changed, 2087 insertions, 1781 deletions
diff --git a/challenge-238/laurent-rosenfeld/blog1.txt b/challenge-238/laurent-rosenfeld/blog1.txt new file mode 100644 index 0000000000..ee363bf740 --- /dev/null +++ b/challenge-238/laurent-rosenfeld/blog1.txt @@ -0,0 +1 @@ +https://blogs.perl.org/users/laurent_r/2023/10/perl-weekly-challenge-238-persistence-sort.html diff --git a/challenge-238/laurent-rosenfeld/perl/ch-2.pl b/challenge-238/laurent-rosenfeld/perl/ch-2.pl new file mode 100644 index 0000000000..05a5fd208c --- /dev/null +++ b/challenge-238/laurent-rosenfeld/perl/ch-2.pl @@ -0,0 +1,28 @@ +use strict; +use warnings; +use feature 'say'; + +sub to_single_digit { + my $prod = shift; + my $count = 0; + while ($prod > 9) { + my $temp = 1; + $temp *= $_ for split //, $prod; + $prod = $temp; + $count++; + } + return $count; +} + +sub my_sort { + # Schwartzian Tranform + return map { $_->[0] } + sort { $a->[1] <=> $b->[1] || $a->[0] <=> $b->[0] } + map { [$_, to_single_digit $_] } @_; +} + +my @tests = ([<15 99 1 34>], [<50 25 33 22>]); +for my $test (@tests) { + printf "%-15s => ", "@$test"; + say join ", ", my_sort @$test; +} diff --git a/challenge-238/laurent-rosenfeld/raku/ch-2.raku b/challenge-238/laurent-rosenfeld/raku/ch-2.raku new file mode 100644 index 0000000000..761c0e1c5d --- /dev/null +++ b/challenge-238/laurent-rosenfeld/raku/ch-2.raku @@ -0,0 +1,20 @@ +sub to-single-digit ($in) { + my $prod = $in; + my $count = 0; + while $prod > 9 { + $prod = [*] $prod.comb; + $count++; + } + return $count; +} + +sub my-sort (@in) { + my @sorted = sort @in; + return sort &to-single-digit, @sorted; +} + +my @tests = <15 99 1 34>, <50 25 33 22>; +for @tests -> @test { + printf "%-15s => ", "@test[]"; + say join ", ", my-sort @test; +} diff --git a/challenge-238/robert-dicicco/julia/ch-1.jl b/challenge-238/robert-dicicco/julia/ch-1.jl new file mode 100644 index 0000000000..6d9929cb43 --- /dev/null +++ b/challenge-238/robert-dicicco/julia/ch-1.jl @@ -0,0 +1,37 @@ +#!/usr/bin/env julia +#= +--------------------------------- +AUTHOR: Robert DiCicco +DATE : 2023-10-09 +Challenge 238 Task 01 Running Sum ( Julia ) +--------------------------------- +=# +using Printf + +myints = [[1, 2, 3, 4, 5],[1, 1, 1, 1, 1],[0, -1, 1, 2]] + +for mints in myints + @printf("Input: @int = %s\n",mints) + sum = 0 + out = [] + out = accumulate(+, mints) + @printf("Output: %s\n\n",out) +end +#= +--------------------------------- +SAMPLE OUTPUT +julia .\RunningSum.jl + +Input: @int = [1, 2, 3, 4, 5] +[1, 3, 6, 10, 15] + +Input: @int = [1, 1, 1, 1, 1] +[1, 2, 3, 4, 5] + +Input: @int = [0, -1, 1, 2] +[0, -1, 0, 2] +--------------------------------- +=# + + + diff --git a/challenge-238/robert-dicicco/powershell/ch-1.psl b/challenge-238/robert-dicicco/powershell/ch-1.psl new file mode 100644 index 0000000000..fd63346103 --- /dev/null +++ b/challenge-238/robert-dicicco/powershell/ch-1.psl @@ -0,0 +1,39 @@ +#!/usr/bin/env tclsh +<# +--------------------------------- +AUTHOR: Robert DiCicco +DATE : 2023-10-09 +Challenge 238 Task 01 Running Sum ( Powershell ) +--------------------------------- +#> + +$myints = @( (1, 2, 3, 4, 5),(1, 1, 1, 1, 1),(0, -1, 1, 2)) + +foreach ($mints in $myints) { + write-host "Input: @int = [$mints]" + $sum = 0 + $out = @() + foreach ($i in $mints) { + $out += $i + $sum + $sum += $i + } + write-host "Output: [$out]`n" +} +<# +--------------------------------- +SAMPLE OUTPUT + +.\RunningSum.ps1 + +Input: @int = [1 2 3 4 5] +Output: [1 3 6 10 15] + +Input: @int = [1 1 1 1 1] +Output: [1 2 3 4 5] + +Input: @int = [0 -1 1 2] +Output: [0 -1 0 2] +--------------------------------- + #> + + diff --git a/challenge-238/robert-dicicco/python/ch-1.py b/challenge-238/robert-dicicco/python/ch-1.py new file mode 100644 index 0000000000..08cb58fd60 --- /dev/null +++ b/challenge-238/robert-dicicco/python/ch-1.py @@ -0,0 +1,37 @@ +#!/usr/bin/env python +''' +--------------------------------- +AUTHOR: Robert DiCicco +DATE : 2023-10-09 +Challenge 238 Task 01 Running Sum ( Python ) +--------------------------------- +''' + +myints = [[1, 2, 3, 4, 5],[1, 1, 1, 1, 1],[0, -1, 1, 2]] + +for mints in myints: + print(f"Input: @int = {mints}") + sum = 0 + out = [] + for i in mints: + out.append(i + sum) + sum += i + print(f"Output: {out}\n") + + ''' +--------------------------------- +SAMPLE OUTPUT +python .\RunningSum.py + +Input: @int = [1, 2, 3, 4, 5] +Output: [1, 3, 6, 10, 15] + +Input: @int = [1, 1, 1, 1, 1] +Output: [1, 2, 3, 4, 5] + +Input: @int = [0, -1, 1, 2] +Output: [0, -1, 0, 2] +--------------------------------- +''' + + diff --git a/challenge-238/robert-dicicco/tcl/ch-1.tcl b/challenge-238/robert-dicicco/tcl/ch-1.tcl new file mode 100644 index 0000000000..12ab7babb2 --- /dev/null +++ b/challenge-238/robert-dicicco/tcl/ch-1.tcl @@ -0,0 +1,34 @@ +#!/usr/bin/env tclsh +# --------------------------------- +# AUTHOR: Robert DiCicco +# DATE : 2023-10-09 +# Challenge 238 Task 01 Running Sum ( Tcl ) +# --------------------------------- + +set myints { {1 2 3 4 5} {1 1 1 1 1} {0 -1 1 2} } +foreach mints $myints { + puts "Input: @int = \[$mints\]" + set sum 0 + set out {} + foreach i $mints { + lappend out [expr $i + $sum] + set sum [expr $sum + $i] + } + puts "Output: \[$out\]\n" +} + +# --------------------------------- +# SAMPLE OUTPUT +# tclsh .\RunningSum.tcl + +# Input: @int = [1 2 3 4 5] +# Output: [1 3 6 10 15] + +# Input: @int = [1 1 1 1 1] +# Output: [1 2 3 4 5] + +# Input: @int = [0 -1 1 2] +# Output: [0 -1 0 2] +# --------------------------------- + + diff --git a/stats/pwc-current.json b/stats/pwc-current.json index a0a06a2f54..dcd6077af2 100644 --- a/stats/pwc-current.json +++ b/stats/pwc-current.json @@ -1,49 +1,91 @@ { - "legend" : { - "enabled" : 0 - }, - "chart" : { - "type" : "column" - }, "drilldown" : { "series" : [ { + "name" : "Dave Jacoby", "data" : [ [ "Perl", 2 + ], + [ + "Blog", + 1 ] ], + "id" : "Dave Jacoby" + }, + { "id" : "E. Choroba", - "name" : "E. Choroba" + "name" : "E. Choroba", + "data" : [ + [ + "Perl", + 2 + ] + ] }, { + "name" : "Lance Wicks", "data" : [ [ "Perl", 1 + ] + ], + "id" : "Lance Wicks" + }, + { + "id" : "Laurent Rosenfeld", + "data" : [ + [ + "Perl", + 2 ], [ "Raku", - 1 + 2 ], [ "Blog", - 1 + 2 ] ], - "id" : "Laurent Rosenfeld", "name" : "Laurent Rosenfeld" }, { + "id" : "Luca Ferrari", + "name" : "Luca Ferrari", + "data" : [ + [ + "Raku", + 2 + ], + [ + "Blog", + 7 + ] + ] + }, + { + "name" : "Mark Anderson", "data" : [ [ "Raku", 2 ] ], - "id" : "Mark Anderson", - "name" : "Mark Anderson" + "id" : "Mark Anderson" + }, + { + "name" : "Matthew Neleigh", + "data" : [ + [ + "Perl", + 2 + ] + ], + "id" : "Matthew Neleigh" }, { "id" : "Niels van Dijke", @@ -56,16 +98,49 @@ "name" : "Niels van Dijke" }, { - "name" : "Peter Meszaros", + "id" : "Packy Anderson", "data" : [ [ "Perl", 2 + ], + [ + "Raku", + 2 + ], + [ + "Blog", + 1 ] ], - "id" : "Peter Meszaros" + "name" : "Packy Anderson" + }, + { + "id" : "Peter Meszaros", + "name" : "Peter Meszaros", + "data" : [ + [ + "Perl", + 2 + ] + ] + }, + { + "id" : "Robbie Hatley", + "name" : "Robbie Hatley", + "data" : [ + [ + "Perl", + 2 + ], + [ + "Blog", + 1 + ] + ] }, { + "name" : "Robert DiCicco", "data" : [ [ "Perl", @@ -76,10 +151,10 @@ 1 ] ], - "id" : "Robert DiCicco", - "name" : "Robert DiCicco" + "id" : "Robert DiCicco" }, { + "name" : "Ulrich Rieke", "data" : [ [ "Perl", @@ -90,10 +165,10 @@ 2 ] ], - "id" : "Ulrich Rieke", - "name" : "Ulrich Rieke" + "id" : "Ulrich Rieke" }, { + "id" : "W. Luis Mochan", "data" : [ [ "Perl", @@ -104,83 +179,118 @@ 1 ] ], - "id" : "W. Luis Mochan", "name" : "W. Luis Mochan" } ] }, - "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/>" + "chart" : { + "type" : "column" }, "plotOptions" : { "series" : { + "borderWidth" : 0, "dataLabels" : { "format" : "{point.y}", "enabled" : 1 - }, - "borderWidth" : 0 + } } }, + "tooltip" : { + "followPointer" : 1, + "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/>" + }, "xAxis" : { "type" : "category" }, "series" : [ { - "name" : "The Weekly Challenge - 238", "colorByPoint" : 1, "data" : [ { + "y" : 3, + "name" : "Dave Jacoby", + "drilldown" : "Dave Jacoby" + }, + { + "drilldown" : "E. Choroba", "name" : "E. Choroba", - "y" : 2, - "drilldown" : "E. Choroba" + "y" : 2 }, { - "y" : 3, + "y" : 1, + "name" : "Lance Wicks", + "drilldown" : "Lance Wicks" + }, + { + "y" : 6, "name" : "Laurent Rosenfeld", "drilldown" : "Laurent Rosenfeld" }, { + "y" : 9, + "name" : "Luca Ferrari", + "drilldown" : "Luca Ferrari" + }, + { "drilldown" : "Mark Anderson", + "name" : "Mark Anderson", + "y" : 2 + }, + { "y" : 2, - "name" : "Mark Anderson" + "name" : "Matthew Neleigh", + "drilldown" : "Matthew Neleigh" }, { - "drilldown" : "Niels van Dijke", "y" : 2, + "drilldown" : "Niels van Dijke", "name" : "Niels van Dijke" }, { - "drilldown" : "Peter Meszaros", + "drilldown" : "Packy Anderson", + "name" : "Packy Anderson", + "y" : 5 + }, + { "y" : 2, + "drilldown" : "Peter Meszaros", "name" : "Peter Meszaros" }, { - "drilldown" : "Robert DiCicco", + "y" : 3, + "drilldown" : "Robbie Hatley", + "name" : "Robbie Hatley" + }, + { "name" : "Robert DiCicco", + "drilldown" : "Robert DiCicco", "y" : 2 }, { - "drilldown" : "Ulrich Rieke", "y" : 4, + "drilldown" : "Ulrich Rieke", "name" : "Ulrich Rieke" }, { + "y" : 3, "drilldown" : "W. Luis Mochan", - "name" : "W. Luis Mochan", - "y" : 3 + "name" : "W. Luis Mochan" } - ] + ], + "name" : "The Weekly Challenge - 238" } ], + "subtitle" : { + "text" : "[Champions: 14] Last updated at 2023-10-10 14:08:41 GMT" + }, "yAxis" : { "title" : { "text" : "Total Solutions" } }, - "subtitle" : { - "text" : "[Champions: 8] Last updated at 2023-10-09 19:48:12 GMT" + "legend" : { + "enabled" : 0 }, "title" : { "text" : "The Weekly Challenge - 238" diff --git a/stats/pwc-language-breakdown-summary.json b/stats/pwc-language-breakdown-summary.json index 30b51e078c..c7edd6a075 100644 --- a/stats/pwc-language-breakdown-summary.json +++ b/stats/pwc-language-breakdown-summary.json @@ -1,63 +1,63 @@ { - "yAxis" : { - "title" : { - "text" : null - }, - "min" : 0 + "xAxis" : { + "type" : "category", + "labels" : { + "style" : { + "fontFamily" : "Verdana, sans-serif", + "fontSize" : "13px" + } + } }, "series" : [ { "dataLabels" : { - "enabled" : "true", - "rotation" : -90, - "format" : "{point.y:.0f}", + "align" : "right", "style" : { - "fontFamily" : "Verdana, sans-serif", - "fontSize" : "13px" + "fontSize" : "13px", + "fontFamily" : "Verdana, sans-serif" }, - "color" : "#FFFFFF", "y" : 10, - "align" : "right" + "color" : "#FFFFFF", + "enabled" : "true", + "rotation" : -90, + "format" : "{point.y:.0f}" }, "name" : "Contributions", "data" : [ [ "Blog", - 4039 + 4050 ], [ "Perl", - 12210 + 12220 ], [ "Raku", - 7031 + 7036 ] ] } ], - "tooltip" : { - "pointFormat" : "<b>{point.y:.0f}</b>" - }, - "xAxis" : { - "labels" : { - "style" : { - "fontSize" : "13px", - "fontFamily" : "Verdana, sans-serif" - } - }, - "type" : "category" + "yAxis" : { + "min" : 0, + "title" : { + "text" : null + } }, "legend" : { "enabled" : "false" }, - "chart" : { - "type" : "column" + "subtitle" : { + "text" : "Last updated at 2023-10-10 14:08:41 GMT" }, "title" : { "text" : "The Weekly Challenge Contributions [2019 - 2023]" }, - "subtitle" : { - "text" : "Last updated at 2023-10-09 19:48:12 GMT" + "chart" : { + "type" : "column" + }, + "tooltip" : { + "pointFormat" : "<b>{point.y:.0f}</b>" } } diff --git a/stats/pwc-language-breakdown.json b/stats/pwc-language-breakdown.json index c0e9edfefc..d44ef509d8 100644 --- a/stats/pwc-language-breakdown.json +++ b/stats/pwc-language-breakdown.json @@ -2,31 +2,10 @@ "chart" : { "type" : "column" }, - "legend" : { - "enabled" : "false" - }, - "plotOptions" : { - "series" : { - "borderWidth" : 0, - "dataLabels" : { - "format" : "{point.y}", - "enabled" : 1 - } - } - }, - "xAxis" : { - "type" : "category" - }, - "tooltip" : { - "pointFormat" : "<span style=\"color:{point.color}\">Challenge {point.name}</span>: <b>{point.y:f}</b><br/>", - "headerFormat" : "<span style=\"font-size:11px\"></span>", - "followPointer" : "true" - }, "drilldown" : { "series" : [ { "name" : "001", - "id" : "001", "data" : [ [ "Perl", @@ -40,10 +19,10 @@ "Blog", 12 ] - ] + ], + "id" : "001" }, { - "id" : "002", "data" : [ [ "Perl", @@ -58,7 +37,8 @@ 10 ] ], - "name" : "002" + "name" : "002", + "id" : "002" }, { "name" : "003", @@ -79,8 +59,6 @@ "id" : "003" }, { - "name" : "004", - "id" : "004", "data" : [ [ "Perl", @@ -94,11 +72,13 @@ "Blog", 10 ] - ] + ], + "name" : "004", + "id" : "004" }, { - "name" : "005", "id" : "005", + "name" : "005", "data" : [ [ "Perl", @@ -115,6 +95,7 @@ ] }, { + "id" : "006", "data" : [ [ "Perl", @@ -129,11 +110,11 @@ 7 ] ], - "id" : "006", "name" : "006" }, { "id" : "007", + "name" : "007", "data" : [ [ "Perl", @@ -147,10 +128,11 @@ "Blog", 10 ] - ], - "name" : "007" + ] }, { + "id" : "008", + "name" : "008", "data" : [ [ "Perl", @@ -164,9 +146,7 @@ "Blog", 12 ] - ], - "id" : "008", - "name" : "008" + ] }, { "name" : "009", @@ -187,6 +167,7 @@ "id" : "009" }, { + "name" : "010", "data" : [ [ "Perl", @@ -201,10 +182,10 @@ 11 ] ], - "id" : "010", - "name" : "010" + "id" : "010" }, { + "id" : "011", "name" : "011", "data" : [ [ @@ -219,10 +200,10 @@ "Blog", 10 ] - ], - "id" : "011" + ] }, { + "id" : "012", "data" : [ [ "Perl", @@ -237,10 +218,10 @@ 11 ] ], - "id" : "012", "name" : "012" }, { + "id" : "013", "name" : "013", "data" : [ [ @@ -255,12 +236,9 @@ "Blog", 13 ] - ], - "id" : "013" + ] }, { - "name" : "014", - "id" : "014", "data" : [ [ "Perl", @@ -274,11 +252,12 @@ "Blog", 15 ] - ] + ], + "name" : "014", + "id" : "014" }, { "name" : "015", - "id" : "015", "data" : [ [ "Perl", @@ -292,11 +271,12 @@ "Blog", 15 ] - ] + ], + "id" : "015" }, { - "name" : "016", "id" : "016", + "name" : "016", "data" : [ [ "Perl", @@ -313,6 +293,7 @@ ] }, { + "id" : "017", "name" : "017", "data" : [ [ @@ -327,11 +308,9 @@ "Blog", 12 ] - ], - "id" : "017" + ] }, { - "name" : "018", "data" : [ [ "Perl", @@ -346,10 +325,11 @@ 14 ] ], + "name" : "018", "id" : "018" }, { - "name" : "019", + "id" : "019", "data" : [ [ "Perl", @@ -364,9 +344,10 @@ 13 ] ], - "id" : "019" + "name" : "019" }, { + "id" : "020", "name" : "020", "data" : [ [ @@ -381,12 +362,9 @@ "Blog", 13 ] - ], - "id" : "020" + ] }, { - "name" : "021", - "id" : "021", "data" : [ [ "Perl", @@ -400,11 +378,13 @@ "Blog", 10 ] - ] + ], + "name" : "021", + "id" : "021" }, { - "name" : "022", "id" : "022", + "name" : "022", "data" : [ [ "Perl", @@ -439,6 +419,7 @@ "name" : "023" }, { + "id" : "024", "data" : [ [ "Perl", @@ -453,11 +434,10 @@ 11 ] ], - "id" : "024", "name" : "024" }, { - "id" : "025", + "name" : "025", "data" : [ [ "Perl", @@ -472,7 +452,7 @@ 12 ] ], - "name" : "025" + "id" : "025" }, { "id" : "026", @@ -494,6 +474,7 @@ }, { "id" : "027", + "name" : "027", "data" : [ [ "Perl", @@ -507,8 +488,7 @@ "Blog", 9 ] - ], - "name" : "027" + ] }, { "name" : "028", @@ -547,6 +527,7 @@ "name" : "029" }, { + "id" : "030", "data" : [ [ "Perl", @@ -561,7 +542,6 @@ 10 ] ], - "id" : "030", "name" : "030" }, { @@ -601,7 +581,7 @@ "id" : "032" }, { - "id" : "033", + "name" : "033", "data" : [ [ "Perl", @@ -616,9 +596,10 @@ 10 ] ], - "name" : "033" + "id" : "033" }, { |
