data/startMatrices.R

In chrlen/gameOfLifeAgain: Calculates and displays a Game of Life with an infinite board size.

eater <- Matrix::Matrix(c(
  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,
  0,0,0,0,0,0,0,0,1,0,1,0,0,0,0,0,0,0,0,0,
  0,0,0,0,0,0,0,0,0,0,1,0,0,0,1,1,1,0,0,0,
  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  0,0,1,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,
  0,0,1,1,0,0,0,0,0,0,1,0,1,0,0,0,0,0,0,0,
  0,0,1,1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,
  0,0,0,1,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,
  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

),
nrow = 17, ncol = 20, sparse = TRUE, byrow=TRUE)

static <- Matrix::Matrix(
  c(0,0,0,0,0,0,0,0,
    0,0,0,0,0,0,0,0,
    0,0,0,1,0,0,0,0,
    0,0,1,0,1,0,0,0,
    0,0,1,0,0,1,0,0,
    0,0,0,1,1,0,0,0),
  nrow=8, ncol=8, sparse = TRUE)

oszillator <- Matrix::Matrix(
  c(0,0,0,0,0,0,0,
    0,0,0,0,0,0,0,
    0,0,0,0,0,0,0,
    0,0,1,1,1,0,0,
    0,0,0,0,0,0,0,
    0,0,0,0,0,0,0,
    0,0,0,0,0,0,0),
  nrow=7, ncol=7, sparse = TRUE)

toad <- Matrix::Matrix(
  c(0,0,0,0,0,0,0,0,
    0,0,0,0,0,0,0,0,
    0,0,0,1,0,0,0,0,
    0,0,0,1,1,0,0,0,
    0,0,0,1,1,0,0,0,
    0,0,0,0,1,0,0,0,
    0,0,0,0,0,0,0,0,
    0,0,0,0,0,0,0,0),
  nrow=8, ncol=8, sparse = TRUE)

small_spaceship <- Matrix::Matrix(
  c(0,0,0,0,0,0,0,0,0,
    0,0,0,0,0,0,0,0,0,
    0,0,0,1,1,0,0,0,0,
    0,0,0,1,1,1,0,0,0,
    0,0,1,0,1,1,0,0,0,
    0,0,1,1,1,0,0,0,0,
    0,0,0,1,0,0,0,0,0),
  nrow=9, ncol=9, sparse = TRUE)

beacon <- Matrix::Matrix(
  c(0,0,0,0,0,0,0,0,
    0,0,0,0,0,0,0,0,
    0,0,1,1,0,0,0,0,
    0,0,1,0,0,0,0,0,
    0,0,0,0,0,1,0,0,
    0,0,0,0,1,1,0,0,
    0,0,0,0,0,0,0,0,
    0,0,0,0,0,0,0,0),
  nrow=8, ncol=8, sparse = TRUE)

glider <- Matrix::Matrix(c(
    0,0,0,0,0,0,0,0,
    0,0,0,0,0,0,0,0,
    0,0,0,1,0,0,0,0,
    0,0,0,0,1,0,0,0,
    0,0,1,1,1,0,0,0,
    0,0,0,0,0,0,0,0,
    0,0,0,0,0,0,0,0,
    0,0,0,0,0,0,0,0),
    nrow = 8, ncol = 8, sparse = TRUE)

gliders <- Matrix::Matrix(c(
    1,1,1,0,0,0,0,0,
    1,0,0,0,0,0,0,0,
    0,1,0,0,0,0,0,0,
    0,0,0,0,1,0,0,0,
    0,0,0,0,0,1,0,0,
    0,0,0,1,1,1,0,0,
    0,0,0,0,0,0,0,0,
    0,0,0,0,0,0,0,0),
    nrow = 8, ncol = 8, sparse = TRUE)

  small_spaceship <- Matrix::Matrix(
    c(0,0,0,0,0,0,0,0,0,
      0,0,0,0,0,0,0,0,0,
      0,0,0,1,1,0,0,0,0,
      0,0,0,1,1,1,0,0,0,
      0,0,1,0,1,1,0,0,0,
      0,0,1,1,1,0,0,0,0,
      0,0,0,1,0,0,0,0,0),
    nrow=9, ncol=9, sparse = TRUE)

  r_pentominos <- Matrix::Matrix(
    c(0,0,0,0,0,0,0,0,0,
      0,0,1,1,0,0,0,0,0,
      0,1,1,0,0,0,0,0,0,
      0,0,1,0,0,0,0,0,0,
      0,0,0,0,0,0,0,0,0,
      0,0,0,0,0,0,0,0,0,
      0,0,0,0,0,0,0,0,0),
    nrow=9, ncol=9, sparse = TRUE)