Blindfold Chess Piece Mazes

mazes.csv

piece_maze_code.R

piece_maze_multiple <- function(n){

  # generate data frame to hold all results
  all_mazes <- data.frame(Piece = rep(0, n), 
                          Start = rep(0, n), 
                          End = rep(0, n))
  
  
  for(i in 1:n){
    
    piece <- sample(c("Rook", "Knight", "Bishop", "Queen"), 1, 
                    prob = c(.1, .4, .4, .1))
    
    
    if(piece == "Rook" | piece == "Knight" | piece == "Queen"){
      
      # declare the square names
      for(k in 1:8){
        for(l in 1:8){
          current_square <- paste(letters[k], l, sep = "")
          squares <- c(squares, current_square)
        }
      }
      
      start_end_squares <- sample(squares, 2)
      all_mazes$Piece[i] <- piece
      all_mazes$Start[i] <- start_end_squares[1]
      all_mazes$End[i] <- start_end_squares[2]
    }
    
    
    if(piece == "Bishop"){
      
      bishop_colour <- sample(c("light_bishop", "dark_bishop"), 1)
      
      if(bishop_colour == "light_bishop"){
        squares <- c("a2", "a4", "a6", "a8", 
                     "b1", "b3", "b5", "b7", 
                     "c2", "c4", "c6", "c8", 
                     "d1", "d3", "d5", "d7", 
                     "e2", "e4", "e6", "e8", 
                     "f1", "f3", "f5", "f7", 
                     "g2", "g4", "g6", "g8", 
                     "h1", "h3", "h5", "h7")
      } 
      if(bishop_colour == "dark_bishop"){
        squares <- c("a1", "a3", "a5", "a7", 
                     "b2", "b4", "b6", "b8", 
                     "c1", "c3", "c5", "c7", 
                     "d2", "d4", "d6", "d8", 
                     "e1", "e3", "e5", "e7", 
                     "f2", "f4", "f6", "f8", 
                     "g1", "g3", "g5", "g7", 
                     "h2", "h4", "h6", "h8")
      }
      start_end_squares <- sample(squares, 2)
      all_mazes$Piece[i] <- piece
      all_mazes$Start[i] <- start_end_squares[1]
      all_mazes$End[i] <- start_end_squares[2]
    
    }
  }
  return(all_mazes)
}

all <- piece_maze_multiple(1000)
write.csv(all, "piece_mazes.csv", row.names = FALSE)