Code:

$a=-1,-1,-1,0,-1
  ? 'Array does '
if ubound($a)*3+2<>len(join(split(join($a),'-')))
 'not '
endif
  'only contain -1s'