On Wed, 2014-05-21 at 11:59 -0700, Ian Zimmerman wrote: > Would this be of any import? > > [24+0]~$ perl --version > > This is perl 5, version 14, subversion 2 (v5.14.2)
Nope, the Perl version does not make a difference here.
--
char *t="\10pse\0r\0dtu\0.@ghno\x4e\xc8\x79\xf4\xab\x51\x8a\x10\xf4\xf4\xc4";
main(){ char h,m=h=*t++,*x=t+2*h,c,i,l=*x,s=0; for (i=0;i<l;i++){ i%8? c<<=1:
(c=*++x); c&128 && (s+=h); if (!(h>>=1)||!t[s+h]){ putchar(t[s]);h=m;s=0; }}}
