Raagh

let john = { name: "John", age: 18 }
john.name = "Patricio"

Raagh

module Core where
  
type Columns = Int
type Rows = Int
type Point = (Rows, Columns)
type Apple = Point
type Snake = [Point]
type Moves = [Move]

data Move = North | South | West | East deriving (Show)

Raagh

const COLUMNS = 15
const ROWS = 15
const SPEED = 125
let uglyMutableState = initialState

const setupInput = () => {
  readline.emitKeypressEvents(process.stdin)
  process.stdin.setRawMode(true)
  process.stdin.on("keypress", (str, key) => {
    if (key.ctrl && key.name === "c") process.exit()

Raagh

const step = r.curry((cols, rows, state) =>
  r.pipe(nextSnake(cols, rows), nextApple(cols, rows))(state)
)

Raagh

const nextApple = r.curry((cols, rows, state) =>
  willEat(r.head(state.snake), state.apple)
    ? { ...state, apple: point(randomPos(cols), randomPos(rows)) }
    : state
)

Raagh

const willEat = r.equals
const willCrash = (cols, rows, state) =>
  r.find(r.equals(nextHead(cols, rows, state)))(state.snake)

const nextHead = (cols, rows, { move, snake }) =>
  point(
    modulo(cols)(r.head(snake).x + move.x),
    modulo(rows)(r.head(snake).y + move.y)
  )

Raagh

const nextSnake = r.curry((cols, rows, state) => {
  return willCrash(cols, rows, state)
    ? initialState
    : {
        ...state,
        snake: willEat(nextHead(cols, rows, state), state.apple)
          ? [nextHead(cols, rows, state), ...state.snake]
          : [nextHead(cols, rows, state), ...r.dropLast(1, state.snake)],
      }
})

Raagh

// index.js
const setupInput = () => {
  readline.emitKeypressEvents(process.stdin)
  process.stdin.setRawMode(true)
  process.stdin.on("keypress", (str, key) => {
    if (key.ctrl && key.name === "c") process.exit()

    const options = {
      UP: addMove(direction.NORTH),
      LEFT: addMove(direction.WEST),

Raagh

const COLUMNS = 15
const ROWS = 15
const SPEED = 125
let uglyMutableState = initialState

const displayState = display(COLUMNS, ROWS)

const runGameLoop = () => {
  setInterval(() => {
    displayState(uglyMutableState)

Raagh

const displayWorld = matrix => {
  console.clear()
  console.log(intercalate("\r\n", r.map(intercalate(" "), matrix)))
}