R/helper-functions.R

In tarakc02/puzzlr: Tools for Puzzle Solvers

is_odd <- function(x) x %% 2 > 0
is_even <- function(x) !is_odd(x)

ind_to_coord <- function(pz, ind) {
    n <- dim(pz)[1]
    c(1L, 1L) + c((ind - 1L) %% n, (ind - 1L) %/% n)
}

coord_to_ind <- function(pz, coord) {
    n <- dim(pz)[1]
    ((coord[2] - 1) * n) + coord[1]
}

goal_index <- function(pz, num) {
    n <- dim(pz)[1]
    c(1L, 1L) +
        c((num - 1L) %/% n,
          (num - 1L) %% n)
}