Re: [golf] Tangled Tale Results (2)

From the keyboard of Ton Hospel [01.07.04,15:55]:

> In article <40E14844.102@_ootle.org>,
> 	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
> > "if@x>14;undef*x}(0..2**15)
> >
> Golfing that a bit gives 104:
> map{15>push@x,$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>push@x,$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}