Re: [golf] Tangled Tale Results

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