http://qs321.pair.com?node_id=1065697


in reply to Homework Golf

Perl 6 version:

Explanation: