From the keyboard of Ton Hospel [01.07.04,15:55]:
> In article <[EMAIL PROTECTED]>,
> Brad Greenlee <[EMAIL PROTECTED]> writes:
> > 2. Georg Moritz (150)
> >
> > map{push(@x,$x+1)while(!$x{$x=hex
> > substr("7b7c0f8eac28ae4bde583c1f675b9a",$x*2+vec(pack(S,$_),$x,1),1)}++&&$x);print"1
> > @x
> > "[EMAIL PROTECTED]>14;undef*x}(0..2**15)
> >
> Golfing that a bit gives 104:
> map{15>[EMAIL PROTECTED],$x+1or print"1 @x
> "while!$x{$x=vec"����ʂ����v��",$x*2|$_>>@x&1,4}++*$x;undef*x}0..2**15
hmm, the vector doesn't seem to be right - it doesn't work. It should be
map{15>[EMAIL PROTECTED],$x+1or print"1 @x
"while!$x{$x=vec"{|��(�K�X< g[�",$x*2|$_>>@x&1,4}++*$x;undef*x}0..2**15
but then, we have those nasty control chars in the string...
greets,
georg
--
_($_=" "x(1<<5)."?\n".q�/)Oo. G�\ /
/\_�/(q /
---------------------------- \__(m.====�.(_("always off the crowd"))."�
");sub _{s,/,($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e,e && print}
