In petermeissner/crossword: Generating Crosswords from Word Lists

knitr::opts_chunk$set(echo = TRUE, width.cutoff=120)

Usage

library(crossword)

cw <- 
  Crossword$new(rows = 4, columns = 4)

Usage

cw$add_words(
  c("back", "nasa", "kick", "nuk", "ic", "sic")
)

Usage

cw

Data

cw$letters

Data

cw$words

Technicalities

• OOP:
  • not a fan of OOP ... but!
  • multiple pieces of data that only make sense together
  • easier to iterate on data and functions at the same time
  • state is important - adding words depends on the grid state
  • R6 (easy to use classes for traditional OOP)

Technicalities

• data fields:
  • rows (integer)
  • columns (integer)
  • letters (matrix)
  • words (data.frame)
  • [restrictions_right, restrictions_down (data.frame)]

Technicalities

• methods:
  • initialize() (row, columns)
  • add_words() (words, clues)
  • density()
  • [put_word_on_grid(), add_words(), update_grid_data(), print()]

Algorithm?

• quite dumb
• loop over words
• data on cells:
  • space (right/down)
  • letters already placed
• adding word
  • which cells have enough space
  • which cell's regex match the word
• placing based on weighting of cells
  • balance right and down
  • try to put in the center of grid
  • try to cross as many letters on grid as possible

End

• Peter Meissner

  • twitter <- "marvin_dpr"
  • homepage <- "pmeissner.com"
  • Github <- "petermeissner"

• crossword

  • status <- "work in progress"
  • url <- "https://github.com/petermeissner/crossword"

petermeissner/crossword documentation built on May 19, 2019, 8:23 a.m.