Re: A new golf "Reversi" has started

[email protected] ((Ton Hospel)) Sat, 22 Nov 2003 15:22:55 +0000 (UTC)
Newsgroups perl.golf
Organization lunix confusion services
Message-ID <[email protected]>
In article <[email protected]>,
	"Riley" <[email protected]> writes:
> Hello, All!
> 
> I believe I understand ton's alternative solution...
> 
> -p0 s/\.(?=.{$&}(x.{$&})+o)/*/sgwhile$_=reverse,998877e3=~/./g
> 
> (At first I was confused as to why 998877e3 was needed
> as opposed to 998877e2, but I suppose since ton is
> reversing the string in the while condition, rather
> than in the while block, he needed one more character
> in order to flip the string one final time. Is there
> any other purpose for having e3?)

If you put the reverse in the body and use e2, you need
an extra space after the while and it becomes a 63 stroke 
solution.