Ian Phillipps wrote:
>
> The following was distributed a while ago as "footguy.c".
> Can any golfers duplicate its function in perl using fewer characters?
>
> main(l){main(8^putchar(l++["xx77Rd$fR$wPP"]^88)?l:26+fflush(sleep(1))-l);}
>
How about:
perl -e's//_\b/;$_^=p while sleep print" oo\n<|>\n_|"x!$|++,$_'
and it fixes a bug in the C version where the last line of the footguy
isn't drawn until after the first sleep.
To be fair, the perl -e'' shouldn't count, so:
76: main(l){main(8^putchar(l++["xx77Rd$fR$wPP"]^88)?l:26+fflush(sleep(1)1);}
54: s//_\b/;$_^=p while sleep print" oo\n<|>\n_|"x!$|++,$_
Darn, only 22 strokes shorter :(
--
Rick Klement
