> 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
