diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2022-11-29 09:42:22 +0000 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2022-11-29 09:42:22 +0000 |
| commit | 16679b5bf7a9b5c3559f8a8f01d0e27095962371 (patch) | |
| tree | aa5d0ac1d131bba68f4e9b523f3368d439ba25ba | |
| parent | ed24be5652a8686c1fd5d68abed68895caf6300c (diff) | |
| download | perlweeklychallenge-club-16679b5bf7a9b5c3559f8a8f01d0e27095962371.tar.gz perlweeklychallenge-club-16679b5bf7a9b5c3559f8a8f01d0e27095962371.tar.bz2 perlweeklychallenge-club-16679b5bf7a9b5c3559f8a8f01d0e27095962371.zip | |
- Added solutions by Arne Sommer for week 192.
22 files changed, 2915 insertions, 2826 deletions
diff --git a/challenge-192/arne-sommer/blog.txt b/challenge-192/arne-sommer/blog.txt new file mode 100644 index 0000000000..fa6ffee70b --- /dev/null +++ b/challenge-192/arne-sommer/blog.txt @@ -0,0 +1 @@ +https://raku-musings.com/equal-flip.html diff --git a/challenge-192/arne-sommer/raku/binary-flip-even-shorter b/challenge-192/arne-sommer/raku/binary-flip-even-shorter new file mode 100755 index 0000000000..e2c66b3e2f --- /dev/null +++ b/challenge-192/arne-sommer/raku/binary-flip-even-shorter @@ -0,0 +1,5 @@ +#! /usr/bin/env raku + +unit sub MAIN (Int $n where * > 0); + +say $n.base(2).comb.map( { + ! + $_ } ).join.parse-base(2); diff --git a/challenge-192/arne-sommer/raku/binary-flip-even-shorter2 b/challenge-192/arne-sommer/raku/binary-flip-even-shorter2 new file mode 100755 index 0000000000..2338c0fe61 --- /dev/null +++ b/challenge-192/arne-sommer/raku/binary-flip-even-shorter2 @@ -0,0 +1,5 @@ +#! /usr/bin/env raku + +unit sub MAIN (Int $n where * > 0); + +say $n.base(2).comb.map( + ! + * ).join.parse-base(2); diff --git a/challenge-192/arne-sommer/raku/binary-flip-shorter b/challenge-192/arne-sommer/raku/binary-flip-shorter new file mode 100755 index 0000000000..bf6cada298 --- /dev/null +++ b/challenge-192/arne-sommer/raku/binary-flip-shorter @@ -0,0 +1,5 @@ +#! /usr/bin/env raku + +unit sub MAIN (Int $n where * > 0); + +say $n.base(2).comb.map({ $_ eq '1' ?? '0' !! '1' }).join.parse-base(2); diff --git a/challenge-192/arne-sommer/raku/ch-1.raku b/challenge-192/arne-sommer/raku/ch-1.raku new file mode 100755 index 0000000000..f3fa3d0bbf --- /dev/null +++ b/challenge-192/arne-sommer/raku/ch-1.raku @@ -0,0 +1,15 @@ +#! /usr/bin/env raku + +unit sub MAIN (Int $n where * > 0, :v(:$verbose)); + +my $binary = $n.base(2); +my $flip = $binary.comb.map({ $_ eq '1' ?? '0' !! '1' }).join; +my $decimal = $flip.parse-base(2); + +if $verbose +{ + say ":Binary: $binary"; + say ":Flip: $flip"; +} + +say $decimal; diff --git a/challenge-192/arne-sommer/raku/ch-2.raku b/challenge-192/arne-sommer/raku/ch-2.raku new file mode 100755 index 0000000000..958d9c9b08 --- /dev/null +++ b/challenge-192/arne-sommer/raku/ch-2.raku @@ -0,0 +1,39 @@ +#! /usr/bin/env raku + +unit sub MAIN (*@list where @list.elems > 1 && all(@list) ~~ /^\d+/, :v(:$verbose)); + +my $sum = @list.sum; +my $target = $sum div @list.elems; + +if $target != $sum / @list.elems +{ + say -1; + exit; +} + +say ":Computing..." if $verbose; + +my $moves = 0; + +my @list2 = @list.map: +*; + +for 0 .. @list2.elems - 2 -> $index +{ + while @list2[$index] > $target + { + $moves++; + @list2[$index]--; + @list2[$index+1]++; + say ":Move $moves: @list2[]" if $verbose; + } + + while @list2[$index] < $target + { + $moves++; + @list2[$index]++; + @list2[$index+1]--; + say ":Move $moves: @list2[]" if $verbose; + } +} + +say $moves; diff --git a/stats/pwc-challenge-192.json b/stats/pwc-challenge-192.json index 1f9913e506..10fe964c64 100644 --- a/stats/pwc-challenge-192.json +++ b/stats/pwc-challenge-192.json @@ -1,4 +1,230 @@ { + "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 + }, + "subtitle" : { + "text" : "[Champions: 38] Last updated at 2022-11-28 17:43:08 GMT" + }, + "plotOptions" : { + "series" : { + "dataLabels" : { + "enabled" : 1, + "format" : "{point.y}" + }, + "borderWidth" : 0 + } + }, + "yAxis" : { + "title" : { + "text" : "Total Solutions" + } + }, + "xAxis" : { + "type" : "category" + }, + "series" : [ + { + "colorByPoint" : 1, + "name" : "The Weekly Challenge - 192", + "data" : [ + { + "y" : 4, + "drilldown" : "Adam Russell", + "name" : "Adam Russell" + }, + { + "name" : "Alexander Pankoff", + "drilldown" : "Alexander Pankoff", + "y" : 5 + }, + { + "y" : 4, + "drilldown" : "Ali Moradi", + "name" : "Ali Moradi" + }, + { + "y" : 3, + "drilldown" : "Arne Sommer", + "name" : "Arne Sommer" + }, + { + "name" : "Athanasius", + "drilldown" : "Athanasius", + "y" : 4 + }, + { + "name" : "Bruce Gray", + "y" : 5, + "drilldown" : "Bruce Gray" + }, + { + "name" : "Cheok-Yin Fung", + "drilldown" : "Cheok-Yin Fung", + "y" : 2 + }, + { + "drilldown" : "Colin Crain", + "y" : 3, + "name" : "Colin Crain" + }, + { + "y" : 1, + "drilldown" : "Dario Mazzeo", + "name" : "Dario Mazzeo" + }, + { + "y" : 2, + "drilldown" : "Dave Jacoby", + "name" : "Dave Jacoby" + }, + { + "drilldown" : "E. Choroba", + "y" : 2, + "name" : "E. Choroba" + }, + { + "name" : "Flavio Poletti", + "y" : 6, + "drilldown" : "Flavio Poletti" + }, + { + "drilldown" : "Humberto Massa", + "y" : 2, + "name" : "Humberto Massa" + }, + { + "name" : "Jaldhar H. Vyas", + "drilldown" : "Jaldhar H. Vyas", + "y" : 5 + }, + { + "name" : "James Smith", + "y" : 3, + "drilldown" : "James Smith" + }, + { + "y" : 2, + "drilldown" : "Jan Krnavek", + "name" : "Jan Krnavek" + }, + { + "drilldown" : "Jorg Sommrey", + "y" : 3, + "name" : "Jorg Sommrey" + }, + { + "name" : "Kueppo Wesley", + "drilldown" : "Kueppo Wesley", + "y" : 2 + }, + { + "name" : "Laurent Rosenfeld", + "drilldown" : "Laurent Rosenfeld", + "y" : 5 + }, + { + "drilldown" : "Luca Ferrari", + "y" : 8, + "name" : "Luca Ferrari" + }, + { + "y" : 2, + "drilldown" : "Mark Anderson", + "name" : "Mark Anderson" + }, + { + "drilldown" : "Marton Polgar", + "y" : 2, + "name" : "Marton Polgar" + }, + { + "name" : "Mohammad S Anwar", + "y" : 2, + "drilldown" : "Mohammad S Anwar" + }, + { + "name" : "Niels van Dijke", + "y" : 2, + "drilldown" : "Niels van Dijke" + }, + { + "name" : "Olivier Delouya", + "y" : 1, + "drilldown" : "Olivier Delouya" + }, + { + "name" : "Peter Campbell Smith", + "drilldown" : "Peter Campbell Smith", + "y" : 3 + }, + { + "y" : 2, + "drilldown" : "Robbie Hatley", + "name" : "Robbie Hatley" + }, + { + "drilldown" : "Robert DiCicco", + "y" : 4, + "name" : "Robert DiCicco" + }, + { + "drilldown" : "Robert Ransbottom", + "y" : 2, + "name" : "Robert Ransbottom" + }, + { + "name" : "Roger Bell_West", + "drilldown" : "Roger Bell_West", + "y" : 5 + }, + { + "y" : 3, + "drilldown" : "Simon Green", + "name" : "Simon Green" + }, + { + "drilldown" : "Simon Proctor", + "y" : 2, + "name" : "Simon Proctor" + }, + { + "name" : "Solathian", + "y" : 2, + "drilldown" : "Solathian" + }, + { + "drilldown" : "Stephen G. Lynn", + "y" : 5, + "name" : "Stephen G. Lynn" + }, + { + "drilldown" : "Tim Potapov", + "y" : 2, + "name" : "Tim Potapov" + }, + { + "y" : 4, + "drilldown" : "Ulrich Rieke", + "name" : "Ulrich Rieke" + }, + { + "y" : 2, + "drilldown" : "Vamsi Meenavilli", + "name" : "Vamsi Meenavilli" + }, + { + "name" : "W. Luis Mochan", + "drilldown" : "W. Luis Mochan", + "y" : 3 + } + ] + } + ], + "chart" : { + "type" : "column" + }, "drilldown" : { "series" : [ { @@ -16,7 +242,6 @@ ] }, { - "name" : "Alexander Pankoff", "data" : [ [ "Perl", @@ -31,9 +256,11 @@ 1 ] ], + "name" : "Alexander Pankoff", "id" : "Alexander Pankoff" }, { + "name" : "Ali Moradi", "id" : "Ali Moradi", "data" : [ [ @@ -44,11 +271,23 @@ "Raku", 2 ] + ] + }, + { + "data" : [ + [ + "Raku", + 2 + ], + [ + "Blog", + 1 + ] ], - "name" : "Ali Moradi" + "name" : "Arne Sommer", + "id" : "Arne Sommer" }, { - "name" : "Athanasius", "data" : [ [ "Perl", @@ -59,10 +298,10 @@ 2 ] ], - "id" : "Athanasius" + "id" : "Athanasius", + "name" : "Athanasius" }, { - "name" : "Bruce Gray", "data" : [ [ "Perl", @@ -77,6 +316,7 @@ 1 ] ], + "name" : "Bruce Gray", "id" : "Bruce Gray" }, { @@ -90,7 +330,6 @@ "id" : "Cheok-Yin Fung" }, { - "name" : "Colin Crain", "data" : [ [ "Perl", @@ -101,11 +340,12 @@ 1 ] ], + "name" : "Colin Crain", "id" : "Colin Crain" }, { - "id" : "Dario Mazzeo", "name" : "Dario Mazzeo", + "id" : "Dario Mazzeo", "data" : [ [ "Perl", @@ -114,28 +354,26 @@ ] }, { - "id" : "Dave Jacoby", - "name" : "Dave Jacoby", "data" : [ [ "Perl", 2 ] - ] + ], + "id" : "Dave Jacoby", + "name" : "Dave Jacoby" }, { + "name" : "E. Choroba", "id" : "E. Choroba", "data" : [ [ "Perl", 2 ] - ], - "name" : "E. Choroba" + ] }, { - "id" : "Flavio Poletti", - "name" : "Flavio Poletti", "data" : [ [ "Perl", @@ -149,20 +387,21 @@ "Blog", 2 ] - ] + ], + "id" : "Flavio Poletti", + "name" : "Flavio Poletti" }, { - "id" : "Humberto Massa", "data" : [ [ "Raku", 2 ] ], - "name" : "Humberto Massa" + "name" : "Humberto Massa", + "id" : "Humberto Massa" }, { - "name" : "Jaldhar H. Vyas", "data" : [ [ "Perl", @@ -177,9 +416,12 @@ 1 ] ], - "id" : "Jaldhar H. Vyas" + "id" : "Jaldhar H. Vyas", + "name" : "Jaldhar H. Vyas" }, { + "name" : "James Smith", + "id" : "James Smith", "data" : [ [ "Perl", @@ -189,22 +431,19 @@ "Blog", 1 ] - ], - "name" : "James Smith", - "id" : "James Smith" + ] }, { "id" : "Jan Krnavek", + "name" : "Jan Krnavek", "data" : [ [ "Raku", 2 ] - ], - "name" : "Jan Krnavek" + ] }, { - "id" : "Jorg Sommrey", "data" : [ [ "Perl", @@ -215,20 +454,20 @@ 1 ] ], + "id" : "Jorg Sommrey", "name" : "Jorg Sommrey" }, { "id" : "Kueppo Wesley", + "name" : "Kueppo Wesley", "data" : [ [ "Perl", 2 ] - ], - "name" : "Kueppo Wesley" + ] }, { - "name" : "Laurent Rosenfeld", "data" : [ [ "Perl", @@ -243,11 +482,12 @@ 1 ] ], + "name" : "Laurent Rosenfeld", "id" : "Laurent Rosenfeld" }, { - "id" : "Luca Ferrari", "name" : "Luca Ferrari", + "id" : "Luca Ferrari", "data" : [ [ "Raku", @@ -260,8 +500,8 @@ ] }, { - "id" : "Mark Anderson", "name" : "Mark Anderson", + "id" : "Mark Anderson", "data" : [ [ "Raku", @@ -270,17 +510,16 @@ ] }, { - "id" : "Marton Polgar", "data" : [ [ "Raku", 2 ] ], + "id" : "Marton Polgar", "name" : "Marton Polgar" }, { - "name" : "Mohammad S Anwar", "data" : [ [ "Perl", @@ -291,30 +530,30 @@ 1 ] ], + "name" : "Mohammad S Anwar", "id" : "Mohammad S Anwar" }, { "id" : "Niels van Dijke", + "name" : "Niels van Dijke", "data" : [ [ "Perl", 2 ] - ], - "name" : "Niels van Dijke" + ] }, { - "id" : "Olivier Delouya", - "name" : "Olivier Delouya", "data" : [ [ "Perl", 1 ] - ] + ], + "name" : "Olivier Delouya", + "id" : "Olivier Delouya" }, { - "name" : "Peter Campbell Smith", "data" : [ [ "Perl", @@ -325,17 +564,18 @@ 1 ] ], + "name" : "Peter Campbell Smith", "id" : "Peter Campbell Smith" }, { + "name" : "Robbie Hatley", "id" : "Robbie Hatley", "data" : [ [ "Perl", 2 ] - ], - "name" : "Robbie Hatley" + ] }, { "id" : "Robert DiCicco", @@ -352,18 +592,18 @@ ] }, { - "id" : "Robert Ransbottom", - "name" : "Robert Ransbottom", "data" : [ [ "Raku", 2 ] - ] + ], + "id" : "Robert Ransbottom", + "name" : "Robert Ransbottom" }, { - "id" : "Roger Bell_West", "name" : "Roger Bell_West", + "id" : "Roger Bell_West", "data" : [ [ "Perl", @@ -395,27 +635,25 @@ }, { "name" : "Simon Proctor", + "id" : "Simon Proctor", "data" : [ [ "Raku", 2 ] - ], - "id" : "Simon Proctor" + ] }, { - "id" : "Solathian", - "name" : "Solathian", "data" : [ [ "Perl", 2 ] - ] + ], + "name" : "Solathian", + "id" : "Solathian" }, { - "id" : "Stephen G. Lynn", - "name" : "Stephen G. Lynn", "data" : [ [ "Perl", @@ -429,19 +667,23 @@ "Blog", 1 ] - ] + ], + "id" : "Stephen G. Lynn", + "name" : "Stephen G. Lynn" }, { + "id" : "Tim Potapov", "name" : "Tim Potapov", "data" : [ [ "Perl", 2 ] - ], - "id" : "Tim Potapov" + ] }, { + "id" : "Ulrich Rieke", + "name" : "Ulrich Rieke", "data" : [ [ "Perl", @@ -451,22 +693,19 @@ "Raku", 2 ] - ], - "name" : "Ulrich Rieke", - "id" : "Ulrich Rieke" + ] }, { + "id" : "Vamsi Meenavilli", "name" : "Vamsi Meenavilli", "data" : [ [ "Perl", 2 ] - ], - "id" : "Vamsi Meenavilli" + ] }, { - "name" : "W. Luis Mochan", "data" : [ [ "Perl", @@ -477,234 +716,14 @@ 1 ] ], + "name" : "W. Luis Mochan", "id" : "W. Luis Mochan" } ] }, - "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/>" - }, - "plotOptions" : { - "series" : { - "borderWidth" : 0, - "dataLabels" : { - "enabled" : 1, - "format" : "{point.y}" - } - } - }, - "yAxis" : { - "title" : { - "text" : "Total Solutions" - } - }, - "subtitle" : { - "text" : "[Champions: 37] Last updated at 2022-11-28 11:32:03 GMT" - }, "title" : { "text" : "The Weekly Challenge - 192" }, - "xAxis" : { - "type" : "category" - }, - "series" : [ - { - "data" : [ - { - "drilldown" : "Adam Russell", - "name" : "Adam Russell", - "y" : 4 - }, - { - "name" : "Alexander Pankoff", - "y" : 5, - "drilldown" : "Alexander Pankoff" - }, - { - "name" : "Ali Moradi", - "y" : 4, - "drilldown" : "Ali Moradi" - }, - { - "name" : "Athanasius", - "y" : 4, - "drilldown" : "Athanasius" - }, - { - "drilldown" : "Bruce Gray", - "name" : "Bruce Gray", - "y" : 5 - }, - { - "y" : 2, - "name" : "Cheok-Yin Fung", - "drilldown" : "Cheok-Yin Fung" - }, - { - "drilldown" : "Colin Crain", - "name" : "Colin Crain", - "y" : 3 - }, - { - "name" : "Dario Mazzeo", - "y" : 1, - "drilldown" : "Dario Mazzeo" - }, - { - "drilldown" : "Dave Jacoby", - "y" : 2, - "name" : "Dave Jacoby" - }, - { - "name" : "E. Choroba", - "y" : 2, - "drilldown" : "E. Choroba" - }, - { - "drilldown" : "Flavio Poletti", - "name" : "Flavio Poletti", - "y" : 6 - }, - { - "drilldown" : "Humberto Massa", - "name" : "Humberto Massa", - "y" : 2 - }, - { - "drilldown" : "Jaldhar H. Vyas", - "y" : 5, - "name" : "Jaldhar H. Vyas" - }, - { - "drilldown" : "James Smith", - "name" : "James Smith", - "y" : 3 - }, - { - "name" : "Jan Krnavek", - "y" : 2, - "drilldown" : "Jan Krnavek" - }, - { - "drilldown" : "Jorg Sommrey", - "name" : "Jorg Sommrey", - "y" : 3 - }, - { - "drilldown" : "Kueppo Wesley", - "y" : 2, - "name" : "Kueppo Wesley" - }, - { - "y" : 5, - "name" : "Laurent Rosenfeld", - "drilldown" : "Laurent Rosenfeld" - }, - { - "name" : "Luca Ferrari", - "y" : 8, - "drilldown" : "Luca Ferrari" - }, - { - "y" : 2, - "name" : "Mark Anderson", - "drilldown" : "Mark Anderson" - }, - { - "drilldown" : "Marton Polgar", - "name" : "Marton Polgar", - "y" : 2 - }, - { - "name" : "Mohammad S Anwar", - "y" : 2, - "drilldown" : "Mohammad S Anwar" - }, - { - "y" : 2, - "name" : "Niels van Dijke", - "drilldown" : "Niels van Dijke" - }, - { - "drilldown" : "Olivier Delouya", - "y" : 1, - "name" : "Olivier Delouya" - }, - { - "y" : 3, - "name" : "Peter Campbell Smith", - "drilldown" : "Peter Campbell Smith" - }, - { - "drilldown" : "Robbie Hatley", - "name" : "Robbie Hatley", - "y" : 2 - }, - { - "drilldown" : "Robert DiCicco", - "name" : "Robert DiCicco", - "y" : 4 - }, - { - "y" : 2, - "name" : "Robert Ransbottom", - "drilldown" : "Robert Ransbottom" - }, - { - "y" : 5, - "name" : "Roger Bell_West", - "drilldown" : "Roger Bell_West" - }, - { - "drilldown" : "Simon Green", - "y" : 3, - "name" : "Simon Green" - }, - { - "y" : 2, - "name" : "Simon Proctor", - "drilldown" : "Simon Proctor" - }, - { - "y" : 2, - "name" : "Solathian", - "drilldown" : "Solathian" - }, - { - "drilldown" : "Stephen G. Lynn", - "name" : "Stephen G. Lynn", - "y" : 5 - }, - { - "name" : "Tim Potapov", - "y" : 2, - "drilldown" : "Tim Potapov" - }, - { - "name" : "Ulrich Rieke", - "y" : 4, - "drilldown" : "Ulrich Rieke" - }, - { - "name" : "Vamsi Meenavilli", - "y" : 2, - "drilldown" : "Vamsi Meenavilli" - }, - { - "drilldown" : "W. Luis Mochan", - "name" : "W. Luis Mochan", - "y" : 3 - } - ], - "name" : "The Weekly Challenge - 192", - "colorByPoint" : 1 - } - ], - "chart" : { - "type" : "column" - }, "legend" : { "enabled" : 0 } diff --git a/stats/pwc-current.json b/stats/pwc-current.json index 480526372a..01cab63560 100644 --- a/stats/pwc-current.json +++ b/ |
