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
very nice :-) .. my solution was an ungolfed optimised version of
my first approach to solve the puzzle. I'm quite new to the sport.
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}
