well, this should still be shorter:
Code:

$=-1,-1,-1,0,-1
IIf(len(join(split(join($a),'-1'),'')),F,T)