a=as.numeric(data[[1]])
x=strsplit(data[[2]],' ')
x=as.numeric(x[[1]])
if(sum(x)%%a!=0){
 r=-1
}else{
  t<-x%%2
  if(all(t==1)|all(t==0)){
   x.mean=mean(x)
   y=sum(x[x>x.mean]-x.mean)
   r=y/2
   if(r%%1!=0){
     r=-1
     }
  }
}
r
但是不知道为什么通过case为0%