R/writeSudoku.R

In sudoku: Sudoku Puzzle Generator and Solver

Defines functions writeSudoku

Documented in writeSudoku

writeSudoku <- function(z, fn) {
  z[z==0] <- "-"
  cat(t(z), file=fn, sep=c(rep.int("", ncol(z)-1), "\n"))        # From "write"
}

Try the sudoku package in your browser