Kian-Meng Ang Weekly Review: Challenge - 016

Thursday, Jul 18, 2019| Tags: Perl5, Perl6

Continues from previous week.

Feel free to submit a merge request or open a ticket if you found any issues with this post. We highly appreciate and welcome your feedback.

For a quick overview, read the original tasks and recap of the weekly challenge.

Task #1

The Pythagoras Pie Puzzle, which was originally published in the Pythagoras Magazine and made known through the Guardian’s article.

While this is a simple question, we loved how Duncan C. White described it, “Beautifully clearly described. Sounds straightforward.”

The solution was quite straight forward but you just need to aware of long floating point numbers as shown in the output of Duane Powell’s solution.

 96 3.73304861775776e-36 1.55543692406573e-37
 97 1.50877381634376e-37 4.66631077219721e-39
 98 4.57298455675327e-39 9.33262154439444e-41
 99 9.23929532895049e-41 9.33262154439446e-43
 100 9.33262154439446e-43 0

Some participants have used CPAN modules like `bignum` (Gustavo Chaves, E Choroba, and Joelle Maslak) or `Math::BigFloat` (Roger Bell West) to control the calculation and display of the floating-point precision. If we modified Gustavo Chaves’s solution to show exact percentage of each slice, it would be something like this.


Instead of just looping through and find the largest piece of pie, both Jaldhar H. Vyas and Joelle Maslak found the answer through pre-calculated array of results. Gustavo Chaves, Michael Hamlin, Ruben Westerberg, Lubos Kolouch, Feng Chang, and Andrezgz were the participants that stopped the calculation once the largest pie have been found. Special mention of Yozen Hernandez who have used `Benchmark::Forking` CPAN module to benchmark different strategies of solving the problem. The result as shown. Read his blog post for further details on how he arrived on such result. Recommended read of the week!

#                        Rate list_pie_remaining   track_last_share
# list_pie_remaining  43203/s                 --               -88%
# track_last_piece   368816/s               754%                 --

Our of all submitted solutions, the one by Joelle Maslak was probably the most unique.

For those who are curious about floating-points in Perl, we found a cheat sheet while reviewing this task.

Task #2

This was probably the hardest and demanding task of all challenges. Some participants have to rewrite existing reference solutions to fit their own coding style or ported solutions from other programming languages. Read through all the blog posts on how each participants learned, researched, discovered, and formulated their solutions for this task.

There were two groups of participants, those who used CPAN modules to decode the base58 or also known as bitcoin alphabet and those who wrote their own base58 decoder. For the CPAN modules consumer, `Crypt::Misc` (Athanasius) and `Encode::Base58::GMP` (Roger Bell West). For those who implemented their own decoder, Adam Russell, Daniel Mantovani, Laurent Rosenfeld, Yozen Hernandez, Duncan C White, Feng Chang, Steven Wilson, E. Choroba, and Joelle Maslak.

While there were many ways used to declare the base58 alphabets which excluded certain characters, we found these two distinctive methods which help to improve readability. First one by Daniel Mantovani (his solution have very well-written comments, same went to Steven Wilson and Joelle Maslak as well) and the second one by E. Choroba.

Which is your preferred way?

By Daniel Matovani

# we start by defining an array with the ordered symbols of the
# base 58 representation
# note the "holes" left to highlight the non existing characters
# (number "0", upper case letter "I", upper case letter "O", and
# lower case letter "l"

my @base58 = qw {
  1 2 3 4 5 6 7 8 9
  A B C D E F G H   J K L M N   P Q R S T U V W X Y Z
  a b c d e f g h i j k   m n o p q r s t u v w x y z

By E. Choroba

my @b58 = grep /[^0IOl]/, 0 .. 9, 'A' .. 'Z', 'a' .. 'z';

The unorthodox solution of the week went to Lubos Kolouch. His solution basically delegate the validation to an online web service.

Task #3

There was no solutions submitted for this task. Perhaps there was an error in obtaining the API key as experienced by Athanasius? Or maybe everyone spent more on time on Task #2 which was quite demanding and don’t have time left for this task? Nevertheless, do send in your answers, especially for those who have never try this task before.

Blog Posts

Regular and new members who recently blogged about this test.

(1) Pizza Party for 100 by Veesh Goldman

Brand new post by this participant and lively discussion on solving the first task mathematically.

(2) Pythagoras Bitcoin with Perl 6 by Arne Sommer

The usual step-by-step walk through in Perl 6. Numerous approaches to solve Task #2 was an interesting read.

(3) Perl Weekly Challenge 016 by Adam Russell

Regular post on this week challenges.

(4) Perl Weekly Challenge #016 by Athanasius

You know who got the smallest slice in Task #1? Do you want to learn more about bitcoin? Read his post.

(5) Perl Weekly Challenge # 16: Pythagoras Pie by Laurent Rosenfeld

There was an one-liner solution to the first Task #1 in case you missed it.

(6) Perl Weekly Challenge # 16: Bitcoin Addresses by Laurent Rosenfeld

Full write-up on how he solved Task #2.

(7) Perl Weekly Challenge 16: Torturing Your Party Guests With The Pythagoreas Pie Puzzle by Yozen Hernandez

Very detailed write-up on solving the Task #1, especially on benchmarking and visualizing the solution. Recommended read of the week.

(8) Perl Weekly Challenge 16: Decoding a Bitcoin Address in Perl by Yozen Hernandez

He mentioned a good point about Bitcoin address, which is a very big number.

(9) Perl Weekly Challenge 016: Pythagoras Pie Puzzle and Bitcoin Address Validation by E. Choroba

If you need to visualize the missing slice of the pie in task #1 and difficulties he faced on Task #2.


If you have any suggestions or ideas then please do share with us.

Contact with me