把围棋棋盘上下边和左右边连起来，变成面包圈，下棋策略会有什么变化？

       GoT2 <- function(n=19) {     ###初始设置     ##构造棋盘     if (!interactive()) return()     par(mar = rep(0, 4),bg = rgb(0.9296875, 0.6757812, 0.0546875))     plot(1:n, type = "n", xlim = c(1, n), ylim = c(0, n), axes = FALSE, xlab = "",          ylab = "", bty = "o", lab = c(n, n, 1))     text( 3,0,"落子无悔",cex=1)     text(17,0,"一生好走",cex=1)     segments(1, 1:n, n, 1:n)     segments(1:n, 1, 1:n, n)     points(rep(c(4, 10, 16), 3), rep(c(4, 10, 16), each = 3),           pch = 19, cex = 1.2)        box()      ##四大列表初始设置     playedlist <- list(c(),c())    #当前盘面     vplay <-c()     history <- list(list())    #历史记录     re <- 0    #悔棋指标     conset <- list(list(),list())    #连通分支列表,是二重嵌套列表，第一子列表属黑棋，第二属白棋     bouset <- list(list(0+0i),list(0+0i))    #连通分支边界列表，同上     hiscon <- list(list())     hisbou <- list(list())     ncb=c(0,0)    #分支数     ntake <- c(0,0);eat <- 0     hisncb <- list()     hisntake <- list()            ##棋盘特殊位置     SW<-1+1i    #棋盘四角     SE<-19+1i     NE<-19+19i     NW<-1+19i     S<- 2:18+1i    #棋盘四边（不含角）     E<- complex(0,19,2:18)     N<- 2:18+19i     W<- complex(0,1,2:18)     dire<-c(1i,-1i,-1,1)    #棋盘四合      ##边界函数Bd（从中去掉历史位置即可得到“气”）     Bd<-function(A)     {          B=c()          for(a in A)          {              pa <- a+dire                pa <- complex(0, Re(pa)%%19, Im(pa)%%19)              for(i in 1:4)              {                  if(Re(pa[i])==0)pa[i]<-complex(0,19,Im(pa[i]))                  if(Im(pa[i])==0)pa[i]<-complex(0,Re(pa[i]),19)              }              for(i in pa) if(!is.element(i,A)) B=c(B,i)          }          B     }      ##提子     take <- function(A)     {         if(is.element(SE,A))         {             points(19,1, cex = 3, pch = 19, col = rgb(0.9296875, 0.6757812, 0.0546875))             segments(18.5,1,19,1)             segments(19,1,19,1.5)             A <- setdiff(A,SE)         }         if(is.element(SW,A))         {             points(1,1, cex = 3, pch = 19, col = rgb(0.9296875, 0.6757812, 0.0546875))             segments(1,1,1.5,1)             segments(1,1,1,1.5)             A <- setdiff(A,SW)         }         if(is.element(NE,A))         {             points(19,19, cex = 3, pch = 19, col = rgb(0.9296875, 0.6757812, 0.0546875))             segments(18.5,19,19,19)             segments(19,18.5,19,19)             A <- setdiff(A,NE)         }         if(is.element(NW,A))         {             points(1,19, cex = 3, pch = 19, col = rgb(0.9296875, 0.6757812, 0.0546875))             segments(1,19,1.5,19)             segments(1,18.5,1,19)             A <- setdiff(A,NW)         }         EE <- intersect(E,A);WW <- intersect(W,A)         SS <- intersect(S,A);NN <- intersect(N,A)         A <- setdiff(A,c(EE,WW,SS,NN))         if(length(A)>0)         {             x <- Re(A);y <- Im(A)             points(x,y, cex = 3, pch = 19, col = rgb(0.9296875, 0.6757812, 0.0546875))             segments(x-0.5,y,x+0.5,y)             segments(x,y-0.5,x,y+0.5)         }         if(length(EE)>0)         {             x <- Re(EE);y <- Im(EE)             points(x,y, cex = 3, pch = 19, col = rgb(0.9296875, 0.6757812, 0.0546875))             segments(x-0.5,y,x,y)             segments(x,y-0.5,x,y+0.5)         }         if(length(WW)>0)         {             x <- Re(WW);y <- Im(WW)             points(x,y, cex = 3, pch = 19, col = rgb(0.9296875, 0.6757812, 0.0546875))             segments(x,y,x+0.5,y)             segments(x,y-0.5,x,y+0.5)         }         if(length(SS)>0)         {             x <- Re(SS);y <- Im(SS)             points(x,y, cex = 3, pch = 19, col = rgb(0.9296875, 0.6757812, 0.0546875))             segments(x-0.5,y,x+0.5,y)             segments(x,y,x,y+0.5)         }         if(length(NN)>0)         {             x <- Re(NN);y <- Im(NN)             points(x,y, cex = 3, pch = 19, col = rgb(0.9296875, 0.6757812, 0.0546875))             segments(x-0.5,y,x+0.5,y)             segments(x,y-0.5,x,y)         }         if(is.element(4+4i,A))points(4+4i, cex = 1.2, pch = 19)         if(is.element(4+10i,A))points(4+10i, cex = 1.2, pch = 19)         if(is.element(4+16i,A))points(4+16i, cex = 1.2, pch = 19)         if(is.element(10+4i,A))points(10+4i, cex = 1.2, pch = 19)         if(is.element(10+10i,A))points(10+10i, cex = 1.2, pch = 19)         if(is.element(10+16i,A))points(10+16i, cex = 1.2, pch = 19)         if(is.element(16+4i,A))points(16+4i, cex = 1.2, pch = 19)         if(is.element(16+10i,A))points(16+10i, cex = 1.2, pch = 19)         if(is.element(16+16i,A))points(16+16i, cex = 1.2, pch = 19)     }     ##气的提示     qi <- function()     {         tp1 <- matrix(,ncb[1],2)         for(i in 1:ncb[1]) tp1[i,] <- c(length(bouset[[1]][[i]]),conset[[1]][[i]][1])         d1 <- tp1[order(tp1[,1]),]         d1 <- data.frame(黑方气数=Re(d1[,1]),分支位置=d1[,2])         print(d1)         tp2 <- matrix(,ncb[2],2)         for(i in 1:ncb[2]) tp2[i,] <- c(length(bouset[[2]][[i]]),conset[[2]][[i]][1])         d2 <- tp2[order(tp2[,1]),]         d2 <- data.frame(白方气数=Re(d2[,1]),分支位置=d2[,2])         print(d2)      }       ###进入对弈     k <- 0     repeat         {         for (j in 1:2)    ##黑白交替落子         {             repeat             {                 l <- locator(1)    #获得落子坐标                 l$x <- round(l$x)                 l$y <- round(l$y)                 xy <- complex(0,l$x,l$y)                 if (!is.element(xy, vplay))break    #禁走历史位置             }              ##悔棋             Cex <- 1             if(k>99)Cex <- 0.8             if(l$y<0.5)             {                 take(vplay)                 history[[k]] <- NULL                 k <- k-1                 playedlist <- history[[k]]                 vplay <- unlist(playedlist)                 conset <- hiscon[[k]]                 bouset <- hisbou[[k]]                 ncb <- hisncb[[k]]                 ntake <- hisntake[[k]]                 Bx <- Re(history[[k]][[1]]);By <- Im(history[[k]][[1]])                 Wx <- Re(history[[k]][[2]]);Wy <- Im(history[[k]][[2]])                 points(Bx, By, cex = 3, pch = 19, bg = "black")                 points(Wx, Wy, cex = 3, pch = 21, bg = "white")                 text(Bx,By+0.06,seq(1,k,2),cex=Cex,col="white")                 text(Wx,Wy+0.06,seq(2,k,2),cex=Cex,col="black")                 if(min(ncb)>2)qi()                 re <- 1             }             if(re == 1){re <- 0;next}              #落子             k <- k+1             points(l, cex = 3, pch = c(19, 21)[j], bg = c("black", "white")[j])             text(l$x,l$y+0.06,k,cex=Cex,col=c("white","black")[j])                                  ##损气提吃             s=1             while(s<=ncb[3-j])             {                   opp <- bouset[[3-j]][[s]]                               if(is.element(xy,opp))                 {                     if(length(opp)==1)                     {                         playedlist[[3-j]] <- setdiff(playedlist[[3-j]],conset[[3-j]][[s]])                         vplay <-unlist(playedlist)                         take(conset[[3-j]][[s]])    #提子                         ntake[j] <- ntake[j]+length(conset[[3-j]][[s]]);eat <- 1                         bouset[[3-j]][[s]] <- NULL                             conset[[3-j]][[s]]<-NULL                         ncb[3-j] <- ncb[3-j]-1    #对方分支数减少                         for(t in 1:ncb[j])                         {                             bouset[[j]][[t]] <- setdiff(Bd(conset[[j]][[t]]),vplay)                         }                         s <- s-1                     }else{                     bouset[[3-j]][[s]] <- setdiff(opp,xy)                                }                 }                 s <- s+1             }                          ###构造三大列表（历史、连通分支、边界）             p=0    #分支构建指标(p>0分支合并、p=0新建分支)             U <- c()    #合并分支             i <- 1;r<- c()             while(i<=ncb[j])              {                 if(ncb[j]==0) break                 if(is.element(xy, bouset[[j]][[i]]))    #新下的棋属于哪个连通分支                 {                     p <- p+1                     if(p==1)                     {                         q <- i                         U <- conset[[j]][[i]]                         conset[[j]][[i]]<-NULL                         bouset[[j]][[i]]<-NULL                         ncb[[j]] <- ncb[[j]]-1                         i <- i-1                     }                     if(p>1)                     {                         U <- union(U,conset[[j]][[i]])                         conset[[j]][[i]]<-NULL                         bouset[[j]][[i]]<-NULL                         i=i-1                         ncb[j] <- ncb[j]-1                      }                 }                 i <- i+1             }              ncb[j] <- ncb[j]+1             if(p==0){                 if(ncb[j]==0)                 {                     conset[[j]] <- list(xy)    #孤子建新支                     bouset[[j]] <- list(setdiff(Bd(xy),vplay))                 }else{                     conset[[j]][[ncb[j]]] <- xy                         bouset[[j]][[ncb[j]]] <- setdiff(Bd(xy),vplay)                      }             }else if(p==1){                 if(ncb[j]>0)                 {                     conset[[j]][[ncb[j]]] <- c(U,xy)                     bouset[[j]][[ncb[j]]] <- setdiff(Bd(c(U,xy)),vplay)                 }else{                     conset[[j]] <- list(c(U,xy))                     bouset[[j]] <- list(setdiff(Bd(c(U,xy)),vplay))                 }             }else{                 conset[[j]][[ncb[j]]] <- c(U,xy)                 bouset[[j]][[ncb[j]]] <- setdiff(Bd(c(U,xy)),vplay)             }              playedlist[[j]] <- c(playedlist[[j]], xy)             vplay <-unlist(playedlist)             history[[k]] <- playedlist             hiscon[[k]] <- conset             hisbou[[k]] <- bouset             hisncb[[k]] <- ncb             hisntake[[k]] <- ntake              if(min(ncb)>2)qi()              if(eat>0)             {                 print(list(黑方提子数=ntake[1],白方提子数=ntake[2]));eat <- 0             }              if (k >= n^2)break    ###满盘结束(满盘皆输555~)         }     if(k >= n^2) break     } } GoT2()