#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <string.h>
#include <time.h>

#define COLS 80
#define ROWS 25

#define DEAD ' '
#define ALIVE '#'

#define INIT_RATIO 10

#define STR(x) _STR(x)
#define _STR(x) #x

static void clearscr() {
  printf("\e[1;1H\e[2J");
}

static void print_row(char row[COLS]) {
  printf("%." STR(COLS) "s\n", row);
}

static void print_grid(char grid[COLS * ROWS]) {
  for (int i = 0; i < ROWS; i++)
    print_row(grid + i * COLS);
}

static void init_grid(char grid[COLS * ROWS]) {
  for (int i = 0; i < COLS * ROWS; i++) {
    if (rand() % INIT_RATIO)
      grid[i] = DEAD;
    else
      grid[i] = ALIVE;
  }
}

static char get_state(char grid[COLS * ROWS], int idx) {
  if (idx < 0 || idx >= COLS * ROWS)
    return DEAD;

  return grid[idx];
}

static int alive_neighbours(char grid[COLS * ROWS], int idx) {
  int neighbours = 0;

  for (int i = -1; i <= 1; i++) /* row */
    for (int j = -1; j <= 1; j++) /* col */
      if (get_state(grid, idx + i * COLS + j) == ALIVE)
        neighbours++;

  if (get_state(grid, idx) == ALIVE)
    neighbours--;

  return neighbours;
}

static char next_state(char grid[COLS * ROWS], int idx) {
  int n = alive_neighbours(grid, idx);

  if (get_state(grid, idx) == ALIVE) {
    if (n < 2 || n > 3)
      return DEAD;

    return ALIVE;
  }

  if (n == 3)
    return ALIVE;

  return DEAD;
}

static void update_grid(char grid[COLS * ROWS]) {
  char new[COLS * ROWS];

  for (int i = 0; i < COLS * ROWS; i++)
    new[i] = next_state(grid, i);

  memcpy(grid, new, COLS * ROWS);
}

int main () {
  char grid[COLS * ROWS];

  srand(time(0));
  init_grid(grid);

  for (;;) {
    clearscr();
    print_grid(grid);
    update_grid(grid);
    getchar();
  }

  return 0;
}