Estoy programando un 3 en raya en una matriz de 10x10.
Aquí, estamos en la función que se encarga de comprobar si las fichas son consecutivas, para declarar ganador o pasar al siguiente turno.
Por lo tanto hemos puesto una condición para evitar que se salga de los límites de la matriz (m
), ya que al estar checkeando la vertical hacia abajo, pues que sea menor o igual que la fila 10
que es la última y nos da error de que la longitud del argumento es cero.
nbsymbols
es el número de fichas consecutivas necesarias para hacer partida, insert_row
es el número de fila que inserta el usuario y insert_col
la columna.
Les adjunto el código a ver si me pueden resolver algo:
checkconsecutive<-function(m, insert_row, insert_col, turn, V)
{
fichas=1
consecutive=TRUE
repeat
{
i=1
while((fichas<=V[[nbsymbols]])&(consecutive=TRUE)&(m[insert_row+i, insert_col]<=m[10, ])) #check vertical abajo
{
if(m[insert_row+i, insert_col]==m[insert_row, insert_col])
{
fichas=fichas+1
consecutive=TRUE
i=i+1
} else
{
consecutive=FALSE
Y el error:
Error in while ((fichas <= V[[nbsymbols]]) & (consecutive = TRUE) & (m[insert_row + : argumento tiene longitud cero