actually, this is even shorter:
Code:

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