# Create a board solved with one move and solve it.
lights <- c(1, 1, 0,
1, 0, 0,
0, 0, 0 )
board <- new_board(lights)
is_solved(board)
board <- board %>% play(1, 1)
is_solved(board)
Run the code above in your browser using DataLab