On Tue, Jan 21, 2003 at 09:39:18PM -0500, Yanick wrote:
> On Wed, Jan 22, 2003 at 12:08:23AM +0000, Ian Phillipps wrote:
> > The following was distributed a while ago as "footguy.c".
> > Can any golfers duplicate its function in perl using fewer characters?
> >
> > There are a couple of literal ^G in here:
> >
> > main(l){main(8^putchar(l++["xx77Rd$fR$wPP"]^88)?l:26+fflush(sleep(1))-l);}
>
> One first, naive try:
>
> perl -i_ -e'$_||=" oo\n<|>\n_|_\n",s#.$#$&eq$^I?"/":$^I#e while sleep print'
A second, almost as naive, try:
perl -e'$_="oo\n<|>\n_|";sleep print while$\=("_\n","/\n")[--$|]'
Joy,
`/anick
--
When I was a young man I vowed never to marry until I found the ideal
woman. Well, I found her but, alas, she was waiting for the ideal man.
