定义两个函数,一个是cal,这个函数可以加载,运行正常;另一个函数是bool,加载时提出错误
Error: unexpected symbol in:
" for(k in 1:4){
if(cal(a,b,c,d,i,j,k)==24) return true"
这个为什么?
函数如下:
cal=function(a,b,c,d,i,j,k){
sum=0
if(i==1){
sum=a+b
}else if(i==2){
sum=a-b
}else if(i==3){
sum=a*b
}else if(i==4){
sum=a/b
}
if(j==1){
sum=sum+c
}else if(j==2){
sum=sum-c
}else if(j==3){
sum=sum*c
}else if(j==4){
sum=sum/c
}
if(k==1){
sum=sum+d
}else if(k==2){
sum=sum-d
}else if(k==3){
sum=sum*d
}else if(k==4){
sum=sum/d
}
return(sum)
}
bool=function(a,b,c,d){
for(i in 1:4){
for(j in 1:4){
for(k in 1:4){
if(cal(a,b,c,d,i,j,k)==24) return true
if( cal(a,b,d,c,i,j,k)==24) return true
if(cal(a,c,b,d,i,j,k)==24) return true
if(cal(a,c,d,b,i,j,k)==24) return true
if(cal(a,d,b,c,i,j,k)==24) return true
if(cal(a,d,c,b,i,j,k)==24) return true
if(cal(b,a,c,d,i,j,k)==24) return true
if(cal(b,a,d,c,i,j,k)==24) return true
if(cal(b,c,a,d,i,j,k)==24) return true
if(cal(b,c,d,a,i,j,k)==24) return true
if(cal(b,d,a,c,i,j,k)==24) return true
if(cal(b,d,c,a,i,j,k)==24) return true
if(cal(c,a,b,d,i,j,k)==24) return true
if(cal(c,a,d,b,i,j,k)==24) return true
if(cal(c,b,a,d,i,j,k)==24) return true
if(cal(c,b,d,a,i,j,k)==24) return true
if(cal(c,d,a,b,i,j,k)==24) return true
if(cal(c,d,b,a,i,j,k)==24) return true
if(cal(d,a,b,c,i,j,k)==24) return true
if(cal(d,a,c,b,i,j,k)==24) return true
if(cal(d,b,a,c,i,j,k)==24) return true
if(cal(d,b,c,a,i,j,k)==24) return true
if(cal(d,c,a,b,i,j,k)==24) return true
if(cal(d,c,b,a,i,j,k)==24) return true
}
}
}
return FALSE
}