Re: The minigolf "Cantor's revenge" has ended

[email protected]
Newsgroups perl.golf
Message-ID <694BB7191495D51183A9005004C0B0540142FA3C@ir-exchange-srv.ir.com.au>
> The URL is as usual. http://terje.dev.webon.net/golf/

Is there a misprint in post mortem?
Is the 2281-stroke "alternative" solution from Prakash Kailasa
or Gaulois Messire Andre Savigne?

As an improvement from 2281 to 755 strokes (3 shapes to 1),
I offer the following generator program, taken from chapter 3
of the upcoming O'Reilly book, "Perl Golf, EyeDrops and Exploding
EyeBalls" by Yanick Champoux and Andrew Savige (with a Flaming
Ostrich on the cover).

use Acme::EyeDrops qw(sightly);
print sightly({ SourceString => 'open$%;print+map{y;!-~;*;;$_}<0>',
                Regex        => 1,
                Compact      => 1,
                ShapeString  => <<'FLAMING_OSTRICHES' });
***************************
* ** ** ** ** ** ** ** ** *
***************************
***   ******   ******   ***
* *   * ** *   * ** *   * *
***   ******   ******   ***
***************************
* ** ** ** ** ** ** ** ** *
***************************
*********         *********
* ** ** *         * ** ** *
*********         *********
***   ***         ***   ***
* *   * *         * *   * *
***   ***         ***   ***
*********         *********
* ** ** *         * ** ** *
*********         *********
***************************
* ** ** ** ** ** ** ** ** *
***************************
***   ******   ******   ***
* *   * ** *   * ** *   * *
***   ******   ******   ***
***************************
* ** ** ** ** ** ** ** ** *
***************************
FLAMING_OSTRICHES

Of course, if anyone can further shorten "SourceString" above,
I would be delighted.

/-\ndrew
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.