<snip>
> my maze sig, in 6 lines for those that missed it before. I've been
> hacking for ages trying to get it down, but i'm buggered if i can find any
> more spare chars (i also tried doing it with bitwise operators):
>
> $p=1;[EMAIL PROTECTED]&$_>47&$_<751,($p-1)%47&&$m[$p-1]ne"|"?$p-2:0,($p+2)
> %47&&$m[$p+1]ne"|"?$p+2:0,$m[$p]ne _?$p+47:0,$m[$p-47]ne _?$p-47:0;$m[$p
> ]||=_;if($l){print$_?$_%47?$p-$_?$m[$_]:o:"$/|":"\e[H"for 0..750;$p>749?
> exit:select$q,$q,$q,[EMAIL PROTECTED](([EMAIL
> PROTECTED])-$p)**2>4?$m[$r>$p?$p:$r]=$":(
> $m[$r>$p?$r-1:$r+1]=_):([EMAIL PROTECTED],redo);[EMAIL
> PROTECTED],$v{$p=$r}=$p;if(keys%v>3
>
> (any ideas about getting this smaller? mail me of list!)
doh!
missed a line (i get confused if it's over 4 lines :-) )
$p=1;[EMAIL PROTECTED]&$_>47&$_<751,($p-1)%47&&$m[$p-1]ne"|"?$p-2:0,($p+2)
%47&&$m[$p+1]ne"|"?$p+2:0,$m[$p]ne _?$p+47:0,$m[$p-47]ne _?$p-47:0;$m[$p
]||=_;if($l){print$_?$_%47?$p-$_?$m[$_]:o:"$/|":"\e[H"for 0..750;$p>749?
exit:select$q,$q,$q,[EMAIL PROTECTED](([EMAIL PROTECTED])-$p)**2>4?$m[$r>$p?$p:$r]=$":(
$m[$r>$p?$r-1:$r+1]=_):([EMAIL PROTECTED],redo);[EMAIL
PROTECTED],$v{$p=$r}=$p;if(keys%v>344
&!$l){$m[$_]||=$_<47|$_==$p?_:"|"for 0..750;%v=$p=$l=print"\ec"}redo}
al
