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

Reply via email to